Проверка на существование листа Excel

[rebel25]

Закачиваю данные из Excel. Лист должен называться определенным именем. Часто пользователи называют лист по другому и закачка начинает ругаться на непонятном им языке.
Скажите, как проверить что такой лист существует и если нет, сказать пользователю по человечески - а то я не силен в VB?

vb
{
Dim xlApp, curSH
Set xlApp = GetObject ("","Excel.Application")
xlApp.visible = 0
xlApp.WindowState = 2

};
ProcLocal vb.Open_Doc {(path);
xlApp.Workbooks.Open (path)
xlApp.ActiveWorkbook.Worksheets("Лист1").Activate
xlApp.WindowState = 2
};
ProcLocal vb.Close_Doc {();
xlApp.Workbooks.Close
xlApp.Quit
};

[Joenka]

Используйте Dir :

Вот пример, как в самом Excel в макросе это работает:

If Dir("C:\1.xls") <> "" Then
MsgBox "Файл есть!"
Else
MsgBox "Файла нет!"
End If

[rebel25]

[Joenka]

Ааааааааа!!!!

Сорь!!!!


Тогда вот:

"true_sheet" - правильное имя!

For i = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(i).Name = "true_sheet" Then
t = True ' признак что есть такой лист
Exit For
End If
Next i



P.S.:
А зачем Вы используете имя листа?
Можно же индекс использовать!

xlApp.ActiveWorkbook.Worksheets(1).Activate
Это 1 лист, ну или какой вам там нужен?

[rebel25]