i am new to programming.
I want to run a program and if it gives an error the OK button should be
pressed automaticly

Any help to this???

I know that I must use API but how to I activate API in excel?

Hi,

Please give us more info on what you are doing, like the code. For one
thing, you don't need to call an API to click an OK button. You should just
build in an error trap, an error handler to deal with the error, and that can
all be done in Excel.


--
Thanks,
Shane Devenshire


"Johan" wrote:

> i am new to programming.
> I want to run a program and if it gives an error the OK button should be
> pressed automaticly
>
> Any help to this???
>
> I know that I must use API but how to I activate API in excel?

Something like this is my code:

Dim Shell
Set Shell = CreateObject("WScript.Shell")
Shell.Run "c:\battest\vbimport", 1
SendKeys "{enter}"

The file vbimport gives an error, and I want to send the key Enter to the
message box.

Thanks
ShaneDevenshire skrev:

> Hi,
>
> Please give us more info on what you are doing, like the code. For one
> thing, you don't need to call an API to click an OK button. You should just
> build in an error trap, an error handler to deal with the error, and that can
> all be done in Excel.
>
>
> --
> Thanks,
> Shane Devenshire
>
>
> "Johan" wrote:
>
> > i am new to programming.
> > I want to run a program and if it gives an error the OK button should be
> > pressed automaticly
> >
> > Any help to this???
> >
> > I know that I must use API but how to I activate API in excel?

Try
SendKeys "~", True
instead of SendKeys "{enter}"
--
Always provide your feedback so that others know whether the solution worked
or problem still persists ...


"Johan" wrote:

> Something like this is my code:
>
> Dim Shell
> Set Shell = CreateObject("WScript.Shell")
> Shell.Run "c:\battest\vbimport", 1
> SendKeys "{enter}"
>
> The file vbimport gives an error, and I want to send the key Enter to the
> message box.
>
> Thanks
> ShaneDevenshire skrev:
>
> > Hi,
> >
> > Please give us more info on what you are doing, like the code. For one
> > thing, you don't need to call an API to click an OK button. You should just
> > build in an error trap, an error handler to deal with the error, and that can
> > all be done in Excel.
> >
> >
> > --
> > Thanks,
> > Shane Devenshire
> >
> >
> > "Johan" wrote:
> >
> > > i am new to programming.
> > > I want to run a program and if it gives an error the OK button should be
> > > pressed automaticly
> > >
> > > Any help to this???
> > >
> > > I know that I must use API but how to I activate API in excel?

vbimport is a chortcut to a program.

Steve Yandl skrev:

> What type of file is vbimport? Does it have a file extension (you may not
> see the file extension if Windows Explorer is set to hide extensions of
> known file types but the extension may be important here)? Is vbimport a
> batch file or a vbScript file or something else?
>
> Steve Yandl
>
> "Johan" <(E-Mail Removed)> wrote in message
> newsC6BCAF3-8156-41DA-AAE7-(E-Mail Removed)...
> > Something like this is my code:
> >
> > Dim Shell
> > Set Shell = CreateObject("WScript.Shell")
> > Shell.Run "c:\battest\vbimport", 1
> > SendKeys "{enter}"
> >
> > The file vbimport gives an error, and I want to send the key Enter to the
> > message box.
> >
> > Thanks
> > ShaneDevenshire skrev:
> >
> >> Hi,
> >>
> >> Please give us more info on what you are doing, like the code. For one
> >> thing, you don't need to call an API to click an OK button. You should
> >> just
> >> build in an error trap, an error handler to deal with the error, and that
> >> can
> >> all be done in Excel.
> >>
> >>
> >> --
> >> Thanks,
> >> Shane Devenshire
> >>
> >>
> >> "Johan" wrote:
> >>
> >> > i am new to programming.
> >> > I want to run a program and if it gives an error the OK button should
> >> > be
> >> > pressed automaticly
> >> >
> >> > Any help to this???
> >> >
> >> > I know that I must use API but how to I activate API in excel?
>
>
>

Did you try SendKeys "~", True?
--
Always provide your feedback so that others know whether the solution worked
or problem still persists ...


"Johan" wrote:

