Всем доброго здоровья!
Столкнулся с такой проблемой: при назначении переменной
Код |
---|
set Ws1=Set Ws1 = Wb.ActiveSheet |
возникает ошибка.
Код |
---|
Sub test()
Dim Arr(), myPath$, sFiles, sFolder$, a, R&, Stock(), R1, K&
Dim BaseCross As New Collection, Articul$, Kross$
Dim i&, iNames$, Articul2$, iCros As Object, Kei$, Flag As Boolean
Dim Wb As Workbook
Dim Ws1 As Worksheets
Dim Ws2 As Worksheets
' Application.ScreenUpdating = False
ThisWorkbook.Worksheets(1).Copy
Set Wb = ActiveWorkbook
Set Ws1 = Wb.ActiveSheet 'Здесь ошибка
Set iCros = CreateObject("Scripting.Dictionary")
End Sub
|
что я делаю не так?
Пробовал по-разному; и просто
ActiveSheet, и
Wb.Worksheets(1) все равно ошибка