How to control Excel from Word

[josedeman]

This code works fine in Excel when I put it in a macro. When I put the same code in a Word macro I get an error while executing.
Excel:
Sub testnummer()
Range("A2").Select
Selection.End(xlDown).Select
End Sub

Word (the code crashes at the last line):
Private Sub cmdOpslaan_Click()
Dim oExcel As Excel.Application
Dim excWorkbook As Excel.Workbook

Set oExcel = CreateObject("Excel.Application")
Set excWorkbook = oExcel.Workbooks.Open("c:\mysheet.xls")
oExcel.Visible = True

excWorkbook.Worksheets(1).Range("A2").Select
Selection.End(xlDown).Select
End Sub

Does anybody hav any idea why this doesn't work?

 

[PHV]

Replace this:
Selection.End(xlDown).Select
By this:
oExcel.Selection.End(xlDown).Select

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[xlbo]

need to qualify "SELECTION" to that in the workbook rather than in the Wrod doc.

excWorkbook.Worksheets(1).Range("A2").Select
excWorkbook.Selection.End(xlDown).Select


Rgds, Geoff

Three things are certain. Death, taxes and lost data. DPlank is to blame

Please read FAQ222-2244 before you ask a question

 

[josedeman]

Thanks you both!