Как получить имя файла?

[Мозоль]

Нужно будет сохранить новосозданную книгу с именем импортированого из тхт файла, который открывается через

Код:

MyFile = Application.GetOpenFilename("(*.txt),*.txt)")

Как получить его имя?

[HandKot]

в MyFile уже будет имя файла, правда с путем

чтобы отсечь путь, можно сделать так

Код:

    a = Split(MyFile, "\")
    Имя_без_пути = a(UBound(a))

[Мозоль]

Спасибо

[klaus]

А если при этом нужно поменять расширение, с txt на xls, например?

[HandKot]

сделать Replace .xls на .txt

[Алексей++]

надёжнее будет найти точку с конца файла, удалить всё после неё, затем приписать требуемое расширение )