vba 用excelvba打开word文档

xzh_yzcn

各位老师
我想用用excelvba打开word文档，从网上找了以下代码，但未能执行成功
With CreateObject("Scripting.FileSystemObject")  '引用FSO对象
'开启Word
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
'打开word文档
Set wrdDoc = wrdApp.Documents.Open("桌面\1111.doc") '此处必须含扩展名".docx")
此句未能成功执行，无错误显示，而跳转到其他地方
End With


请老师帮指点一下，谢谢

网海遨游

试试

Dim appWD, wrdDoc,mp,mf
mp=thisworkbook.path & "\"
mf=dir(mp & "*1111*.doc*")
Set appWD = CreateObject("Word.Application")
if mf<>"" then
    Set wrdDoc = appWD.Documents.Open(ThisWorkbook.Path & mf)
    appWD.Visible = True
else
    msgbox "没有这个Word文档!",16,"警告......"
endif

网海遨游

Sub test()
  Dim appWD, wrdDoc, mp, mf '声明变量类型
  mp = ThisWorkbook.Path & "\" '路径
  Myname = 1111 'Word文档名(不含后缀)
  mf = Dir(mp & "*" & Myname & "*.doc*") '显示文档的全名(包括后缀)
  Set appWD = CreateObject("Word.Application") '定义对象
  If mf <> "" Then
      Set wrdDoc = appWD.Documents.Open(ThisWorkbook.Path & mf) '打开Word文档
      appWD.Visible = True '显示打开的Word文档
      '.........其他代码
      wrdDoc.Close False 'false→关闭时不保存;True→关闭时保存
      appWD.Quit '退出
  Else
      MsgBox "没有这个Word文档!", 16, "警告......" '弹出警告
  End If
End Sub

xzh_yzcn

请老师帮看一下我的代码问题在哪里，谢谢

魂断蓝桥

桌面\1111.doc

文件的路径不对 应该是C:\Users\Administrator\Desktop\1111.doc

xzh_yzcn

谢谢老师，试了一下，好象还不对，到底是啥原因

网海遨游

mp = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" '获取桌面路径

xzh_yzcn

谢谢网海遨游老师，准确确定桌面文件正确路径，正确打开了想要打开的文档

hdx3000

上面有路径  mp = ThisWorkbook.Path & "\" '路径    为啥不引用，   下面   Set wrdDoc = appWD.Documents.Open(ThisWorkbook.Path & mf) '打开Word文档 ，这里ThisWorkbook.Path & mf，要变成mp&mf,路径就对了，，不让差了一个“\”,肯定找不到啊

hdx3000

p = ThisWorkbook.Path & "\你需要的文件夹名称\"
f = Dir(p & "*.doc*")
Set WJ = CreateObject("Word.Application")
Set wb = WJ.Documents.Open(p & f)
WJ.Visible = True
这样就没问题了