Страницы: 1
RSS
Ошибка при присвоении объектной переменной, Вопрос реально по ошибке
 
Всем доброго здоровья!
Столкнулся с такой проблемой: при назначении переменной
Код
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) все равно ошибка :(
 
Цитата
Михаил Витальевич С. написал:
Dim Ws1 As Worksheets
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дмитрий(The_Prist) Щербаков, Спасибо!
выбирал из списка подсказок, и как-то не заметил Worksheet, взял Worksheets? по привычке, наверное.
Страницы: 1
Наверх