Страница 1 из 1
открытие .txt и .bat файлов макросом
Добавлено: 01 ноя 2011, 11:58
kooleer
Всем привет.
Может кто то сталкивался или просто знает, как макросом можно открывать .txt и .bat файлы
Т.Е. надо что бы макрос открыл текстовый файл, ну например сделал изменение и сохранил в нём сделаные изменения в фотмате .txt
И самое главное как макросом можно запустить .bat файл, т.е. что бы он сработал.
Заранее большое спасибо откликнувшимся))
Re: открытие .txt и .bat файлов макросом
Добавлено: 01 ноя 2011, 13:40
Дмит
См. справку по Open. Простейший пример:
Код: Выделить всё
Dim FileNumber
FileNumber = FreeFile ' Get unused file number.
Open "TEST" For Output As #FileNumber ' Create file name.
Write #FileNumber, "This is a sample." ' Output text.
Close #FileNumber ' Close file.
Для запуска использую winAPI:
Код: Выделить всё
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Call ShellExecute(0&, "Open", "C:\a.bat", "", "", 1)
Re: открытие .txt и .bat файлов макросом
Добавлено: 01 ноя 2011, 13:58
kooleer
спасибо за ответ
но у меня проблемы с функцией ShellExecute
выдаёт ошибку:
выделяет - 0& и пишет invalid outside procedure
Re: открытие .txt и .bat файлов макросом
Добавлено: 01 ноя 2011, 14:09
Дмит
Можно проще, без winApi: Shell "C:\a.bat", vbNormalFocus
Cм справку по Shell
0& со спокойной совестью заменяй на просто 0
Re: открытие .txt и .bat файлов макросом
Добавлено: 01 ноя 2011, 16:44
kooleer
Спасибо огромное
Shell "C:\a.bat", vbNormalFocus работает замечательно