從 2 個工作簿復制到 1 個工作簿

Question

得到一個

運行時錯誤 1004

嘗試從兩個不同的工作簿復制到同一個工作簿時

我正在將兩個工作表中的某些單元格復制到一個工作表中。 我嘗試了幾種不同的方法來獲取其他錯誤，所以我回到了這個。

Sub Range_Copy_Examples()

Dim wb As Workbook
Dim wb1 As Workbook
Dim wbData As Range
Dim wbData1 As Range
Dim wbExtract As Range
Dim wbExtract1 As Range

    Set wb = ActiveWorkbook
    Set wbData = wb.Worksheets("GAI").Range("A1")
    Set wbExtract = wb.Worksheets("Report").Range("A3:I3")

    wbData.CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wbExtract

    Set wb1 = ActiveWorkbook
    Set wbData1 = wb1.Worksheets("FUND").Range("H1")
    Set wbExtract1 = wb.Worksheets("Report").Range("J3:K3")

    wbData1.CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wbExtract1

End Sub

Answer 1

它不適用於兩個設置為 ActiweWorkbook 的工作簿，嘗試在存儲此代碼的一個工作簿上將名稱更改為 ThisWorkbook，並使用您嘗試從中復制的另一個工作簿的擴展名填充名稱。

Sub Range_Copy_Examples()

Dim wb As Workbook
Dim wb1 As Workbook
Dim wbData As Range
Dim wbData1 As Range
Dim wbExtract As Range
Dim wbExtract1 As Range

Set wb = ThisWorkbook
Set wbData = wb.Worksheets("GAI").Range("A1")
Set wbExtract = wb.Worksheets("Report").Range("A3:I3")

wbData.CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wbExtract

Set wb1 = Workbooks("TheOtherWorkbook.xls")
Set wbData1 = wb1.Worksheets("FUND").Range("H1")
Set wbExtract1 = wb.Worksheets("Report").Range("J3:K3")

wbData1.CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wbExtract1

結束子