Question

作为VBA语言的新手，我已经研究了这个简单的任务几个小时，我没有任何工作。我收到错误＆＃34;此命令不可用，因为没有文档打开＆＃34;，并且有一个单词文档正在写入。这里发生了什么？谢谢你的帮助。

Sub excel_to_word()
Dim wapp As Word.Application
Dim wdoc As Word.Document

Set wapp = CreateObject("word.application")
wapp.Visible = True


Set wdoc = wapp.Documents.Add

wdoc.Content.InsertAfter Range("B5")

Application.Wait (Now + TimeValue("0:00:01"))


'CreateObject("Word.Application").ChangeFileOpenDirectory "C:\USERS\JOSEPH\DESKTOP\"
 Dim NEWPATH As String
 NEWPATH = "C:\USERS\JOSEPH\DESKTOP"


   CreateObject("Word.Application").ActiveDocument.SaveAs2 Filename:="joseph.docx",       FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", addtorecentfiles:=False, savenativepictureformat:=False, SaveFormsData:=False, saveasaoceletter:=False, CompatibilityMode:=14



End Sub

Answer 1

CreateObject("Word.Application").ActiveDocument.SaveAs2 Filename:="joseph.docx" 'etc

应该是

wdoc.SaveAs2 Filename:="joseph.docx" 'etc

当您第二次拨打CreateObject时，您正在创建一个全新的Word实例（而第二个实例中没有打开任何文档）。

VBA＆＃34;此命令不可用，因为没有文档打开＆＃34;

1 个答案: