Имя книги Excel

[Maks the best]

Всем привет!

Есть вопросик, никак не додуматься ...

присваиваю переменной [a] путь к файлу:

Код: Выделить всё


Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
    dlgOpen.AllowMultiSelect = False
    If dlgOpen.Show = -1 Then
    a = dlgOpen.SelectedItems(1)
   Else
   End If
    Set dlgOpen = Nothing

получаю [a] типо:
C:\Documents and Settings\1\Рабочий стол\1.xls

а есть какой человеческий вариант отделить от этого [1.xls] и проверить [1.xls] это книга Excel или, скажем если там [sdfs.txt], узнать что это не книга Excel ?

Вот

[uhm]

Substr - подстрока
InStrRev - нахождение последнего вхождения одной строки в другую

Соответственно, InStrRev'ом находишь последний слэш в а, все, что после - это имя файла. Потом в имени файла ищешь InStrRev'ом точку, если нашел, то все, что после - это расширение файла.

[Maks the best]

Огромное тебе спасибо
чудо свершилось

[Maks the best]

Слушай а мне что то никак:
как дальше из циферки допустим x=41:
X = InStrRev(a, "\")
получить человеческий вид окончания этой строки (ыяваы.xls)...
Substr просто у меня чего то как оператор признаков жизни подавать не хочет...

[uhm]

Сорри, прогнал - слишком уже много языков программирования в голове перемешались

Не SubStr, а Mid$ (или Right$) естественно. Пишешь что-то вроде X=Right$(a,Len(a)-InStrRev(a,"\"))

[Maks the best]

ай шайтан...
огромное тебе ещё раз )))