SendKeys到Excel输入框（VBA）

Question

我尝试做的是运行一个打开excel工作簿的VBA文件，启动一个带输入框的宏，在该输入框中输入文本，按回车键，然后宏继续运行。< / p>

到目前为止我用的是＆＃34; GetData＆＃34;是宏的名称：

strPath = "C:\Users\Test\Desktop\ExcelFile.xlsm" 
strMacro = "GetData"

Set objApp = CreateObject("Excel.Application") 
objApp.Visible = True

Set wbToRun = objApp.Workbooks.Open(strPath) 
objApp.Run strMacro

objApp.SendKeys "Sample"
objApp.SendKeys "~"

我遇到的问题是，在宏运行完毕之后，SendKeys才会激活。输入框出现后，它会一直停留在那里直到我关闭它。这导致宏没有做什么，然后单词＆＃34; Sample＆＃34;进入一个单元格然后＆＃34;输入＆＃34;被压了。

我的问题是：如何让SendKeys在输入框中输入值？

Answer 1

您在SendKeys上不使用InputBox，只需指定默认值：

x = InputBox("Prompt", "Title", "Default Value")

如果这不符合您的需求，那么它会变得更复杂一些。让您的调用程序在调用宏之前将值写入文件，然后让宏将该文件读入InputBox然后用作其默认值的变量。

但是，如果它也是＆＃34;按下输入＆＃34;那么首先使用InputBox有什么意义呢？这似乎毫无意义。