excel - 尝试将数据从一个工作簿复制到 Excel 中的另一个工作簿

Question

我正在尝试在 Excel 中创建一个宏，允许我将数据从一个工作簿复制并粘贴到另一个工作簿。工作簿名称总是不同的，所以我使用 GetOpenFilename() 方法并将其存储在一个变量中，这样我就可以专门选择我想要的工作簿。但是，我收到运行时 9 错误。

这是到目前为止的代码。（macro1 只是​​我创建的另一个处理数字的宏）

Sub Everything()

Dim f1 As String 
Dim f2 As String 
Dim wb1 As Workbook
Dim wb2 As Workbook

f1 = Application.GetOpenFilename(FileFilter:="Excel Files,*xl*;*xm*;")
Set wb1 = Workbooks.Open(f1)

f2 = Application.GetOpenFilename(FileFilter:="Excel Files,*xl*;*xm*;")
Set wb2 = Workbooks.Open(f2)

Call Macro1

Workbooks(wb2.Name).Worksheets("Sheet1").Range("D4:D25").Copy _
Workbooks(wb1.Name).Worksheets("Sheet1").Range("E11:E32")

End Sub

我在最后两行代码中遇到运行时错误。请帮忙，谢谢！

标签： excelvba