0
我想要做的是运行一个VBA文件,打开一个Excel工作簿,用输入框启动宏,在该输入框中输入文本,按下回车,然后宏继续运行。SendKeys到Excel输入框(VBA)
我已到目前为止,这是用“的GetData”是宏的名称:
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不激活之后才宏运行完成。输入框出现后,它会一直呆在那里,直到我关闭它。这导致宏不做任何事情,然后单词“Sample”被输入到单元格中,然后按下“Enter”键。
我的问题是:我如何让SendKeys在输入框中输入值?
你可以把宏'strmacro'改成像strfunction这样的函数(inputboxtext as string),然后当调用函数发送你想要的输入框中的文本?当然,不再需要输入框了。 – Max