Команда оболочки вызова в Excel 2010 VBA

Question

Когда я вызываю команду оболочки в vba, программа открывается так же, как и в командной строке, но ничего не происходит и результаты не получаются. Похоже, я не могу понять, и мне нужна помощь.

Команда, которая работает

C:\Program Files\BioDiscovery\ImaGene 9.0>ImaGene.exe -batch "C:\Users\cmccabe\Desktop\EmArray\Design\test_11_19_2015.bch" 

Моя попытка в Excel 2010 с помощью VBA (который открывает программу и командной строки, но не выполняет команду).

Dim Par As String 

Par = "dir c:\Program Files\BioDiscovery\ImaGene 9.0\ImaGene.exe -batch "C:\Users\cmccabe\Desktop\EmArray\Design\imagene.bch" 
Call Shell("C:\WINDOWS\system32\cmd.exe /c " & Par, 1) 
MsgBox ("ImaGene analysis complete") 

Answer 1

Не может быть лучшим ответом, но нижеследующее решение работает для меня в аналогичной ситуации.

открыть блокнотом "C: \ Program Files \ BioDiscovery \ ImaGene 9.0 \ ImaGene.exe" -batch "C: \ Users \ cmccabe \ Desktop \ EmArray \ Дизайн \ imagene.bch" сохранить как говорят, «тест. летучая мышь»

В первенствует называют этот .bat файл Dim wshell As Object

Set wshell = CreateObject ("wscript.shell") wshell.Run Chr (34) & "полный путь \ test.bat"

Надеюсь, это поможет.