|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
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 |