Hi!
Im using the following code to open another application.
Works fine it´s really slow but it works.
Now i want to use values I gathered in my userform and send them to the program i opened, but i dont know how...
And is there another way of speeding this up sendkeys is very very slow...
Really tricky grateful for any tips, and YES I have read the faq in here!
Im using the following code to open another application.
Works fine it´s really slow but it works.
Now i want to use values I gathered in my userform and send them to the program i opened, but i dont know how...
And is there another way of speeding this up sendkeys is very very slow...
Code:
Sub openjetform()
Dim MyAppID, ReturnValue
Dim DataToSend As String
DataToSend = "some data you want to send to other app"
ReturnValue = Shell("C:\Program\JetForm\filler.exe", vbHide)
AppActivate ReturnValue
Dim AltKey As String
Dim CtrlKey As String
Dim ShiftKey As String
Dim TabKey As String
Dim EnterKey As String
'--------------------------
AltKey = "%"
CtrlKey = "^"
ShiftKey = "+"
TabKey = "{TAB}"
EnterKey = "~"
'--------------------------
start = 0
StopTime = 30000000
While start < StopTime
start = start + 1
Wend
'- Öppna alla förfrågningar
SendKeys CtrlKey & "(o)", False
'- Välj förfrågan arbetsgivare
SendKeys "*.*" + EnterKey
SendKeys ShiftKey + TabKey
SendKeys "{DOWN}"
SendKeys EnterKey
SendKeys TabKey
SendKeys TabKey
SendKeys TabKey
'[b] This is where I want to the value of my textbox[/b]
SendKeys textbox15.value or the value of the variable namnet
End Sub
Really tricky grateful for any tips, and YES I have read the faq in here!