使用Excel VBA打开并保存Word文档'；行不通

我想打开Word文档，粘贴Excel文件中的数据，然后保存该Word文档

打开Word并粘贴数据可以正常工作，但由于“ChDir”C:\My Documents\“行出现问题，无法保存文件

我错过了什么

Sub macro()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
WordApp.Activate

Set WordDoc = WordApp.Documents.Add

Range("A1:C33").Copy

WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _Placement:=wdInLine, DisplayAsIcon:=False

WordDoc.PageSetup.LeftMargin = CentimetersToPoints(1.5)
WordDoc.PageSetup.TopMargin = CentimetersToPoints(1.4)
WordDoc.PageSetup.BottomMargin = CentimetersToPoints(1.5)

ChDir "C:\My Documents\Test"
ActiveDocument.SaveAs "Archief" & Format(Now, "yyyymmdd") & ".docx"

Set WordDoc = Nothing
Set WordApp = Nothing

End Sub

---

创建一个包含文件路径和名称的变量会更容易，如下所示：

Dim FileFullName As String

FileFullName = Environ("userprofile") & "\My Documents\Test" & "\" & "Archief" & Format(Now, "yyyymmdd") & ".docx"
ActiveDocument.SaveAs FileFullName

---

创建一个包含文件路径和名称的变量会更容易，如下所示：

Dim FileFullName As String

FileFullName = Environ("userprofile") & "\My Documents\Test" & "\" & "Archief" & Format(Now, "yyyymmdd") & ".docx"
ActiveDocument.SaveAs FileFullName

试试这个：

Dim FileName2        As String

Set appWrd = CreateObject("Word.Application")

   appWrd.DisplayAlerts = False
    FileName2 = Document.Path & "\" & ".docx"
    appWrd.ActiveDocument.SaveAs FileName:=FileName2

试试这个：

Dim FileName2        As String

Set appWrd = CreateObject("Word.Application")

   appWrd.DisplayAlerts = False
    FileName2 = Document.Path & "\" & ".docx"
    appWrd.ActiveDocument.SaveAs FileName:=FileName2

---

文件夹是否存在？我认为您可能需要使用环境变量“userprofile”来访问此文件夹，例如

MsgBox Environ（“userprofile”）和“\My Documents”

应显示指向我的文档的路径。

Dim Mypath作为字符串Mypath=Environ（“userprofile”）和“\My Documents\Test”“chDir myPath

将替换您的

chDir

行文件夹是否存在？我认为您可能需要使用环境变量“userprofile”来访问此文件夹，例如

MsgBox Environ（“userprofile”）&“\My Documents”

应显示指向我的文档的路径

Dim Mypath作为字符串Mypath=Environ（“userprofile”）&“\mydocuments\Test”chDir Mypath

将替换您的

chDir

行