> vbimport is a chortcut to a program.
>
> Steve Yandl skrev:
>
> > What type of file is vbimport? Does it have a file extension (you may not
> > see the file extension if Windows Explorer is set to hide extensions of
> > known file types but the extension may be important here)? Is vbimport a
> > batch file or a vbScript file or something else?
> >
> > Steve Yandl
> >
> > "Johan" <(E-Mail Removed)> wrote in message
> > newsC6BCAF3-8156-41DA-AAE7-(E-Mail Removed)...
> > > Something like this is my code:
> > >
> > > Dim Shell
> > > Set Shell = CreateObject("WScript.Shell")
> > > Shell.Run "c:\battest\vbimport", 1
> > > SendKeys "{enter}"
> > >
> > > The file vbimport gives an error, and I want to send the key Enter to the
> > > message box.
> > >
> > > Thanks
> > > ShaneDevenshire skrev:
> > >
> > >> Hi,
> > >>
> > >> Please give us more info on what you are doing, like the code. For one
> > >> thing, you don't need to call an API to click an OK button. You should
> > >> just
> > >> build in an error trap, an error handler to deal with the error, and that
> > >> can
> > >> all be done in Excel.
> > >>
> > >>
> > >> --
> > >> Thanks,
> > >> Shane Devenshire
> > >>
> > >>
> > >> "Johan" wrote:
> > >>
> > >> > i am new to programming.
> > >> > I want to run a program and if it gives an error the OK button should
> > >> > be
> > >> > pressed automaticly
> > >> >
> > >> > Any help to this???
> > >> >
> > >> > I know that I must use API but how to I activate API in excel?
> >
> >
> >

The problem is that the code moves on before I got the error code, How do I
get the code to wait

Sheeloo skrev:

> Did you try SendKeys "~", True?
> --
> Always provide your feedback so that others know whether the solution worked
> or problem still persists ...
>
>
> "Johan" wrote:
>
> > vbimport is a chortcut to a program.
> >
> > Steve Yandl skrev:
> >
> > > What type of file is vbimport? Does it have a file extension (you may not
> > > see the file extension if Windows Explorer is set to hide extensions of
> > > known file types but the extension may be important here)? Is vbimport a
> > > batch file or a vbScript file or something else?
> > >
> > > Steve Yandl
> > >
> > > "Johan" <(E-Mail Removed)> wrote in message
> > > newsC6BCAF3-8156-41DA-AAE7-(E-Mail Removed)...
> > > > Something like this is my code:
> > > >
> > > > Dim Shell
> > > > Set Shell = CreateObject("WScript.Shell")
> > > > Shell.Run "c:\battest\vbimport", 1
> > > > SendKeys "{enter}"
> > > >
> > > > The file vbimport gives an error, and I want to send the key Enter to the
> > > > message box.
> > > >
> > > > Thanks
> > > > ShaneDevenshire skrev:
> > > >
> > > >> Hi,
> > > >>
> > > >> Please give us more info on what you are doing, like the code. For one
> > > >> thing, you don't need to call an API to click an OK button. You should
> > > >> just
> > > >> build in an error trap, an error handler to deal with the error, and that
> > > >> can
> > > >> all be done in Excel.
> > > >>
> > > >>
> > > >> --
> > > >> Thanks,
> > > >> Shane Devenshire
> > > >>
> > > >>
> > > >> "Johan" wrote:
> > > >>
> > > >> > i am new to programming.
> > > >> > I want to run a program and if it gives an error the OK button should
> > > >> > be
> > > >> > pressed automaticly
> > > >> >
> > > >> > Any help to this???
> > > >> >
> > > >> > I know that I must use API but how to I activate API in excel?
> > >
> > >
> > >

Here is the complete code
Sub testSendKeys()
Dim ReturnValue
ReturnValue = Shell(c:\battest\vbimport,1)
AppActivate ReturnValue
SendKeys "~" , TRUE
End Sub


--
Always provide your feedback so that others know whether the solution worked
or problem still persists ...


"Johan" wrote:

