VPF::Открытие текстового файла - Форум программистов

olga90

Дата 21.3.2008, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 59
Регистрация: 30.1.2007

Репутация: нет
Всего: нет

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

при простом указании файла как 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 2
Всего: 3

Код


ThisWorkbook.Path

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

--------------------

Vingrad - FOREVER !!!

"Как вы яхту назовете - так она и поплывет!"
Капитан Врунгель

olga90

Дата 21.3.2008, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 59
Регистрация: 30.1.2007

Репутация: нет
Всего: нет

СПАСИБО

LOPUH

Дата 21.3.2008, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Растение

Профиль
Группа: Участник
Сообщений: 245
Регистрация: 15.2.2008
Где: Красноярск

Репутация: 3
Всего: 4

Код


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

эх опоздал..

Это сообщение отредактировал(а) LOPUH - 21.3.2008, 10:23

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »