Если расширение файла равно .xls, то MsgBox

Question

Я написал скрипт VBA, который выполняет различные функции сортировки/сопоставления/фильтрации для клиента с большим объемом данных (от 45 000 до 500 000 строк).

Проблема заключается в том, что если пользователь экспортирует или сохраняет эти данные как, скажем, файл .xls, будет сохранено только 65 536 строк, что будет потенциально недостаточным. При выполнении сценария я хотел бы показать MsgBox, если пользователь «ошибочно» экспортирует данные в виде файла .xls, иначе продолжите.

Я попытался код ниже, чтобы увидеть, если я могу даже получить расширение файла правильно, но мой MsgBox это ничего не возвращает:

Sub ext() 

Dim extFind As String 
Dim sFile As String 

    Dim FilePath As String 
    FilePath = Application.ActiveWorkbook.Path 
    sFile = Dir(FilePath & Filename & "*") 
    extFind = Right$(sFile, Len(sFile) - InStrRev(sFile, ".")) 
    MsgBox extFind 
End Sub 

Любые предложения будут с благодарностью.

Answer 1

FileSystemObject библиотека имеет GetExtensionName() функцию, чтобы сделать жизнь проще:

With CreateObject("Scripting.FileSystemObject") 
    strExt = .GetExtensionName(ActiveWorkbook.Path) 
End With 

If StrComp(strExt, "xls", vbTextCompare) = 0 Then 
    ' Display error 
End If 

Или, вы можете просто проверить количество строк в книге:

If ActiveSheet.Rows.Count = 65536 Then 
    ' Display error 
End If 

Answer 2

Вы пропустите слэш между FilePath и Filename:

sFile = Dir(FilePath & "\" & Filename & "*") 

Кстати, где вы присвоить значение переменной Filename? Если вы хотите использовать имя активной книги, вы должны использовать ActiveWorkbook.Name.