> The problem is that the code moves on before I got the error code, How do I
> get the code to wait
>
> Sheeloo skrev:
>
> > Did you try SendKeys "~", True?
> > --
> > Always provide your feedback so that others know whether the solution worked
> > or problem still persists ...
> >
> >
> > "Johan" wrote:
> >
> > > vbimport is a chortcut to a program.
> > >
> > > Steve Yandl skrev:
> > >
> > > > What type of file is vbimport? Does it have a file extension (you may not
> > > > see the file extension if Windows Explorer is set to hide extensions of
> > > > known file types but the extension may be important here)? Is vbimport a
> > > > batch file or a vbScript file or something else?
> > > >
> > > > Steve Yandl
> > > >
> > > > "Johan" <(E-Mail Removed)> wrote in message
> > > > newsC6BCAF3-8156-41DA-AAE7-(E-Mail Removed)...
> > > > > Something like this is my code:
> > > > >
> > > > > Dim Shell
> > > > > Set Shell = CreateObject("WScript.Shell")
> > > > > Shell.Run "c:\battest\vbimport", 1
> > > > > SendKeys "{enter}"
> > > > >
> > > > > The file vbimport gives an error, and I want to send the key Enter to the
> > > > > message box.
> > > > >
> > > > > Thanks
> > > > > ShaneDevenshire skrev:
> > > > >
> > > > >> Hi,
> > > > >>
> > > > >> Please give us more info on what you are doing, like the code. For one
> > > > >> thing, you don't need to call an API to click an OK button. You should
> > > > >> just
> > > > >> build in an error trap, an error handler to deal with the error, and that
> > > > >> can
> > > > >> all be done in Excel.
> > > > >>
> > > > >>
> > > > >> --
> > > > >> Thanks,
> > > > >> Shane Devenshire
> > > > >>
> > > > >>
> > > > >> "Johan" wrote:
> > > > >>
> > > > >> > i am new to programming.
> > > > >> > I want to run a program and if it gives an error the OK button should
> > > > >> > be
> > > > >> > pressed automaticly
> > > > >> >
> > > > >> > Any help to this???
> > > > >> >
> > > > >> > I know that I must use API but how to I activate API in excel?
> > > >
> > > >
> > > >

Thanks but now I got an error on this line:
ReturnValue = Shell("c:\battest\vbimport", 1)

saying:
Object does not support this property or metode

Hope you can help the beginner!!!

Thanks
Johan
Sheeloo skrev:

> Here is the complete code
> Sub testSendKeys()
> Dim ReturnValue
> ReturnValue = Shell(c:\battest\vbimport,1)
> AppActivate ReturnValue
> SendKeys "~" , TRUE
> End Sub
>
>
> --
> Always provide your feedback so that others know whether the solution worked
> or problem still persists ...
>
>
> "Johan" wrote:
>
> > The problem is that the code moves on before I got the error code, How do I
> > get the code to wait
> >
> > Sheeloo skrev:
> >
> > > Did you try SendKeys "~", True?
> > > --
> > > Always provide your feedback so that others know whether the solution worked
> > > or problem still persists ...
> > >
> > >
> > > "Johan" wrote:
> > >
> > > > vbimport is a chortcut to a program.
> > > >
> > > > Steve Yandl skrev:
> > > >
> > > > > What type of file is vbimport? Does it have a file extension (you may not
> > > > > see the file extension if Windows Explorer is set to hide extensions of
> > > > > known file types but the extension may be important here)? Is vbimport a
> > > > > batch file or a vbScript file or something else?
> > > > >
> > > > > Steve Yandl
> > > > >
> > > > > "Johan" <(E-Mail Removed)> wrote in message
> > > > > newsC6BCAF3-8156-41DA-AAE7-(E-Mail Removed)...
> > > > > > Something like this is my code:
> > > > > >
> > > > > > Dim Shell
> > > > > > Set Shell = CreateObject("WScript.Shell")
> > > > > > Shell.Run "c:\battest\vbimport", 1
> > > > > > SendKeys "{enter}"
> > > > > >
> > > > > > The file vbimport gives an error, and I want to send the key Enter to the
> > > > > > message box.
> > > > > >
> > > > > > Thanks
> > > > > > ShaneDevenshire skrev:
> > > > > >
> > > > > >> Hi,
> > > > > >>
> > > > > >> Please give us more info on what you are doing, like the code. For one
> > > > > >> thing, you don't need to call an API to click an OK button. You should
> > > > > >> just
> > > > > >> build in an error trap, an error handler to deal with the error, and that
> > > > > >> can
> > > > > >> all be done in Excel.
> > > > > >>
> > > > > >>
> > > > > >> --
> > > > > >> Thanks,
> > > > > >> Shane Devenshire
> > > > > >>
> > > > > >>
> > > > > >> "Johan" wrote:
> > > > > >>
> > > > > >> > i am new to programming.
> > > > > >> > I want to run a program and if it gives an error the OK button should
> > > > > >> > be
> > > > > >> > pressed automaticly
> > > > > >> >
> > > > > >> > Any help to this???
> > > > > >> >
> > > > > >> > I know that I must use API but how to I activate API in excel?
> > > > >
> > > > >
> > > > >

