Hello Fivewinners,
I have inserted a button in an Excel xls-File which invokes a Visual-Basic routine.
how can I invoke this routine cmdButton_Click() with ole?
best regards, Norbert
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour call visual-basic routin in an excel .xls
Norbert,
I don't know if this will help but you can try to record a macro, then click your button. Now edit the macro and look at the code, it might give you an idea as to how to incoke from FW.
Jeff
Thanks,
Jeff Barnes
(FWH 16.11, xHarbour 1.2.3, Bcc730)
Jeff Barnes
(FWH 16.11, xHarbour 1.2.3, Bcc730)
Jeff,
good idea but the click on the button isn't recorded in the Macro.
Norbert
Jeff Barnes wrote:Norbert,
I don't know if this will help but you can try to record a macro, then click your button. Now edit the macro and look at the code, it might give you an idea as to how to incoke from FW.
Jeff
good idea but the click on the button isn't recorded in the Macro.
Norbert
Try recording a macro.
Then record another macro that runs the first macro.
Then debug code and you will find something like
Application.Run "Book1!Macro1"
Maybe this gives you a clue.
Gale FORd wrote:Try recording a macro.
Then record another macro that runs the first macro.
Then debug code and you will find something like
Application.Run "Book1!Macro1"
Maybe this gives you a clue.
Unfortunately, this doesn't work either since the keystroke isn't recorded in the macro.
I would like simply to fill a table with values and then reprocess these data by a routine which I have put on a key.
Private Sub cmdCreateBeleg_Click()
If (bOLAnmeldung) Then
'MsgBox "Anmeldung erfolgreich"
bAngemeldet = True
End If
ReadCells
If bAngemeldet Then
bOk = bSetBelegKopf
bOk = bSetPositionen
bOk = bSaveBeleg
WriteErgebnis
Else
' MsgBox "Sie sind nicht an der Office Line angemeldet."
End If
Clear
End SubIsn't it possible to start a Visual-BASIC routine with OLE, then?
Norbert
Why not put the code that is now in cmdCreateBeleg_Click() in a macro.
Then call the macro from cmdCreateBeleg_Click(), and from external program.
Gale FORd wrote:Why not put the code that is now in cmdCreateBeleg_Click() in a macro.
Then call the macro from cmdCreateBeleg_Click(), and from external program.
Because within this routine further Functionen are invoked.
I have tested it. An error message "Function or Sub not defined" then comes
Norbert
Gale FORd wrote:Why not put the code that is now in cmdCreateBeleg_Click() in a macro.
Then call the macro from cmdCreateBeleg_Click(), and from external program.
I have worked to execute the routine as Macro (simple this Private remove).
Can you still give me a tip as I start a Macro with OLE?
Norbert
This works for me.
function test()
oExcel := TOleAuto():New("Excel.Application")
oExcel:WorkBooks:Open( "H:\My Documents\test.xls" )
oExcel:Visible := .t.
oExcel:Run( "test.xls!Sheet1.CommandButton1_Click" )
return( .t. )Here is the code for my button in sheet1
Sub CommandButton1_Click()
MsgBox "Sie sind nicht an der Office Line angemeldet."
End SubGale FORd wrote:This works for me.function test() oExcel := TOleAuto():New("Excel.Application") oExcel:WorkBooks:Open( "H:\My Documents\test.xls" ) oExcel:Visible := .t. oExcel:Run( "test.xls!Sheet1.CommandButton1_Click" ) return( .t. )
It works. Many thanks to you.
Norbert