открытие .txt и .bat файлов макросом

[kooleer]

Всем привет.
Может кто то сталкивался или просто знает, как макросом можно открывать .txt и .bat файлы
Т.Е. надо что бы макрос открыл текстовый файл, ну например сделал изменение и сохранил в нём сделаные изменения в фотмате .txt
И самое главное как макросом можно запустить .bat файл, т.е. что бы он сработал.
Заранее большое спасибо откликнувшимся))

[Дмит]

См. справку по 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)

[kooleer]

спасибо за ответ
но у меня проблемы с функцией ShellExecute
выдаёт ошибку:
выделяет - 0& и пишет invalid outside procedure

[Дмит]

Можно проще, без winApi: Shell "C:\a.bat", vbNormalFocus
Cм справку по Shell

0& со спокойной совестью заменяй на просто 0

[kooleer]

Спасибо огромное
Shell "C:\a.bat", vbNormalFocus работает замечательно