求助：：在Excel中使用VBA代码打开work文档

jscookson

在Excel中使用VBA代码打开work文档



谢谢

晓月清风

提供一个方法：使用超链接Sub openword()

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

End Sub把上面的D：\*.doc换成你要打开的文件名和路径即可，运行宏后将打开一个新窗口用这个方法也可以打开其他的文件格式

jscookson

试试 先，谢！！！

晓月清风

另一个方法（不推荐）：

Sub openword2()

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

Application.DDEExecute channelNumber, "[FILEPRINT]"

'使用这条命令会向WORD传送一条打印文件的命令

Application.DDETerminate channelNumber

End Sub

wuwu200222