從指定的複製數據的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