对象variables或块variables未设置 – 错误

我正在运行一个简单的VBA代码如下：

Sub TransferData() 'transfer stuff from workbook 1 to workbook 2 Dim strPath1 As String Dim strPath2 As String Dim wbkWorkbook1 As Workbook Dim wbkWorkbook2 As Workbook 'define paths and filenames strPath1 = "C:\blp\data\grid1.xls" strPath2 = "Z:\24AM\Risk Managemen\Risk Management Processes.xlsm" 'copy the values across wbkWorkbook2.Worksheets("FXDUMP").Range("A1:Z2000").Value = wbkWorkbook1.Worksheets("Book1").Range("A1:Z2000").Value 'close the two workbooks wbkWorkbook1.Close (False) wbkWorkbook2.Close (True) End Sub 

但是当我尝试运行macros，我得到这个错误消息：

对象variables或块variables未设置

你能给我一个input来解决这个问题吗？

预先感谢。

Answer 1

在代码中包含以下语句，它将打开Excel表格并将variables分配给Excel表格

 Set wbkWorkbook1 = Workbooks.Open(Filename:=strPath1) Set wbkWorkbook2 = Workbooks.Open(Filename:=strPath2)