|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
15.01.2008, 03:26
|
#1 |
|
Пользователь
Регистрация: 27.07.2007
Сообщений: 10
|
Открытие текстового файла
Здравствуйте!
Помогите решить проблему. Имеется макрос, который открывает *.txt, вытягивает из него нужные данные и закрывает его. Макрос открывает файл примерно вот такой командой: Workbooks.OpenText Filename:="D:\Work\Victor\blablabla .txt" и т.д. Суть вопроса такова: -Как сделать загрузку файла не привязанной к диску. То есть, сделать папку в которой лежит экселевский файл корневой. Знаю что сделать можно, но не знаю как. Приблизительно что-то связанно с такой командой: iSource$ = ThisWorkbook.Path & "" PS: А то получилось так, что пришлось воспользоваться своей флешкой с другой машины, она другим диском встала. И все пути сбились сразу... |
|
|
15.01.2008, 04:55
|
#2 |
|
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Синтаксис такой:
Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & "blablabla.txt" Или, что корректнее: Workbooks.OpenText Filename:=ThisWorkbook.Path & Application.PathSeparator & "blablabla.txt"
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 15.01.2008 в 10:43. Причина: Добавлено |
|
|
|
16.01.2008, 03:42
|
#3 |
|
Пользователь
Регистрация: 27.07.2007
Сообщений: 10
|
Огромное Вам спасибо!
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Delphi Редактирование текстового файла | Starscream | Общие вопросы Delphi | 11 | 18.02.2008 17:15 |
| Чтение пунктов TreeView из текстового файла | DEVDITS | Компоненты Delphi | 2 | 20.05.2007 21:49 |
| Печать текстового файла на сетевой принтер | VAbramyak | Общие вопросы Delphi | 3 | 06.04.2007 20:16 |
