Open random excel spreadsheet from MS Access

[jex57]

Hi
Please can someone assist opening excel from access - but I do not want to specify the path,, so am looking for the open dialog box.

Also I have heard you need to close the instance of excel once the user has closed excel,
Please can someone let me know how it is done.

I have got the following code - but need the path to be a dialog box.

Thank you

Private Sub OpenExcel_Click()
Dim xlApp As Object
On Error Resume Next
Set xlAppp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
'Excel wasn't running, start it from code
Set xlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0

xlAppp.Workbooks.Open ("C:\MS Access Databases\Export.xlsx")

objXL.Application.Visible = True
objXL.Parent.Windows(1).Visible = True
End Sub

 

[Xeroh]

Try using the Application.GetOpenFilename() method.

Dim MyFile As String
MyFile = Application.GetOpenFilename()
Workbooks.Open (MyFile)

https://msdn.microsoft.com/en-us/library/office/ff834966.aspx

 

[Micron]

Note: GetObject or GetOpenFileName assumes you have already opened it AFAIK. If not, you'll need the CreateObject syntax. You can present the user with a folderpicker dialog to pick a file, or a filepicker dialog to select a file. Based on your post, I assume the application will not be open and you want the user to pick out a file, so the filedialog will be what you'll need. Either elaborate and provide more detail on the process, or research those two subjects and give it a go.