Почему я не могу установить другую рабочую книгу?(Excel VBA) - PullRequest
0 голосов
/ 05 февраля 2019

Макрос прост, но у меня буквально НЕТ ИДЕИ, что идет не так!Я везде ищу ответ, но, видимо, никто другой не сталкивался с такой же проблемой.

Вот оно:

Sub Test()

Dim wkbkP As Workbook
Dim wkbk As Workbook

Set wkbkP = ThisWorkbook 'Principal workbook
Set wkbk = Workbooks.Open("C:\Users\wb\Desktop\source.xlsx")

MsgBox (wkbkP.Name)
MsgBox (wkbk.Name)

End Sub

Идея оригинального макроса в том, чтобы использовать это wkbk в качестве источника для некоторых данных, которые я буду использовать в wkbkP.Во всяком случае, я тестировал, чтобы увидеть, работает ли она, но, по-видимому, она не «читает» или «понимает» эту строку

Set wkbk = Workbooks.Open("C:\Users\wb\Desktop\source.xlsx")

, потому что когда я прошу ее показать имя wkbk в MsgBox, он показывает мне то же имя, что и ThisWorkbook (и нет, это не тот же файл).

Спасибо за помощь!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...