@Arist2

Друзья, есть макрос, никоим образом не использующий книгу Excel. Работает с внешним файлом - следит за его изменением, при наличии нужных изменений запускает внешний исполняемый файл. Вопрос такой - каким образом можно этот vba отвязать от экселя, чтобы он работал самостоятельно, без запуска Excel.

Если просто скопировать код в .vbs, то ошибок море (vbs не поддерживает львиную долю того, что есть в vba), если же делать исполняемый файл через visual studio, то, судя по всему, тоже чуть ли не полностью придется переписывать.

Подскажите, хотя бы в каком направлении копать.

0

@Казанский

Чтобы что-либо подсказать, надо видеть макрос.

0

@Arist2

Собственно, макрос, который нужно переделать в vbs:

sFileName = Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & ".log"
sFileName = "C:\grand\software\" & sFileName

MyLocation = 0

'Открываем для чтения файл логов за сегодняшний день
Open sFileName For Binary Access Read As #1

'Считываем существующий файл логов:
Do While MyLocation < LOF(1)
Line Input #1, textline
MyLocation = Loc(1)
Loop

'Бесконечный цикл, парсящий, ожидая появления искомой строки:
Do
On Error Resume Next 'изменяем обработку ошибок, чтобы игнорировать ошибку чтения конца файла.

Line Input #1, textline
'Если это искомая строка вида 10:04:41[interface] <c t="tp" i="34"></c>
If Right(Left(textline, 33), 25) = "[interface] <c t=" & Chr(34) & "tp" & Chr(34) & " i=" & Chr(34) And _
Right(textline, 6) = Chr(34) & "></c>" Then

'Запускаем программу:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "C:\grand\software\grand.exe", 1, False

End If

On Error GoTo 0
textline = ""
Loop
Close #1

0

@Казанский

Перевести на VBS несложно (судя по 1-й строке код изначально был в VBS, т.к. на VB/VBA проще было бы написать sFileName = Format(Date, "YYYYMMDD.log") ).Все это будет работать и в VB/VBA, за исключением строки 20 - если будете отлаживать, закомментируйте ее.
Чтобы закончить работу скрипта, прибейте процесс wscript.exe в Диспетчере задач.

0