Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Открытие текстового файла

Автор: olga90 21.3.2008, 08:56

Мне нужно открыть текстовый файл
Этот файл будет всегда находиться в той же папке, что и экселевский файл

при простом указании файла как filename.txt выдается сообщение, что файл не найден
Если указывать абсолютный путь к файлу (с:\filename.txt), то все - ок

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

Код


dim fso as new filesystemobject
dim ts as textstream
set ts = fso.opentextfile("filename.txt", forwriting, true)

Автор: ИгнатьевАлексей 21.3.2008, 09:16

Код


ThisWorkbook.Path

дает папку Экселевского файла

Автор: olga90 21.3.2008, 09:35

СПАСИБО

Автор: LOPUH 21.3.2008, 10:15

Код


dim fso as new filesystemobject
dim ts as textstream
Dim  nm as string, fpath as string

nm  = "filename.txt"
fpath  =  ThisWorkbook.Path & "\" &  nm

set ts = fso.opentextfile(fpath, forwriting, true)

Тоже самое, только более развернуто smile

эх опоздал..