如何使用 VBA 打开 Console App 然后输入数据？

Question

我制作了一个简单的控制台应用程序，它接收输入的数据，将数据转换为正确的格式，然后将其提交到在线数据库。控制台应用只需要输入数据，剩下的就交给它了。

例如，我会输入如下内容：“描述文本 [Enter]”、“客户名称 [Enter]”等。

我有几个 Excel 工作簿，我想使用这个应用程序。但我不知道如何使用 VBA 来执行以下操作：

1. 运行控制台应用程序
2. 从 VBA for Excel 将文本输入控制台应用程序。

我该怎么做？我是否需要为 Excel 添加其他参考？这可能吗？如果这不可行，您会建议做什么？

提前谢谢你！到目前为止，这个社区确实提供了帮助。

Answer 1

理想情况下，您的控制台应用程序将采用 参数 而不是读取行。然后，您可以按照here 的说明简单地从 VBA 调用您的可执行文件。

如果您无法修改控制台应用程序，您可以通过首先使用 VBA 创建一个临时文本文件来解决此问题（本网站上的许多示例）。该文件将包含您通常从键盘提供的输入。然后，您将按照链接答案中的描述调用您的可执行文件，但不是提供参数，而是使用 < 字符将临时文本文件的内容提供给程序：

Public Sub StartExeWithInputFile()
    Dim strProgramName As String
    Dim strInputFile As String

    strProgramName = "C:\Program Files\Test\foobar.exe"
    strInputFile = "C:\Data\TempInputLines.txt" '<== You have to produce this file.

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

编辑 以下是创建上述临时输入文件的示例：

Sub CreateTempInputLines()
    Dim fso As Object
    Dim oFile As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    'See https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/createtextfile-method.
    Set oFile = fso.CreateTextFile("C:\Data\TempInputLines.txt", True)

    oFile.WriteLine "Description text"
    oFile.WriteLine "Customer name"

    'Cleanup.
    oFile.Close
    Set oFile = Nothing
    Set fso = Nothing
End Sub