Excel Automation Problem

[goonsquad]

I'm writing an Excel Automation app and I'm running to a problem early
on with what should be a basic step.

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim oRng As Excel.Range
oExcel = CreateObject("E xcel.Applicatio n")
oBook = oExcel.Workbook s.Add
oSheet = oBook.Worksheet s(1)
....Populate Sheet...
oRng(Selection, ActiveCell.Spec ialCells(xlLast Cell)).Select()

My application will not compile due to the last line because
Selection, ActiveCell and xlLastCell are not declared. I have added
Excel 10.0 (2002) as a reference. What am I doing wrong?

[Ken Tucker [MVP]]

Hi,

I added a reference to the excel interop assembly. Here is an
example on creating as worksheet. Try to avoid using latebinding.

Dim oExcel As Microsoft.Offic e.Interop.Excel .Application

Dim oBook, oBook1 As Microsoft.Offic e.Interop.Excel .Workbook

Dim oSheet As Microsoft.Offic e.Interop.Excel .Worksheet

'Start a new workbook in Excel.

oExcel = New Microsoft.Offic e.Interop.Excel .Application

oBook = oExcel.Workbook s.Add

oBook1 = oExcel.Workbook s.Add

'Add data to cells of the first worksheet in the new workbook.

oSheet = CType(oBook.Wor ksheets(1),
Microsoft.Offic e.Interop.Excel .Worksheet)

oSheet.Range("A 1").Value = "Last Name"

oSheet.Range("B 1").Value = "First Name"

oSheet.Range("C 1").Value = "Price"

oSheet.Range("A 1:B1").Font.Bol d = True

oSheet.Range("A 2").Value = "Doe"

oSheet.Range("B 2").Value = "John"

oSheet.Range("C 2").Value = 12345.456

oSheet.Range("C 2").Cells.Numbe rFormat = "$0.00"

oSheet = CType(oBook.Wor ksheets(2),
Microsoft.Offic e.Interop.Excel .Worksheet)

oSheet.Range("A 1").Value = "Last Name"

oSheet.Range("B 1").Value = "First Name"

oSheet.Range("C 1").Value = "Price"

oSheet.Range("A 1:B1").Font.Bol d = True

oSheet.Range("A 2").Value = "Doe"

oSheet.Range("B 2").Value = "John"

oSheet.Range("C 2").Value = 12345.456

oSheet.Range("C 2").Cells.Numbe rFormat = "$0.00"

'Save the Workbook and quit Excel.

oExcel.DisplayA lerts = False

oBook.SaveAs("c :\Book1.xls")

oSheet = Nothing

oBook = Nothing

oExcel.Quit()

oExcel = Nothing

GC.Collect()

Ken
---------------------
"goonsquad" <jb******@sakon .com> wrote in message
news:e5******** *************** ***@posting.goo gle.com...
I'm writing an Excel Automation app and I'm running to a problem early
on with what should be a basic step.

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim oRng As Excel.Range
oExcel = CreateObject("E xcel.Applicatio n")
oBook = oExcel.Workbook s.Add
oSheet = oBook.Worksheet s(1)
....Populate Sheet...
oRng(Selection, ActiveCell.Spec ialCells(xlLast Cell)).Select()

My application will not compile due to the last line because
Selection, ActiveCell and xlLastCell are not declared. I have added
Excel 10.0 (2002) as a reference. What am I doing wrong?

[Jorge]

Hi
Try
oSheet.oRng(Sel ection, ActiveCell.Spec ialCells
(xlLastCell)).S elect()

Kind Regards
Jorge

-----Original Message-----
I'm writing an Excel Automation app and I'm running to a problem earlyon with what should be a basic step.

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim oRng As Excel.Range
oExcel = CreateObject("E xcel.Applicatio n")
oBook = oExcel.Workbook s.Add
oSheet = oBook.Worksheet s(1)
....Populate Sheet...
oRng(Selection , ActiveCell.Spec ialCells (xlLastCell)).S elect()
My application will not compile due to the last line becauseSelection, ActiveCell and xlLastCell are not declared. I have addedExcel 10.0 (2002) as a reference. What am I doing wrong?
.

[Herfried K. Wagner [MVP]]

* jb******@sakon. com (goonsquad) scripsit:

My application will not compile due to the last line because
Selection, ActiveCell and xlLastCell are not declared. I have added

Make sure the enum containing 'xlLastCell' is imported.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Jeff Burgoon]

Thanks guys!

Using the Excel Interop Assembly I was able to finally get it right.

oRng = oSheet.Range(oE xcel.Selection,
oExcel.Selectio n.End(Microsoft .Office.Interop .Excel.XlDirect ion.xlToRight))
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:ut******** ******@TK2MSFTN GP14.phx.gbl...

* jb******@sakon. com (goonsquad) scripsit:

My application will not compile due to the last line because
Selection, ActiveCell and xlLastCell are not declared. I have added

Make sure the enum containing 'xlLastCell' is imported.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>