Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步,快速開始

返回列表 發(fā)新帖
查看: 4190|回復(fù): 4
打印 上一主題 下一主題

求助::在Excel中使用VBA代碼打開work文檔

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2005-6-17 22:43:00 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
在Excel中使用VBA代碼打開work文檔



謝謝

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱
2#
發(fā)表于 2005-6-18 22:52:00 | 只看該作者
提供一個(gè)方法:使用超鏈接Sub openword()

    ActiveWorkbook.FollowHyperlink Address:="D:\*.doc", NewWindow:=True

End Sub把上面的D:\*.doc換成你要打開的文件名和路徑即可,運(yùn)行宏后將打開一個(gè)新窗口用這個(gè)方法也可以打開其他的文件格式
3#
 樓主| 發(fā)表于 2005-6-20 23:42:00 | 只看該作者
試試 先,謝。!
4#
發(fā)表于 2005-6-21 23:11:00 | 只看該作者
另一個(gè)方法(不推薦):

Sub openword2()

channelNumber = Application.DDEInitiate(app:="WinWord", topic:="C:\WINWORD\FORMLETR.DOC")

Application.DDEExecute channelNumber, "[FILEPRINT]"

'使用這條命令會(huì)向WORD傳送一條打印文件的命令

Application.DDETerminate channelNumber

End Sub

點(diǎn)擊這里給我發(fā)消息

5#
發(fā)表于 2022-10-18 10:31:53 | 只看該作者
回復(fù)

使用道具 舉報(bào)

您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-17 00:33 , Processed in 0.100067 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表