Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.09.2008, 14: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, 15:31   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Вы определитесь! Либо путь к вашему 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, 13: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
спасибо большое! это как раз то, что нужно
Обыватель вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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