How do I open the Excel Application

[rb9999]

I frequently use Access to populate raw data in Excel spreadsheets then use Excel to report them. How do I open Excel with a particular spreadsheet running upon open? I don't always know where the Excel executable is, I would think there is a variable or something.

Any advice appreciated.

 

[longhair]

rb9999,

in ms vba help lookup "microsoft_excel". the DDESend function may be what you are looking for.
hth
regards,

longhair

 

[cghoga]

if that doesn't work try this:

'''''''''
Dim excelpath As String
Dim filepath As String

'excelpath is where on your computer excel.exe resides
excelpath = "C:\Program Files\Microsoft Office\Office\Excel.exe"
filepath = "YourFilePathGoesHere"

Call Shell(excelpath & " " & filepath, 1)
'''''''''

hope this helps.

 

[VBslammer]

Function ShowExcel(ByVal strFile As String) As Boolean
On Error GoTo ErrHandler

  Dim xl As Excel.Application
  Dim wb As Excel.Workbook
  Dim sht As Excel.Worksheet
  Dim rng As Excel.Range
  
  If Dir(strFile) = "" Then
    ShowExcel = False
    GoTo ExitHere
  End If
  
  Set xl = New Excel.Application
  Set wb = xl.Workbooks.Open(strFile, Editable:=True, AddToMru:=False)
  Set sht = wb.Sheets(1)
  Set rng = sht.Range("A1")
  
  xl.Visible = True
  ShowExcel = True
    
ExitHere:
  Exit Function
ErrHandler:
  MsgBox "Error: " & Err & " - " & Err.Description
  Resume ExitHere
End Function

VBSlammer

Unemployed in Houston, Texas