Запуск .exe с использованием VBA

Question

Итак, я создал файл .exe (tlsolver.exe) для запуска с использованием VBA (TLSolver.xlsm). Когда я запускаю .exe, он запускает некоторые вычисления, выплевывает файл csv, а затем я использую VBA для копирования этих данных на лист excel.

Это код VBA Я использую:

Public Sub StartExeWithArgument() 
    Dim strProgramName As String 

    ActiveWorkbook.Save 
    strProgramName = "C:\Users\My.Name\Desktop\Python\Tagless\tlsolver.exe" 

    Call Shell("""" & strProgramName & """", vbNormalFocus) 
End Sub 

При запуске макроса, то выскочит окно консоли, как должно, а затем быстро закрывается. Мне удалось увидеть эту ошибку перед закрытием:

IOError: [Errno 2] No such file or directory: 'TLSolver.xlsm' 

Я знаю, что .exe отлично работает, когда я двойной щелчок мышью на файле регулярно, поэтому я склонен думать, что я Мессинг что-то глупое в VBA ,

Любая помощь оценена!

Редактирование: я знаю, что sub обозначается как StartExeWithArgument, но аргумента не требуется, просто нажмите и запустите.

Answer 1

Команда оболочки выполняется правильно. Запускается exe, а затем ищет файл .xlsm в текущем пути. То, что происходит в том, что он не в состоянии найти TLSolver.xlsm в текущей директории и, следовательно, ошибки IOError: [Errno 2] No such file or directory: 'TLSolver.xlsm'

Три предложения в таком случае.

1. Изменение каталога в VBA с помощью ChDir в каталог, где находится файл Excel проживает, а затем запустить ехе ИЛИ

2. Поместите оба файла в том же каталоге. ИЛИ

3. Перепишите код питона ехе (Это падает из моего опыта, так не может помочь вам здесь) предложит пользователю выбрать файл Excel.

VBA ЧАСТЬ (Предложение 1)

Public Sub StartExeWithArgument() 
    Dim strProgramName As String 
    Dim xlFilePath As String 

    '~~> Path of the excel file. Change as applicable 
    xlFilePath = "C:\Temp" 

    ActiveWorkbook.Save 

    '~~> Change directory 
    ChDir xlFilePath 

    strProgramName = "C:\Users\My.Name\Desktop\Python\Tagless\tlsolver.exe" 

    Call Shell("""" & strProgramName & """", vbNormalFocus) 
End Sub