Ошибка Excel VBA с использованием WScript.Shell.Run

Question

После обновления с Excel 2010 до Excel 2013 я переместил пользовательскую надстройку (.xlam) в новый каталог Application.LibraryPath (C: \ Program Files \ Microsoft Office 15 \ корень \ office15 \ Library \ BTRTools). Существует немного кода, который запускает исполняемый файл (exe) (находится в подкаталоге надстройки). Однако, поскольку обновления/двигаться, я не получаю сообщение об ошибке:

PrettyPrintXml.exe - Application Error

The application was unable to start correctly (0xc000007b). Click OK to close the application.

Я, очевидно, довольно уверен, что права доступа к файлам. Я явно добавил себе разрешения с полными правами на папку \ Library (и все подмножества). Заметьте, что я должен был сделать это даже с Excel 2010 (папка в C: \ Program Files (x86) \ Microsoft Office \ Office14 \ Library), чтобы все работало.

Однако, после всего этого, я все еще застреваю и не могу запустить exe-файл. Любые идеи/предложения о том, как сделать эту работу?

код является довольно стандартным:

Public Sub RunShellExecute(sFile As String, Optional params As String = "", Optional wait As Boolean = False) 

Dim wsh As Object: Set wsh = VBA.CreateObject("WScript.Shell") 
Dim waitOnReturn As Boolean: waitOnReturn = wait 
Dim windowStyle As Integer: windowStyle = 1 
Dim exe As String: exe = IIf(Left(sFile, 1) <> """", """" & sFile & """", sFile) 
Dim exeParams As String: exeParams = IIf(params <> "", " " & params, "") 
Dim errorCode As Integer: errorCode = wsh.Run(exe & exeParams, windowStyle, waitOnReturn) 

If errorCode = 0 Then 
    '// MsgBox "Done! No error to report." 
Else 
    MsgBox "Program exited with error code " & errorCode & "." 
End If 

End Sub 

Answer 1

Я знаю, что ваш вопрос: «Почему это не работает», но я думал, что вы могли бы быть заинтересованы в альтернативном решении: There is a native VBA PrettyPrintXML. Вам нужно добавить ссылку на библиотеку MSXML в проекте VBA, нажав «Инструменты» ---> «Ссылки ...», а затем установите флажок рядом с Microsoft XML, v6.0 (или любая версия включена в вашу версию Office/Windows).

Answer 2

Вы должны использовать путь без пробелов в нем, что-то простое, как «C: \ BTRTools». Тогда это должно сработать.

Answer 3

Пожалуйста, измените название вопроса, потому что Excel VBA является, способным использовать WScript.Shell.Run, иначе вы не получите свою ошибку.

Что касается актуальной проблемы, это выглядит как 32-разрядная/64-разрядная проблема. Изучите, подходит ли ваша программа для вашей системы и пытается ли она загрузить нужные DLL.

Проблема не в правах доступа к файлам, тогда вы получите другой код состояния.