Urgent Help on Excel Automation 1

[rewdee]

I'm trying to export data to Excel. I cannot use TransferSpreadSheet because I have to highlight certain cells that contain data. I'm using latebinding but am getting similiar results when I use early binding also. I have taken the following code from the Access 97 help file:

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True

'ExcelSheet.Range("A1").Value = "This is column A, row 1"
ExcelSheet.Workbooks.Worksheets.cells(1, 1) = "Please, Please Work"
[\code]

I get "Object Doesn't support this method or property" error message.  Can anyone explain why this code doesn't work?  

I will be eternally grateful, send an X-mas card, praise their name or anyone other name to anyone who can help me with this.

Thanks,
Rewdee

 

[jebry]

Hi!

Try this:

ExcelSheet.Range("A1&quot.FormulaR1C1 = "Whatever you want"

hth
Jeff Bridgham
bridgham@purdue.edu

 

[rewdee]

Thanks Jeff but I get the same message.

Here's all the code I've tried:

Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True

'ExcelSheet.Range("A1").Value = "This is column A, row 1"
'ExcelSheet.Workbooks.Worksheets.cells(1, 1) = "Please, Please Work"
ExcelSheet.Range("A1").FormulaR1C1 = "Whatever you want"

I'm goint to try on a different machine because as far as I can tell all the code snippets should work.

Rewdee

 

[jitter]

I don't really know but I know your code won't work on my machine either. You can always do it using the whole Excel object model.

You might use the following:


Dim xl As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xl = CreateObject("Excel.Application&quot
Set xlBook = xl.Workbooks.Add
Set xlSheet = xlBook.Worksheets("Sheet1&quot

xl.Visible = True

xlSheet.Cells(1, 1).Value = "Test"


I hope this helps....

 

[rewdee]

Well Jitter may your name be praised among those who work with Access Automation. I owe you a X-mas card.

But why does this work, Oh well I'm too busy trying to finish to meet a deadline to find out why.

Thanks,
Rewdee