Ole Automation With VB

[newbie1983]

i would like to automate a vba program into vb. Id like to use an OLE object as an excel worksheet on the vb form but how do i 'communicate' with the object? ive set the relevent project/references. Will the following commands like textstream and xlcell.offset still be legal?

Regards
Hinesh

 

[paulbent]

Use the control's Object property to return the Excel Workbook object itself from which you can code against the Excel object model in the usual way.

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk

 

[newbie1983]

Paul,

Can you show me some example code to illustrate that?

Regards ,
Hinesh

 

[AndyWatt]

Project \ References \ Microsoft Excel 8.0 Object Library

Dim objXlApp As Excel.Application
Set objXlApp = New Excel.Application
... etc. ...
... etc. ...

Andy
"Logic is invincible because in order to combat logic it is necessary to use logic." -- Pierre Boutroux
"A computer program does what you tell it to do, not what you want it to do." -- Greer's Third Law

 

[strongm]

No, that's not what the original question was asking nor what paulbent was saying.

[tt]
Option Explicit
Private WithEvents myExcel As Excel.Workbook

Private Sub Command1_Click()
myExcel.Activate
myExcel.ActiveSheet.Range("A1&quot = "All OK"
End Sub

Private Sub Form_Load()
Set myExcel = OLE1.object
End Sub
[/tt]

 

[newbie1983]

Paul,

OLE1 is the excelworksheet object. I cant seem to get it to work. Any ideas?

Private Sub Form_Load()
Dim objXlApp As Excel.Application
Set objXlApp = New Excel.Application

Me.OLE1.object = objXlApp

objXlApp.Cells(1, 0) = "testing"


End Sub


Kind Regards
Hinesh

 

[newbie1983]

Thanks Strongm! works a charm!


Regards Hinesh

 

[strongm]

Tum ti tum

 

[AndyWatt]

Sorry, strongm, I'm not reading posts properly again. Perhaps I should take a remedial course.

Andy
"Logic is invincible because in order to combat logic it is necessary to use logic." -- Pierre Boutroux
"A computer program does what you tell it to do, not what you want it to do." -- Greer's Third Law