Excel Startup Problems

[RazerWriter]

Dim exExcel As New Excel.Application
Dim exSheet As Excel.Worksheet

'Point A:
exExcel.Workbooks.Open(strFilename)
exSheet = exExcel.Worksheets(1)

I get a "server has thrown an exception" at point A of the code. What's up with that! This little error has been driving me nuts all day!

[alex_read]

Dim exExcel As Excel.Application
Dim exSheet As Excel.Worksheet
 
' 1) Set the application after the dim declaration as
' this is more efficient.
Set exExcel = new Excel.Application
 
' 2) Do a check to see if the file exists...
If not len(dir(strFilename)) = 0 then
    exExcel.Workbooks.Open(strFilename)
 
    ' 3) Think I'm right in saying you'll need to set the worksheet
    ' object up the 1st time you use it like this...
    set exSheet = exExcel.Worksheets(1)