none
Вопрос по Visual Basic, почему выдает ошибку на строке Sheets(SheetNamSheet).Activate RRS feed

  • Общие обсуждения

  • Помогите разобраться, не могу понять почему выдает ошибку в строке Sheets(SheetNamSheet).Activate. В отчетах проверила, все вроде бы верно.

    Workbooks.Open FileName:=Disk & PatNam & FilFind(i)

    datfile = ActiveWorkbook.Name
    Sheets(SheetNamSheet).Activate
    NamSheet = Cells(RowNamSheet, ColNamSheet).Value


    F = False
    For Each List In Workbooks(SysFil).Sheets
     If List.Name = NamSheet Then F = True
    Next List

    If Not F Then
     Workbooks(SysFil).Sheets("Шаблон").Copy Before:=Workbooks(SysFil).Sheets(1)
     Workbooks(SysFil).ActiveSheet.Name = NamSheet
     Workbooks(SysFil).ActiveSheet.Cells(3, 2).Value = NamSheet
    End If

        Workbooks(datfile).Sheets(NamWorkSheet).Activate


    j = 4
    While Workbooks(SysFil).Sheets("Шаблон").Cells(j, 1).Value <> "end"
    If Cells(j, 2).Value <> Workbooks(SysFil).Sheets("Шаблон").Cells(j, 2).Value Then
     MsgBox ("Структура шаблона и файла " & datfile & " не совпадают в " & j & " строке")
     GoTo 2
    End If
    j = j + 1
    Wend



    9 ноября 2015 г. 8:17

Все ответы

  • Делу тут явно не в VB. Вы используете какое-то API. Что такое Workbooks? Из какой технологии и т.д. Проблема кроется в этом, а не в языке.

    Или это VBA?


    VB.Net - WPF, UWP

    9 ноября 2015 г. 8:51
    Отвечающий