vba - 从一个工作簿复制到另一个工作簿时出现运行时错误 438

Question

我正在运行此代码以将数据从一个工作簿复制到另一个主工作簿，但在第 12 行不断收到运行时错误 438。这是怎么回事？提前致谢!

 1     Sub copydata()
 2     Dim wbk As Workbook
 3     Dim wbk2 As Workbook
 4     strFirstFile = Userform1.path.Text
 5     Set wbk2 = ThisWorkbook
 6     Set wbk = Workbooks.Open(strFirstFile)
 7     With wbk.Sheets(1)
 8      Cells(1, 1).Activate
 9         ActiveCell.CurrentRegion.Select
10         Selection.Copy
11     End With
12     wbk2.Sheets("UAL").Range("G1").Paste
13     Application.CutCopyMode = False
14     wbk.Close
15     
16     End Sub

Answer 1

Range不支持方法Paste .使用此模式:

Selection.Copy Destination:=wbk2.Sheets("UAL").Range("G1")

或者您可以使用 PasteSpecial :

wbk2.Sheets("UAL").Range("G1").PasteSpecial xlPasteAll

顺便说一句，避免使用 Select陈述。您可以使用这个代替第 7-12 行(这在您的代码中不正确，因为您在 . 之前错过了句点 Cells(1, 1) 等):

With wbk.Sheets(1)
     .Cells(1, 1).CurrentRegion.Copy Destination:=wbk2.Sheets("UAL").Range("G1")
End With