Установка переменной для результата Workbooks.Open

Question

Ниже приведено то, что у меня есть, но я получаю ошибку

Ошибка компиляции: ожидаемый конец оператора.

Set galreqws = Workbooks.Open FileName:=ThisWorkbook.Path & "\galreq.xlsx"

Answer 1

Если вы устанавливаете переменную var для результата метода Workbooks.Open, заключите в скобки ваши параметры.

dim galreqws as workbook    'could also be dim galreqws as object
Set galreqws = Workbooks.Open(FileName:=ThisWorkbook.Path & "\galreq.xlsx")

'alternate
with  Workbooks.Open(FileName:=ThisWorkbook.Path & "\galreq.xlsx")
    debug.print .name
    debug.print .fullname
    debug.print .worksheets(1).name
    'work with galreq.xlsx here
end with

Если вы не устанавливаете переменную объекта, оставьте скобки.

Workbooks.Open FileName:=ThisWorkbook.Path & "\galreq.xlsx"

Answer 2

Нет пробел после Этот :

Sub qwerty()
    Workbooks.Open Filename:=ThisWorkbook.Path & "\qwerty.xlsm"
    Set galreqws = ActiveWorkbook
End Sub

в основном заменяет:

This workbook.Path

на:

ThisWorkbook.Path

(я использую две строки кода, чтобы не запутаться)