I manage to create focus to the program, but when I send the key nothing is
happening.

Any help?

Johan

Johan skrev:

> Thanks but now I got an error on this line:
> ReturnValue = Shell("c:\battest\vbimport", 1)
>
> saying:
> Object does not support this property or metode
>
> Hope you can help the beginner!!!
>
> Thanks
> Johan
> Sheeloo skrev:
>
> > Here is the complete code
> > Sub testSendKeys()
> > Dim ReturnValue
> > ReturnValue = Shell(c:\battest\vbimport,1)
> > AppActivate ReturnValue
> > SendKeys "~" , TRUE
> > End Sub
> >
> >
> > --
> > Always provide your feedback so that others know whether the solution worked
> > or problem still persists ...
> >
> >
> > "Johan" wrote:
> >
> > > The problem is that the code moves on before I got the error code, How do I
> > > get the code to wait
> > >
> > > Sheeloo skrev:
> > >
> > > > Did you try SendKeys "~", True?
> > > > --
> > > > Always provide your feedback so that others know whether the solution worked
> > > > or problem still persists ...
> > > >
> > > >
> > > > "Johan" wrote:
> > > >
> > > > > vbimport is a chortcut to a program.
> > > > >
> > > > > Steve Yandl skrev:
> > > > >
> > > > > > What type of file is vbimport? Does it have a file extension (you may not
> > > > > > see the file extension if Windows Explorer is set to hide extensions of
> > > > > > known file types but the extension may be important here)? Is vbimport a
> > > > > > batch file or a vbScript file or something else?
> > > > > >
> > > > > > Steve Yandl
> > > > > >
> > > > > > "Johan" <(E-Mail Removed)> wrote in message
> > > > > > newsC6BCAF3-8156-41DA-AAE7-(E-Mail Removed)...
> > > > > > > Something like this is my code:
> > > > > > >
> > > > > > > Dim Shell
> > > > > > > Set Shell = CreateObject("WScript.Shell")
> > > > > > > Shell.Run "c:\battest\vbimport", 1
> > > > > > > SendKeys "{enter}"
> > > > > > >
> > > > > > > The file vbimport gives an error, and I want to send the key Enter to the
> > > > > > > message box.
> > > > > > >
> > > > > > > Thanks
> > > > > > > ShaneDevenshire skrev:
> > > > > > >
> > > > > > >> Hi,
> > > > > > >>
> > > > > > >> Please give us more info on what you are doing, like the code. For one
> > > > > > >> thing, you don't need to call an API to click an OK button. You should
> > > > > > >> just
> > > > > > >> build in an error trap, an error handler to deal with the error, and that
> > > > > > >> can
> > > > > > >> all be done in Excel.
> > > > > > >>
> > > > > > >>
> > > > > > >> --
> > > > > > >> Thanks,
> > > > > > >> Shane Devenshire
> > > > > > >>
> > > > > > >>
> > > > > > >> "Johan" wrote:
> > > > > > >>
> > > > > > >> > i am new to programming.
> > > > > > >> > I want to run a program and if it gives an error the OK button should
> > > > > > >> > be
> > > > > > >> > pressed automaticly
> > > > > > >> >
> > > > > > >> > Any help to this???
> > > > > > >> >
> > > > > > >> > I know that I must use API but how to I activate API in excel?
> > > > > >
> > > > > >
> > > > > >