Opening the Excel file using VBA

manoj.mcans said:

its execute fine and but didnot open the excel file

---On Btn Click event------------
Private Sub Command0_Click()
Call ExcelInstance
End Sub

-----Check the excel file is runing or not------
Function IsExcelRunning() As Boolean
Dim xlApp As Excel.Application
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
IsExcelRunning = (Err.Number = 0) <---- what are you doing here?
Set xlApp = Nothing
Err.Clear
End Function

------Opening the excel file-------------------------
Public Sub ExcelInstance()
Dim xlApp As Excel.Application
Dim ExcelRunning As Boolean
ExcelRunning = IsExcelRunning() <---- do you get the boolean that you need here!?
If ExcelRunning Then <---- don't you need a "= TRUE" portion here?
Set xlApp = GetObject(, "Excel.Application")
Else
Set xlApp = CreateObject("Excel.Application")
End If
xlApp.Workbooks.Open "Path of File with folder name", True, False
If Not ExcelRunning Then xlApp.Quit
Set xlApp = Nothing
End Sub

Click to expand...

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

xlApp.visible = TRUE

xlApp.Workbooks.Open "Path of File with folder name", True, False

set xlApp = NOTHING

ajetrumpet said:

maybe a shorter version of this that would open the book would be this (in ONE function):

Code:

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.visible = TRUE
xlApp.Workbooks.Open "Path of File with folder name", True, False
set xlApp = NOTHING

Click to expand...

[B]Dim xlApp As [COLOR="Red"]Excel.Application[/COLOR] [/B]
Change to:
[B]Dim xlApp As [COLOR="Blue"]Object [/COLOR][/B]