Access VBA manipulate Excel object

Public Sub ExportToExcel(frm As Form)
Dim rst As dao.Recordset
    Const StartRow = 3
    Dim MaxRow As Integer
    Dim objXL As Object
    Dim objWkb As Object
    Dim objSht As Object
    Dim FieldNames() As String
    Dim X As Integer
    Dim strSQL As String
    Dim strFields As String
    Dim ctl As Control
    Dim ExcelPath as String
    
    
    
    Set rst = frm.RecordsetClone
    rst.MoveLast
    rst.MoveFirst
    MaxRow = rst.RecordCount
    
    ReDim FieldNames(rst.Fields.Count)
    For X = 0 To rst.Fields.Count - 1
       FieldNames(X + 1) = Nz(rst.Fields(X).NAME, "N.A")
    Next


Set objXL = CreateObject("Excel.Application")
    With objXL
        .Visible = True
        
        Set objWkb = .Workbooks.Add

        Set objSht = objWkb.Worksheets(1)
        objSht.NAME = frm.Name

        With objSht
        


            .Range(.Cells(StartRow, 2), .Cells(StartRow + MaxRow, 2)) _
                    .CopyFromRecordset rst
                    For X = 0 To rst.Fields.Count
                    .Cells(1, 1 + X).Value = Nz(FieldNames(X), "N.A")
                    Next X
        End With
        .Columns.autofit
    End With
ExcelPath = Application.CurrentProject.Path & "\" & frm.Name & Format(Date, "mmm-dd-yy") & ".xlsx"

objXL.DisplayAlerts = False
objWkb.SaveAs ExcelPath , AccessMode:=3
objWkb.Close

objWkb.Close
objXL.Quit


Set rst = Nothing

Exit_cmdExcel_Click:
    Exit Sub

Err_cmdExcel_Click:
    MsgBox Err.Description
    Resume Exit_cmdExcel_Click
End Sub

Select allOpen in new window

Sub ToExcel()


    Dim ExceApp As Object
    Dim wbk As Object
    Dim rst As Recordset
    Set ExcelApp = CreateObject("Excel.Application")
    Set wbk = ExcelApp.workbooks.Open("Your Excel Workbook Path")
    Set rst = CurrentDb.OpenRecordset("Select * from t_Arms")
    wbk.worksheets(1).range("a1").copyfromrecordset rst
    wbk.Save
    wbk.Close
    ExcelApp.Quit
    Set rst = Nothing
    Set wbk = Nothing
    Set ExcelApp = Nothing

End Sub

Select allOpen in new window