[RESOLVED] Writing to Excel

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? :rolleyes:

Please help.

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

Welcome to the Forums.

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

This will work.

VB Code:

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.

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!