Сохранить в текущую папку
Open "Date.sql" For Output As #1
так я указываю, подскажите как сделать, чтоб сохранял туда, где находится сам файл Excel.
Есть Excel, в котором я написал макрос сохранения файла, но сохраняет почему-то не в папку с моим документом, а в папку MyDocuments (WinXP Eng).
Open "Date.sql" For Output As #1
так я указываю, подскажите как сделать, чтоб сохранял туда, где находится сам файл Excel.
Я бы попробовал вот так:
Dim FileName as String
FileName = App.Path & "\Date.sql"
Open FileName For Output As #1
Я бы попробовал вот так:
Dim FileName as String
FileName = App.Path & "\Date.sql"
Open FileName For Output As #1
На это он выдёт ошибку:
Run-time error '424'
object required
на строчку FileName = App.Path & "\Date.sql"
На это он выдёт ошибку:
Run-time error '424'
object required
на строчку FileName = App.Path & "\Date.sql"
Да... В Excel-e надо по-другому... А иненно:
Dim FileName As String
FileName = Excel.Application.ActiveWorkbook.Path & "\Date.sql"
Open FileName For Output As #1
Print #1, "bla-bla-bla-bla"
Close #1
Рад был помочь.
Да... В Excel-e надо по-другому... А иненно:
Dim FileName As String
FileName = Excel.Application.ActiveWorkbook.Path & "\Date.sql"
Open FileName For Output As #1
Print #1, "bla-bla-bla-bla"
Close #1
Рад был помочь.
Спасибо!
По ходу дела возник новый вопрос:
Когда записывает в файл Data.sql, то после последней строчки записывается ещё знак переноса строки, нельзя ли, чтоб этот знак не записывался, т.е. чтоб когда открываешь файл, и переходишь в конец файла, то курсор был не на новой строке, а после последней записи.
Спасибо!
По ходу дела возник новый вопрос:
Когда записывает в файл Data.sql, то после последней строчки записывается ещё знак переноса строки, нельзя ли, чтоб этот знак не записывался, т.е. чтоб когда открываешь файл, и переходишь в конец файла, то курсор был не на новой строке, а после последней записи.
Честно сказать не знаю...
А нельзя ли при открытии файла сразу же удалить последний символ?
Может это выход?