Question

vba中我利用代码通过打开对话框打开word，但是我如果不打开word直接关闭打开对话框就报错，为什么？

Set wdApp = CreateObject("word.application")
wdfile = Application.GetOpenFilename("Word文件,*.doc*", , "请选择Word文件")
wdApp.Documents.Open (wdfile)
wdApp.Visible = True

Answer 1

Set wdApp = CreateObject("word.application")
wdfile = Application.GetOpenFilename("Word文件,*.doc*", , "请选择Word文件")
if wdfile="" then exit sub
wdApp.Documents.Open (wdfile)
wdApp.Visible = True

追问

不行啊 这样改了运行 还是在wdApp.Documents.Open (wdfile) 这句报错 说类型不匹配

追答

Set wdApp = CreateObject("word.application")
wdfile = Application.GetOpenFilename("Word文件,*.doc*", , "请选择Word文件")
If wdfile = False Then Exit Sub
wdApp.Documents.Open (wdfile)
wdApp.Visible = True

这样修改 我测试过了 没问题了