excel - VBA 卡在 Workbooks.Open

Question

我正在尝试自动化一个请求表单，表单中的输入将转移到一个单独的 Excel 表
我有这个代码，但错误 91 一直显示，出了什么问题？

Dim book2 As Workbook

book2 = Workbooks.Open("Z:\Requests\Request Form.xlsm")

emptyrow = book2.Sheets("Logs").Range("A1000").End(xlUp).Row+1

book2.Sheets("Logs").Range("A" & emptyrow).Value = ThisWorkbook.Sheets("Request Form").Range("J9:K9").Value

book2.Sheets("Logs").Range("B" & emptyrow).Value = ThisWorkbook.Sheets("Request Form").Range("J12:K9").Value

book2.Sheets("Logs").Range("C" & emptyrow).Value = ThisWorkbook.Sheets("Request Form").Range("C12").Value

Answer 1

book2 是一个工作簿对象。需要设置对象。将第 2 行更改为:

Set book2 = Workbooks.Open("Z:\Requests\Request Form.xlsm")