Запустить макрос из текстового документа

[Calvin]

Здраствуйте, уважаемые!
Подскажите, можно ли запустить макрос, тело которого находится в *.txt файле?

[GSerg]

Путь первый... Написать полный интерпретатор VB и скормить ему файл...

Путь второй... Программно создать модуль, засадить туда содежимое текстового файла и заюзать команду application.run... Для чего нужно подключить vba extensibility.

[Calvin]

А можно поподробнее, а то я торможу нынче.........

[san*]

Посмотри в предыдущей теме, так кое что есть...А остальное и сам добавишь.

[Calvin]

2 san*
ничего подходящего я вообще в предыдущих темах не вижу.......если ты что-то и узрел, кинь ссылку
2 GSerg
"....Написать полный интерпретатор VB и скормить ему файл.." это как?
"...Для чего нужно подключить vba extensibility..." а это для чего?
ну на счет того, что создать програмно модуль - это я понял

[san*]

Держи

[Calvin]

2 san* спасибо....
но, в строке comp.CodeModule.InsertLines 1, b
при выполнении выдает ошибку "Can't enter break mode at this time"

[san*]

А ты ничего не менял в моей программе или в текстовм файле? А какой у тебя офис?

[Calvin]

я извиняюсь ....просто я запускал макрос в пошаговом режиме и возникала это непонятка (я честно говоря не понял, что это значит)
Спасибо, все работает!!!
ЗЫ 2 GSerg и всеже про интерпритатор ВБ я так и не понял....

[GSerg]

Это путь для постигших Дзен...
Ты можешь с нуля создать язык программирования? Тогда смело используй этот путь

[Vitaly1]

Путь первый... Написать полный интерпретатор VB и скормить ему файл...

Зачем, если есть интерпретирующий текстовую строку VB объект!

Помимо, уже рассмотренного выше объекта, возможно переименовать текстовый файл, и дать ему расширение bas, а затем импортировать его программно в проект, а там уже выполнять.

[MisterX]

Отлично!
Вопрос следующего характера
как быть с файлами *.vbs
Можно их запустить в Excel ?
Он воспомет объект Wscript ?
или как запустить exeШник
или как пописать и почитать РЕЕСТР
из Excell
ЕСТЬ ВОЗМОЖНОСТЬ ?
ШАМАНЫ! ОТВЕТТЕ ПЛИЗ !!

[Vitaly1]

Exe файл запускается оператором Shell, например

[tyomitch]

Shell не оператор, а функция.
"Говорите грамотно!" (с)

[Vitaly1]

Хорошо, инструкция!

[MisterX]

Хорошо, инструкция!

а СИНТАКСИС ?

[Митяй]

Попробовал вставлять модуль из текстового файла при помощи run_script_of_file. И столкнулся с такими непонятками: запятые читаются как конец строки. То есть текст такого вида

ost = DateSerial(god, mes, den)

вставляется как

ost = DateSerial(god
mes
den)

С остальными знаками препинания все нормально.
Кто-нибудь может подсказать, в чем дело?

[KL]

Еще был такой вариант (давно когда-то писал ради смеха). Извиняюсь, но комментарии переводить некогда.

Код: Выделить всё

'------------En un modulo estandar-----------
'Ejemplo de codigo que crea un archivo Prueba.vbs en la misma
'ruta que el archivo *.xls que lo crea. El archivo resultante
'al ser ejecutado abrira este *.xls y lanzara el procedimiento
'"MiMacro" situado en un modulo estandar del mismo.

Sub CrearArchivoVBS()
    Dim strTxt As String
    Dim strNombreArchivo As String
    Dim objFS As Object, objArchivo As Object

    'Establecemos la ruta y el nombre del futuro archivo *.vbs
    strNombreArchivo = ThisWorkbook.Path & "\" & "Prueba.vbs"

    'Creamos el cuerpo del codigo VBS
    strTxt = _
        strTxt & "Set myApp = WScript.CreateObject(""Excel.Application"")" & Chr(13)
    strTxt = _
        strTxt & "Set myBook = myApp.WorkBooks.Open(""" & _
            ThisWorkbook.FullName & """)" & Chr(13)
    strTxt = _
        strTxt & "myApp.Run(""MiMacro"")" & Chr(13)
    strTxt = _
        strTxt & "Set myBook=nothing" & Chr(13)
    strTxt = _
        strTxt & "myApp.Quit" & Chr(13)
    strTxt = _
        strTxt & "Set myApp = Nothing"

    'Creamos el archivo *.vbs y lo llenamos con el codigo
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objArchivo = objFS.CreateTextFile(strNombreArchivo, True)
    objArchivo.WriteLine (strTxt)
    objArchivo.Close
End Sub

'El procedimiento que luego se invocara desde el *.vbs
Sub MiMacro()
    MsgBox "Hola Mundo!"
End Sub
'------------Fin codigo-----------

Sub test()
    CrearArchivoVBS
    Shell "cscript //nologo " & ThisWorkbook.Path & "\Prueba.vbs"
End Sub

[Andrey Fedorov]

а СИНТАКСИС ?

А F1?

Ну нафига спрашивать то что есть в Help-e, притом с примерами?