Проверка тот ли файл открыт
Подобная проверка в VBA очень похожа на проверку в StarBasic. Рассмотрим код:
Sub Prov()
'Устанавливаем ячейку для проверки - лист 1 ячейка F1
oCelles = ActiveWorkbook.Worksheets(1).Range("F1")
'Устанавливаем поисковую фразу
If oCelles <> "Название контрагента" Then
'Сообщение в случае ошибки
MsgBox "Данный файл не является отчетом" & Chr$(13) & "Реестр документов по МХ, либо имеет поврежденную структуру" & Chr$(13) & "Экспортируйте необходимый отчет и откройте его", 16, "Предупреждение:"
Exit Sub
End If
End Sub
Важно! Обратите внимание - нумерация листов (как ячеек и столбцов) в VBA начинается с единицы, а не с нуля как в StarBasic
Sub Prov()
'Устанавливаем ячейку для проверки - лист 1 ячейка F1
oCelles = ActiveWorkbook.Worksheets(1).Range("F1")
'Устанавливаем поисковую фразу
If oCelles <> "Название контрагента" Then
'Сообщение в случае ошибки
MsgBox "Данный файл не является отчетом" & Chr$(13) & "Реестр документов по МХ, либо имеет поврежденную структуру" & Chr$(13) & "Экспортируйте необходимый отчет и откройте его", 16, "Предупреждение:"
Exit Sub
End If
End Sub
Важно! Обратите внимание - нумерация листов (как ячеек и столбцов) в VBA начинается с единицы, а не с нуля как в StarBasic
Комментарии
Отправить комментарий