Dim xlsPath As String
xlsPath = "C:\"
Workbooks(xlsPath & "Output.xls").Sheets("Output").Range("B2:B6").Copy
我正在尝试上面的代码,但是收到错误。
答案 0 :(得分:0)
为了参考工作簿xlsPath& “Output.xls”,它需要已经在Excel中打开。这在工作簿对象定义here中进行了解释。
...工作簿必须已在Microsoft Excel中打开。
您可能想要做的是使用ExecuteExcel4Macro功能,如之前回答的here。
答案 1 :(得分:0)
已解决 - 我尝试使用以下代码访问数据,而无需打开另一个Excel。
`Application.ScreenUpdating = False Workbooks.Open文件名:=“C:\ Output.xls” 工作簿(“Input.xls”)。工作表(“abc”)。激活
工作簿(“Output.xls”)。关闭SaveChanges:= False`