Clean up Exporting Report to Excel

Hi, I'm exporting an Access report to Excel using VBA and have a few issues I need to clean up.

I'm opening and exporting the report using the below Click subroutine and then I'm formatting the Excel report using the below function. I've got a couple problems:

1. I've hardcoded the location of the exported Excel file. How can I get that information programmically? I.e. I know "DoCmd.OutputTo acReport, stDocName" prompts the user to specify the location (file path) and file name for the new exported file. How can I capture that information once the user clicks "Ok" so I can use it later on?

2. In the function I have the line "Set WS = gobjExcel.Workbooks("rpt_OverviewforExport.xls").Sheets(1)" which works fine unless there is any other instance of Excel open. How can I make this more robust so that it doesn't matter what other Excel files are open.

Any other tips/tricks/suggestions are welcome!
Thanks,

mv

Private Sub cmdOverviewRptExport_Click()
On Error GoTo Err_cmdOverviewRptExport_Click

    Dim stDocName As String
   
    stDocName = "rpt_OverviewforExport"
    DoCmd.OpenReport stDocName, acPreview
    DoCmd.OutputTo acReport, stDocName
    Set xlApp = CreateObject("excel.application")
    xlApp.Visible = True
    xlApp.Workbooks.Open ("C:\TVS\rpt_OverviewforExport.xls")
    xlApp.Application.ActiveWorkbook.RunAutoMacros (xlAutoOpen)
    Call FormatOverviewforExportRpt
    DoCmd.Close acReport, stDocName, acSave
   
Exit_cmdOverviewRptExport_Click:
    Exit Sub

Err_cmdOverviewRptExport_Click:
    MsgBox Err.Description
    Resume Exit_cmdOverviewRptExport_Click
End Sub

Function FormatOverviewforExportRpt()
    Dim gobjExcel As Excel.Application
    Dim WS As Excel.Worksheet
    Dim RNG As Excel.Range
    Set gobjExcel = GetObject(, "Excel.Application")
    Set WS = gobjExcel.Workbooks("rpt_OverviewforExport.xls").Sheets(1)

    'Set the Zoom percentage to 80%
    gobjExcel.ActiveWindow.Zoom = 80

    With WS
        'Make the column headers bold
        .Rows("1:1").Font.Bold = True
        'Format the dates
        .Columns("D:R").NumberFormat = "m/d/yyyy"
        'Set column widths
        .Columns("A:A").ColumnWidth = 14.29
        .Columns("B:B").ColumnWidth = 8.86
        .Columns("C:C").ColumnWidth = 33.29
        .Columns("D:R").ColumnWidth = 8.86
        'Set row height
        .Rows(1).RowHeight = 25.5
        'Add shading to row 1
        .Range("A1:R1").Select
        .Range("R1").Activate
         With Selection.Interior
            .ColorIndex = 15
            .Pattern = xlSolid
         End With
        'Allow text wrapping
        .Columns("A:R").WrapText = True
        'Add conditional formatting
        .Columns("D:R").FormatConditions.Delete
        .Columns("D:R").FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
            Formula1:="=TODAY()", Formula2:="1"
        .Columns("D:R").FormatConditions(1).Font.ColorIndex = 3
        .Columns("D:R").FormatConditions(1).Interior.ColorIndex = 3
        .Columns("D:R").FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
            Formula1:="=TODAY()", Formula2:="=TODAY()+14"
        .Columns("D:R").FormatConditions(2).Font.ColorIndex = 6
        .Columns("D:R").FormatConditions(2).Interior.ColorIndex = 6
    End With

End Function