Export Access Report to Excel

Posted on 2007-12-02
Last Modified: 2013-11-28
I'm exporting an Access report to Excel and formatting the spreadsheet with the below code in my OnClick event.

I would like to (in order of priority):
1. Remove the prompt to save the file on xcelapp.quit (assuming that's when that prompt appears)
2. Have the user be able to specify the file path instead of having to use the default
3. Have the user be able to specify the file name instead have it hard coded

Any help is appreciated!

Dim stDocName As String
    stDocName = "rpt_Report1"
    DoCmd.OutputTo acReport, stDocName
    Dim xcelwb As Excel.Workbook
    Dim xcelapp As Excel.Application
    Dim Sheet As Excel.Worksheet
    Set xcelapp = New Excel.Application
    Set xcelwb = xcelapp.Workbooks.Open("rpt_Report1.xls")
    Set Sheet = xcelapp.ActiveWorkbook.Sheets(1)
       'format the excel data
       With Sheet
            .Rows("1:1").Font.Bold = True
       End With
    Set xcelapp = Nothing
    Set xcelwb = Nothing
    Set Sheet = Nothing

Open in new window

Question by:Michael Vasilevsky
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 20394169
<Remove the prompt to save the file on xcelapp.quit (assuming that's when that prompt appears)>
Ok then do you want it to Save or NOT save?
Either way the end of your code will look like this (Remove the comments on the Save option you want)
'    'Saves changes
'    xcelwb.Close True
'    'Does NOT save changes
'    'xcelwb.Close False
'    xcelapp.Quit
'    Set xcelapp = Nothing
'    Set xcelwb = Nothing
'    Set Sheet = Nothing

<Have the user be able to specify the file path instead of having to use the default>
<Have the user be able to specify the file name instead have it hard coded>

As far a s I can see you are specifying the File's location when you output it.
I presume you are opening the same file to be formatted.

In that case the File name and path are the same in both so all you need to do is specify the Output file, save that filename and path, then use that location to open the same file to be formatted.

Is this correct?

LVL 46

Expert Comment

ID: 20394174
Hi mvasilevsky,

Try using the GetOpenFilename Method

Good Luck!

LVL 74

Accepted Solution

Jeffrey Coachman earned 500 total points
ID: 20400048

Here is a sample:

-If you provide a filename of a file that already exists, it will be over-written without warning, so be careful!
If you want to see the existing files in the dialog box, reverse the comments on these two lines in the FileToOpen Function:
OFN.lpstrFilter = "Excel Files (*.xls)" + Chr$(0) + "*.999" + Chr$(0)
'OFN.lpstrFilter = "Excel Files (*.xls)" + Chr$(0) + "*.xls" + Chr$(0)

-You need to add the cleanup code to your error handler, in case the code fails and the Excel objects are not closed.
Something similar to this:

On Error GoTo Err_ExcelExportAndFormat

********** Your Export/Format Code Goes Here **********

'Recordset Cleanup
Set rst = Nothing
Set dbs = Nothing

    'Avoids the endless loop
    On Error Resume Next
    Set xcelapp = Nothing
    Set xcelwb = Nothing
    Set Sheet = Nothing
    Exit Sub

    MsgBox "There was an error executing the command." _
    & vbCrLf & vbCrLf & "Error " & Err.Number & ": " _
    & vbCrLf & vbCrLf & Error, vbExclamation
    Resume Exit_ExcelExportAndFormat

-The Code to make the Dialog box appear is what I use.
If you are interested, there is a more popular way here:
(Neither one is short or easy to read!)

Study and test it fully.
Let me know if you have any issues

LVL 10

Author Closing Comment

by:Michael Vasilevsky
ID: 31412206
Thank you much! Answered all my questions
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 20417902

Glad I could help!

Featured Post

SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening.  This article shows how to create and use them.
The Windows Phone Theme Colours is a tight, powerful, and well balanced palette. This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

632 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question