How do you read an excel cell from VB?

[f1car]

I still can't get this code to work.

I thought I was pretty close here, but I can't seem to find a way to get Worksheets("Sheet1&quot to work. I get 'method worksheets failed', after seeing the object browser, I see that I should be using Worksheet instead, but VB won't even recognize it at all.

Dim XLSsheet As Object
Set XLSsheet = GetObject("c:\excelcash1.xls", "excel.sheet&quot
XLSsheet.Application.Visible = True

For rwIndex = 1 to 4
For colIndex = 1 to 10
With Worksheets("Sheet1&quot.Cells(rwIndex, colIndex)
If .Value < .001 Then .Value = 0
End With
Next colIndex
Next rwIndex

I must have 30 VB books here but they don't cover office objects much, what books are you guys using for this mess?

 

[shaddow]

Why dont u use VBasic editor from Excel &quot;ALT + F11&quot;
And u could use code from there...
________

George

 

[GlennBSI]

Never done it the way you have it coded, but here's some old code that I have that used to work. Check this out:

'you can define the object this way...
Dim objExcel as Object
'or you can do it this way...
'Dim objExcel as new Excel.Application
'as long as you have it in your references...
'If you do it that way, you won't do the CreateObject below

'Create Excel Object.
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False

'Start by opening the workbook.
objExcel.Workbooks.Open "c:\excelcash1.xls"

With objExcel.ActiveWorkbook.Worksheets("Sheet1")
    For rwIndex = 1 to 4
        For colIndex = 1 to 10
            If .Cells(rwIndex, colIndex).Value < .001 Then
                .Cells(rwIndex, colIndex).Value = 0
            End If
        Next colIndex
    Next rwIndex
End With

'Close workbook and save changes
objExcel.Workbooks(&quot;excelcash1.xls&quot;).Close saveChanges:=True
'Quit Excel
objExcel.Quit
Set objExcel = Nothing

Note, this is VB code, not VBScript code. If you need vbscript code, I have some of that too, but you might want to post your question in the Visual Basic forum or the VBA forum.