Hello.
I use an econometric program called Stata.
I want a procedure that sends a command to Stata's Command Window.
I have created one but it works sporadically. Perhaps someone has some
suggestions? Maybe an option that does not involve SendKeys?
Here's the code I'm using.

Dim ReturnValue
ReturnValue = Shell("C:\Stata9\wsestata.exe", vbMaximizedFocus)
VBA.Interaction.AppActivate ReturnValue, True
Application.SendKeys "This is the command to send to Stata"

Thanks!
Albert C

Using send keys is generally unreliable. Does Stata have an API allowing you
to interface with the program?
--
HTH...

Jim Thomlinson


"Albert" wrote:

Hello.
I use an econometric program called Stata.
I want a procedure that sends a command to Stata's Command Window.
I have created one but it works sporadically. Perhaps someone has some
suggestions? Maybe an option that does not involve SendKeys?
Here's the code I'm using.

Dim ReturnValue
ReturnValue = Shell("C:\Stata9\wsestata.exe", vbMaximizedFocus)
VBA.Interaction.AppActivate ReturnValue, True
Application.SendKeys "This is the command to send to Stata"

Thanks!
Albert C

Hello Jim.
Unfortunately I've found no DLL or API. There is only a .exe, but when I try
to make the reference in VBA, I get a "Can't make reference to that file"
message.


"Jim Thomlinson" wrote:

Using send keys is generally unreliable. Does Stata have an API allowing you
to interface with the program?
--
HTH...

Jim Thomlinson


"Albert" wrote:

Hello.
I use an econometric program called Stata.
I want a procedure that sends a command to Stata's Command Window.
I have created one but it works sporadically. Perhaps someone has some
suggestions? Maybe an option that does not involve SendKeys?
Here's the code I'm using.

Dim ReturnValue
ReturnValue = Shell("C:\Stata9\wsestata.exe", vbMaximizedFocus)
VBA.Interaction.AppActivate ReturnValue, True
Application.SendKeys "This is the command to send to Stata"

Thanks!
Albert C