VBA Code to open Wxcel from within Access

  • Thread starter Thread starter Rod Manson
  • Start date Start date
R

Rod Manson

Hi, can anyone help please . . I thought it would be quite straightforward ..

I want to write the code to open an excel spreadsheet from with Access. I
can see how to do it with the RunApp Action in a macro, but not in code.

Thanks!
 
I asssume you mean the Excel spreadsheet already exists and you want to open
it, Edit it and re-save it ? If Yes, use something like this

Function Open_Excel_File()
On Error GoTo Excel_Error
Dim xlApp As Excel.Application
Dim xlWS As Excel.Worksheet

Set xlApp = New Excel.Application
If xlApp.FindFile = True Then
Set xlWS = xlApp.Worksheets(1)

' your code here to do stuff on the worksheet

xlWS.SaveAs xlApp.ActiveWorkbook.FullName
xlApp.Quit
Set xlWS = Nothing
End If
Set xlApp = Nothing
Exit Function

Excel_Error:
MsgBox Err.Description
xlApp.Quit
Set xlWS = Nothing
Set xlApp = Nothing
End Function
 
Rod Manson said:
Hi, can anyone help please . . I thought it would be quite straightforward
..

I want to write the code to open an excel spreadsheet from with Access. I
can see how to do it with the RunApp Action in a macro, but not in code.

Thanks!
Click to expand...

Application.FollowHyperlink "C:\FolderName\FileName.xls"
 
Back
Top