Открыть 2 выделенных XLS файла с помощью BAT

[Евгений Таб]

Привет коллеги.

Помогите пожалуйста решить проблему. Добавил в контекстное меню *BAT файл в котором прописал :

PHP код:

start C:\Users\Vanya\Desktop\Solution\ZIP\VORTEX.xlsm 


Выделяю два файла XLS и нажимаю открыть с помощью этого батника в надежде что откроется *BAT, а потом эти два файла, но к сожалению ничего не происходит, вернее запускается только батник, а эти два файла нет .

Где-то откопал макрос в VBS, который проработал не долго :

PHP код:

Dim objExcel
 
ActivateExcel
 
Set args = WScript.Arguments
for each f in args
if instr(f,".xls") then
Set objWorkbook = objExcel.Workbooks.Open(f)
end if
next
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Vanya\Desktop\Solution\ZIP\VORTEX.xlsm")
 
Private Function ActivateExcel()
On Error resume next 
Set objExcel = GetObject(, "Excel.Application")
If objExcel Is Nothing Then
   Set objExcel = CreateObject("Excel.Application")
   objExcel.Visible = True
End If
End Function 


но результат такой же.

Подскажите пож-ста в как решить эту проблему.

Заранее спасибо

[Hugo121]

И чего это vbs проработал недолго? Если ему скармливать xls то он может работать бесконечно...
Нужно ли всегда открывать VORTEX.xlsm - другой вопрос, надеюсь Вы понимаете что делаете

[Евгений Таб]

Да, нужно всегда его открывать. Идея как раз в этом.
Я не понимаю почему он перестал работать. Пробывал просто "бросать" два файла и на VBS и на BAT, но "брошенные" или открытые через открыть с помощью, файлы не открываются... открывается только BAT или VBS

[Hugo121]

У меня открывает брошенные xls файлы, не вижу проблемы.

[Евгений Таб]

Мистика... может в реестре что-то нужно подправить... ума не приложу почему... только файлы xlsx, я пробывал и так и так.

[Hugo121]

Сообщение от Евгений Таб

Мистика... только файлы xlsx, я пробывал и так и так.

и впрямь мистика - тут уже 4 (четыре!) раза говорилось про XLS, и вдруг откуда ни возьмись xlsx!
Хотя в данном случае должно работать и с ними...
Но в этой реализации влияет регистр - поправьте код чтоб сравнивалось с lcase()

if instr(lcase(f),".xls") then

[Евгений Таб]

Полет супер ))) Cпасибо!