Launch Excel from Access Module

[Preston5]

I've read what has been archived about this topic and am trying this line of code:

Call Shell("C:\Win32App\MSOffice\Office\EXCEL.EXE" & Chr(34) & "c:\DeleteMe\" & strComboClient & "_Chart.xls&quot

The "strComboClient" is a variable passed from a combo box that builds a name for each spreadsheet. I can build the filename--I just can't seem to launch Excel and open the worksheet file.

Here's the error that I keep getting: "5 Invalid procedure call or argument."

 

[Databaseguy]

You'd probably be better off using automation. That way, you could manipulate the objects in Excel and pass data and commands back and forth between Access and Excel.

The following looks up a corresponding file name in a table and loads an excel document.

Private Sub cmdCalDatasheet_Click()
'This sub displays an excel document based on variables in the form
'Dim objects and variables
Dim dbs
Dim RST
Dim strSQL
Dim objExcel As Object
Dim File
File = Me.txtCal_DSHT
Set dbs = CurrentDb
'Check for empty string or zeros
If File <> &quot;0&quot; And Not File Then ' No Zeros and not null
'Look up file name value in tblDocument
strSQL = &quot;SELECT tblDocument2.FileID, tblDocument2.File FROM tblDocument2 WHERE (((tblDocument2.FileID)=&quot; & File & &quot;))&quot;
Set RST = dbs.OpenRecordset(strSQL)
'Grab the Document name
File = RST.Fields(&quot;File&quot;).Value
'Launch word
Set objExcel = New Excel.Application
With objExcel
    'Open the file
    .Workbooks.Open FileName:=File
    'Make it visible
    .Visible = True
End With
'Maximize the window
objExcel.Application.WindowState = xlMaximized
Else
'Nothing there, display a message box
MsgBox &quot;There is no current Calibration Datasheet on file &quot;, vbOKOnly
End If
Set RST = Nothing
Set objExcel = Nothing
Set dbs = Nothing
'End Sub
End Sub

Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy