[RESOLVED] Writing to Excel

[Set me As newtype]

Hi guys -

I got the following from vb5 help:

Dim ExcelSheet As Object

Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"

I get an error on the last line: "Object doesn't support this property or method." What's wrong?

Please help.

[Dave Sell]

Exactly which version of the Excel control do you have referenced?

[RobDog888]

Welcome to the Forums.

What version of Excel are you using? Do you need to support different versions of Excel?

This will work.

Option Explicit
 
Private Sub Command1_Click()
    Dim oApp As Object
    Dim oWB As Object
    Dim oSht As Object
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    Set oWB = oApp.Workbooks.Add
    Set oSht = oWB.Sheets("Sheet1")
    oSht.Cells(1, 1).Value = "This is column A, row 1"
    oWB.Close SaveChanges:=True, FileName:="C:\Book1.xls"
    Set oSht = Nothing
    Set oWB = Nothing
    oApp.Quit
    Set oApp = Nothing
End Sub

Moved from Classic VB forum.

[Set me As newtype]

Thanks! That was quick - and it worked!

FYI, I am using Access 97 and have the Excel 8.0 Reference installed in vb5 Pro.

Salud!