将数据从指定的Excel文件复制到Word文档

Question

有人可以帮忙吗-我正在使用此代码将数据从excel复制到word：

Sub CreateRapport()

Dim wdApp As Object
Dim wd As Object

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
    Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wd = wdApp.Documents.Add

wdApp.Visible = True

Sheets("Rapport").Activate
Set Rng = ThisWorkbook.ActiveSheet.Range("A1:E76")

Rng.Copy

With wd.Range
    .Collapse Direction:=0                  'Slutet av dokumentet
    .InsertParagraphAfter                   'Lägg till rad
    .Collapse Direction:=0                  'Slutet av dokumentet
    .PasteSpecial False, False, True        'Pasta som Enhanced Metafile
    End With
    End Sub

我需要在代码中进行哪些修改，以从指定的Excel文件（例如“ C：\\ Book.xlsx”（不是ThisWorkbook））复制数据？ 我是VBA的新生，所以任何提示都会有所帮助。 谢谢！

Answer 1

Sub CreateRapport()

Dim wdApp As Object
Dim wd As Object

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
    Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wd = wdApp.Documents.Add

wdApp.Visible = True

Dim wBK as WorkBook
Set wBK = Workbooks.Open("C:\\test.xlsx")

wBK.Sheets("Rapport").Activate
Set Rng = wBK.ActiveSheet.Range("A1:E76")

Rng.Copy

With wd.Range
    .Collapse Direction:=0                  'Slutet av dokumentet
    .InsertParagraphAfter                   'Lägg till rad
    .Collapse Direction:=0                  'Slutet av dokumentet
    .PasteSpecial False, False, True        'Pasta som Enhanced Metafile
End With
End Sub