How to reference individual cells in Excel via VBA

[Ronny Sigo]

Hello all,
Could anybody help me referencing individual cells in excel? I don't know
what I do wrong here (but I'm not familiar with excel vba) (Microsoft Excel
10.0 Object library is referenced)
Any help very much appreciated
Thanks
Ronny

Private Sub btnTargetAffGro upEmailImport_C lick()
Dim MyXL As Object
Dim ExcelWasNotRunn ing As Boolean
On Error Resume Next ' Defer error trapping.
Set MyXL = GetObject(, "Excel.Applicat ion")
If Err.Number <> 0 Then ExcelWasNotRunn ing = True
Err.Clear
DetectExcel ' I HAVE PASTED THIS FUNCTION BELOW .....
Set MyXL = GetObject("U:\M IJNTEST.XLS")
MyXL.Applicatio n.Visible = True
MyXL.Parent.Win dows(1).Visible = True
'HERE I HAVE TO REFERENCE THE INDIVIDUAL CELLS
MyXL.cell(2, 2) = "Een"
MyXL.cell(2, 3) = "Twee"
MyXL.cell(2, 4) = "Drie"
MyXL.cell(2, 5) = "Vier"

If ExcelWasNotRunn ing = True Then
MyXL.Applicatio n.Quit
End If

Set MyXL = Nothing ' Release reference to the
' application and spreadsheet.

End Sub
Public Function DetectExcel()
' Procedure dectects a running Excel and registers it.
Const WM_USER = 1024
Dim hWnd As Long
' If Excel is running this API call returns its handle.
hWnd = FindWindow("XLM AIN", 0)
If hWnd = 0 Then ' 0 means Excel not running.
Exit Function
Else
' Excel is running so use the SendMessage API
' function to enter it in the Running Object Table.
SendMessage hWnd, WM_USER + 18, 0, 0
End If
End Function

[PC Datasheet]

From my file:

See below my SIG
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdata sheet.com
www.pcdatasheet.com

Refer To A Specific Cell In An Excel Worksheet

ObjWkb.Workshee ts(1).Cells(Row , Col).Value

Row = Integer, specifying the row number

Col = Integer, specifying the column number
"Ronny Sigo" <ro********@sky net.be> wrote in message
news:40******** *************** @feed0.news.be. easynet.net...

Hello all,
Could anybody help me referencing individual cells in excel? I don't know
what I do wrong here (but I'm not familiar with excel vba) (Microsoft Excel
10.0 Object library is referenced)
Any help very much appreciated
Thanks
Ronny

Private Sub btnTargetAffGro upEmailImport_C lick()
Dim MyXL As Object
Dim ExcelWasNotRunn ing As Boolean
On Error Resume Next ' Defer error trapping.
Set MyXL = GetObject(, "Excel.Applicat ion")
If Err.Number <> 0 Then ExcelWasNotRunn ing = True
Err.Clear
DetectExcel ' I HAVE PASTED THIS FUNCTION BELOW .....
Set MyXL = GetObject("U:\M IJNTEST.XLS")
MyXL.Applicatio n.Visible = True
MyXL.Parent.Win dows(1).Visible = True
'HERE I HAVE TO REFERENCE THE INDIVIDUAL CELLS
MyXL.cell(2, 2) = "Een"
MyXL.cell(2, 3) = "Twee"
MyXL.cell(2, 4) = "Drie"
MyXL.cell(2, 5) = "Vier"

If ExcelWasNotRunn ing = True Then
MyXL.Applicatio n.Quit
End If

Set MyXL = Nothing ' Release reference to the
' application and spreadsheet.

End Sub
Public Function DetectExcel()
' Procedure dectects a running Excel and registers it.
Const WM_USER = 1024
Dim hWnd As Long
' If Excel is running this API call returns its handle.
hWnd = FindWindow("XLM AIN", 0)
If hWnd = 0 Then ' 0 means Excel not running.
Exit Function
Else
' Excel is running so use the SendMessage API
' function to enter it in the Running Object Table.
SendMessage hWnd, WM_USER + 18, 0, 0
End If
End Function

[Ronny Sigo]

Works great! Thank you!

"PC Datasheet" <sp**@nospam.sp am> schreef in bericht
news:p8******** **********@news read3.news.atl. earthlink.net.. .

From my file:

See below my SIG
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdata sheet.com
www.pcdatasheet.com

Refer To A Specific Cell In An Excel Worksheet

ObjWkb.Workshee ts(1).Cells(Row , Col).Value

Row = Integer, specifying the row number

Col = Integer, specifying the column number
"Ronny Sigo" <ro********@sky net.be> wrote in message
news:40******** *************** @feed0.news.be. easynet.net...

Hello all,
Could anybody help me referencing individual cells in excel? I don't know what I do wrong here (but I'm not familiar with excel vba) (Microsoft Excel 10.0 Object library is referenced)
Any help very much appreciated
Thanks
Ronny

Private Sub btnTargetAffGro upEmailImport_C lick()
Dim MyXL As Object
Dim ExcelWasNotRunn ing As Boolean
On Error Resume Next ' Defer error trapping.
Set MyXL = GetObject(, "Excel.Applicat ion")
If Err.Number <> 0 Then ExcelWasNotRunn ing = True
Err.Clear
DetectExcel ' I HAVE PASTED THIS FUNCTION BELOW .....
Set MyXL = GetObject("U:\M IJNTEST.XLS")
MyXL.Applicatio n.Visible = True
MyXL.Parent.Win dows(1).Visible = True
'HERE I HAVE TO REFERENCE THE INDIVIDUAL CELLS
MyXL.cell(2, 2) = "Een"
MyXL.cell(2, 3) = "Twee"
MyXL.cell(2, 4) = "Drie"
MyXL.cell(2, 5) = "Vier"

If ExcelWasNotRunn ing = True Then
MyXL.Applicatio n.Quit
End If

Set MyXL = Nothing ' Release reference to the
' application and spreadsheet.

End Sub
Public Function DetectExcel()
' Procedure dectects a running Excel and registers it.
Const WM_USER = 1024
Dim hWnd As Long
' If Excel is running this API call returns its handle.
hWnd = FindWindow("XLM AIN", 0)
If hWnd = 0 Then ' 0 means Excel not running.
Exit Function
Else
' Excel is running so use the SendMessage API
' function to enter it in the Running Object Table.
SendMessage hWnd, WM_USER + 18, 0, 0
End If
End Function