browse select open the excel file

[indswamy]

i am trying to browse select open the file
i have error in appExcel line object value set to nothing.
could you help me

Set appExcel = CreateObject("Excel.Application")
appExcel = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a file")


If appExcel Is Nothing Then
MsgBox ("Could not open Excel.")
Exit Sub
End If

appExcel.DisplayAlerts=false

 

[SkipVought]

Hi,

  Dim appExcel as object, sName, xlWkbk as Object
  Set appExcel = CreateObject("Excel.Application")
  sName = appExcel.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a file")

All that GetOpenFilename does is get a STRING that is the name of a workbook.

So then...

if sName <> False then
  set xlWkbk = appExcel.Workbooks.Open(sName)
end if

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[indswamy]

thanks Skip