使用Excel-VBA宏从工作簿复制时出现运行时错误“1004”

Question

我试图实现一个简单的Excel-VBA宏，让用户在文件资源管理器中浏览另一个工作簿，然后将该工作簿中的某些单元格复制到我的活动工作簿中。下面是我的简短代码：

Sub Load_AutoCADBOM()

   Dim wbk As Workbook

   Dim MyFile As String
   MyFile = Application.GetOpenFilename()

   If MyFile <> "False" Then
      Set wbk = Workbooks.Open(MyFile)
      With wbk.Sheets(1)
         Range("B2:C43").Copy
      End With

  ActiveWorkbook.Close


  With ThisWorkbook.Worksheets("Config")
     Range("A6:B47").PasteSpecial Paste:=xlPasteValues
  End With
   End If

End Sub

该宏用于从所选工作簿(B2:C43)复制单元格，并将其复制到当前工作簿“配置”表上的单元格(A6:B47)中。当我运行宏时，我得到“运行时错误'1004':Range类的PasteSpecial方法失败”。调试器突出显示行：

     Range("A6:B47").PasteSpecial Paste:=xlPasteValues

Answer 1

如果只想复制值，则可以跳过复制/粘贴，直接从源范围设置值：

Sub Load_AutoCADBOM()

   Dim wbk As Workbook
   Dim MyFile As String
   MyFile = Application.GetOpenFilename()

   If MyFile <> "False" Then
        Set wbk = Workbooks.Open(MyFile)
        With wbk.Sheets(1).Range("B2:C43")
            ThisWorkbook.Worksheets("Config").Range("A6").Resize(.rows.count, .columns.count).value = .Value
        End With
        wbk.Close
    End If

End Sub