Dim WB As Workbook
Dim WS As Worksheet
Set WB = Workbooks("1.xls")
Set WS = WB.Worksheets(1)
Как установить связь с существующим документом
Мне необходимо его привезать к переменной.
Пробую зделать так:
Dim WB As WorkBook
Dim WS As Worksheet
Set WB = Windows("1.xls") - Здесь выдает ошибку
Set WS = WB.Application.Sheets(1)
.........
Как правильно это зделать.
Код:
Цитата:
Originally posted by brovey
Код:
Dim WB As Workbook
Dim WS As Worksheet
Set WB = Workbooks("1.xls")
Set WS = WB.Worksheets(1)
Dim WS As Worksheet
Set WB = Workbooks("1.xls")
Set WS = WB.Worksheets(1)
Спасибо, в самом начале я пробовал через Set WB = Workbook("1.xls"), забыл добавить 's'. А потом решил сделать по другому
Windows("1.xls").Activate
Set WB = ActiveWorkbook
Но, твой вариант однозначно лучше, Спасибо