在VBA GUI程序中包含可执行脚本

Question

我的第一篇文章在这个伟大的Q &一个网站，我希望有人能帮助我。

以DOS格式（script.exe）运行的exe格式的脚本。这个脚本需要一个输入文件来处理，所以在DOS 我需要做“Script.exe输入文件> ouputfile.txt”。

可以在VBA中用几个按钮创建一个简单的GUI，并在VBA应用程序中插入 script.exe？

在可执行的VBA GUI中可以有script.exe文件吗？

我想什么来实现的是有一个文本，要求输入文件和一个按钮来选择要处理 的文件，并且VBA程序运行script.exe的GUI。

Answer 1

您无法使用VBA创建独立的.exe文件。你可能会想到vb而不是vba。

您必须在Office应用程序（通常为Excel/Word/Access/Powerpoint/Outlook）中制作VBA程序。

要做到这一点：

1. 创建一个提交按钮
2. 名称提交按钮“cbSubmit”

3. 下面的代码添加到与用户窗体

   Private Sub cbSubmit_Click() 
   
   Dim myCommand As String 
   Dim myInputArg As String 
   Dim myFile As Office.FileDialog 
   Set myFile = Application.FileDialog(msoFileDialogFilePicker) 
   
   With myFile 
   
       .AllowMultiSelect = False 
   
       ' Set the title of the dialog box. 
       .Title = "Please select the file." 
   
       ' Clear out the current filters, and add our own. 
       .Filters.Clear 
       .Filters.Add "All Files", "*.*" 
   
       ' Show the dialog box. If the .Show method returns True, the 
       ' user picked at least one file. If the .Show method returns 
       ' False, the user clicked Cancel. 
       If .Show = True Then 
       myInputArg = .SelectedItems(1) 'replace txtFileName with your textbox 
   
       End If 
   End With 
   
   'don't continue if user doesn't select something 
   If myInputArg = "" Then Exit Sub 
   'construct shell command 
   myCommand = "Script.exe" & myInputArg & " > ouputfile.txt" 
   
   'run shell command 
   Dim returnVal As Double 
   returnVal = Shell(myCommand, vbHide) 
   
   End Sub 
   

   相关的代码一个用户窗体