Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 29.09.2008, 13:05   #1
Обыватель
Пользователь
 
Регистрация: 21.01.2008
Сообщений: 98
По умолчанию изменение пути к файлу

Вопрос звучит просто:

Есть:

Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\info.log" For Append As #1
Print #1, Application.UserName, Application.ThisWorkbook.Name; Now
Close #1
End Sub

Хочется сделать:

Private Sub Workbook_Open()
Open ThisWorkbook.Path & "С:\протоколирование\info.log" For Append As #1
Print #1, Application.UserName, Application.ThisWorkbook.Name; Now
Close #1
End Sub

но работает только тогда, когда лог-файл находится в одной папке с Workbook

заранее спасибо!
Обыватель вне форума
Старый 29.09.2008, 14:31   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

Вы определитесь! Либо путь к вашему info.log задаётся относительно книги (ThisWorkbook.Path ) - либо - ПОЛНЫЙ (С:\протоколирование\)...
т.е. чтобы файл ifo.log создавался в папке протоколирование (не зависимо от того, где лежит XLS)
попробуйте код:
Код:
Private Sub Workbook_Open()
Open "С:\протоколирование\info.log" For Append As #1
Print #1, Application.UserName, Application.ThisWorkbook.Name; Now
Close #1
End Sub
Serge_Bliznykov вне форума
Старый 30.09.2008, 12:16   #3
Обыватель
Пользователь
 
Регистрация: 21.01.2008
Сообщений: 98
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Вы определитесь! Либо путь к вашему info.log задаётся относительно книги (ThisWorkbook.Path ) - либо - ПОЛНЫЙ (С:\протоколирование\)...
т.е. чтобы файл ifo.log создавался в папке протоколирование (не зависимо от того, где лежит XLS)
попробуйте код:
Код:
Private Sub Workbook_Open()
Open "С:\протоколирование\info.log" For Append As #1
Print #1, Application.UserName, Application.ThisWorkbook.Name; Now
Close #1
End Sub
спасибо большое! это как раз то, что нужно
Обыватель вне форума
Закрытая тема
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определение пути к файлу Pinya Общие вопросы Delphi 1 07.08.2008 11:22
Изменение пути к таблице .dbf Tanuska___:) БД в Delphi 16 22.04.2008 14:52
Пути к данным Лубышев Общие вопросы Delphi 3 21.01.2008 18:56
Системные пути Lonix Общие вопросы Delphi 8 14.09.2007 16:10


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS