使用Sendkey传递变量

Question

我正在运行一个宏来调用一个屏幕并输入一个日期。如何将用户输入变量从VBA (日期)传递到BlueZone字段？

我尝试过使用shell命令，但遇到错误...不过，我不认为这是正确的方法。

Sub RunReportUserDate()

Dim bzhao, WshShell As Object

Set WshShell = WScript.CreateObject("WScript.Shell")
myDate = InputBox("Enter Date", "mmddyy")

Set bzhao = CreateObject("BZWhll.WhllObj")
bzhao.Connect ""

bzhao.SendKey "<PF3>"
bzhao.WaitForString "0m" & Chr(27) & "[14;15H", 30
bzhao.SendKey "a"
bzhao.WaitForString Chr(27) & "[C", 30
bzhao.SendKey "r"
bzhao.WaitForString Chr(27) & "[C", 30
bzhao.SendKey "d"
bzhao.WaitForString Chr(27) & "[C", 30
bzhao.SendKey "a"
bzhao.WaitForString Chr(27) & "[C", 30
bzhao.SendKey "a"
bzhao.WaitForString "7H" & Chr(27) & "[16;15H", 30
bzhao.SendKey "<Enter>"
bzhao.WaitForString "er." & Chr(27) & "[6;36H", 30
bzhao.SendKey "<Tab>"
bzhao.WaitForString "er." & Chr(27) & "[6;52H", 30
bzhao.SendKey "<Tab>"
bzhao.WaitForString "rt." & Chr(27) & "[8;52H", 30
bzhao.SendKey "<Tab>"
bzhao.WaitForString "  " & Chr(27) & "[10;36H", 30
bzhao.SendKey "<Tab>"
bzhao.WaitForString "r." & Chr(27) & "[10;52H", 30
bzhao.SendKey "<Tab>"
bzhao.WaitForString "  " & Chr(27) & "[12;52H", 30


WshShell.SendKeys myDate

'bzhao.SendKey "<Numpad1>"
'bzhao.WaitForString "12;53H" & Chr(27) & "[0m", 30
'bzhao.SendKey "<Numpad0>"
'bzhao.WaitForString "[0;7m0" & Chr(27) & "[0m", 30
'bzhao.SendKey "<PF2>"
'bzhao.SendKey "<Numpad1>"
'bzhao.WaitForString "[0;7m1" & Chr(27) & "[0m", 30
'bzhao.SendKey "<Numpad9>"
'bzhao.WaitForString "[0;7m9" & Chr(27) & "[0m", 30
'bzhao.SendKey "<PF2>"
'bzhao.SendKey "<Numpad1>"
'bzhao.WaitForString "[0;7m1" & Chr(27) & "[0m", 30
'bzhao.SendKey "<Numpad9>"

用户提示应捕获一个变量，例如101919，并将其输入到BlueZone的日期字段中。

Answer 1

Sub RunARDAA()

Dim bzhao As Object

myDate = InputBox("Enter Date", "mmddyy")

Set bzhao = CreateObject("BZWhll.WhllObj")
bzhao.Connect ""

bzhao.SendKey "<PF3>"
bzhao.SendKey "ARDAA"
bzhao.SendKey "<enter>"
bzhao.SendKey "<tab>"
bzhao.SendKey "<tab>"
bzhao.SendKey "<tab>"
bzhao.SendKey "<tab>"
bzhao.SendKey "<tab>"

bzhao.SendKey myDate

bzhao.SendKey "<tab>"
bzhao.SendKey " "
bzhao.SendKey "<tab>"
bzhao.SendKey " "
bzhao.SendKey "<enter>"
bzhao.SendKey "<enter>"

bzhao.SendKey "<PF3>"
bzhao.SendKey "SPRRA"
bzhao.SendKey "<enter>"
bzhao.SendKey "<enter>"


End Sub

不需要声明另一个objetc，bzhao.sendkey将识别来自VBA的存储变量。