vb 以下代码运行第二次出现462错误

Question

Function SaveAsWord(DiskStr, NameStr) '另存为
ChangeFileOpenDirectory DiskStr
wordDoc.SaveAs FileName:=NameStr, FileFormat:=wdFormatDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
Set DiskStr = Nothing
wordApp.Application.Documents.Close
wordApp.Application.Quit
End Function

运行第一次正常，接着运行第二次的时候到
ChangeFileOpenDirectory DiskStr
这里就出现462错误！？？？
请问怎么弄啊！！！

Answer 1

只能给你说个大致方向
1. 检查两次运行的时候，DiskStr参数有什么变化？
2. ChangeFileOpenDirectory应该是另外一个函数或者过程吧，建议调试程序时用单步方式，跟踪进去，看该函数内部是哪里出错了。