<div>
Hi Murray 
I posted the code on the previous question : &nbsp;<a href="https://www.experts-exchange.com/questions/29166288/Access-Push-data-to-Excel.html?anchorAnswerId=42991565#a42991565" rel="ugc">https://www.experts-exchange.com/questions/29166288/Access-Push-data-to-Excel.html?anchorAnswerId=42991565#a42991565</a> 
Take it for a spin and see what is missing ...
</div>

<div>
Hi John. Is there by any chance a more simple example. I am finding that code a bit tricky
</div>

<div>
Hi Murray...you are right...this is the *Complex* edition... :) 
This is the simple one 

<pre><code class="code-10 nolinks" id="code-20-42991590-1">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, &quot;N.A&quot;)
 Next


Set objXL = CreateObject(&quot;Excel.Application&quot;)
 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), &quot;N.A&quot;)
 Next X
 End With
 .Columns.autofit
 End With
ExcelPath = Application.CurrentProject.Path &amp; &quot;\&quot; &amp; frm.Name &amp; Format(Date, &quot;mmm-dd-yy&quot;) &amp; &quot;.xlsx&quot;

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
</code></pre>
</div>

Developer

Murray Brown

<div>
I found the following code. Instead of specifying a path is it possible to just generate &nbsp;a new Excel file? 
 

<pre><code class="code-10 nolinks" id="code-20-42991591-1">Sub ToExcel()


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

End Sub
</code></pre>
</div>

<div>
Take a look at the &quot;simpler&quot; edition
</div>

IT Supervisor

John Tsioumpris

<div>
Murray, 
 
you may like to review <a href="https://www.devhut.net/2017/03/15/ms-access-vba-export-recordset-to-excel/" rel="ugc">https://www.devhut.net/2017/03/15/ms-access-vba-export-recordset-to-excel/</a> to see an example of various elements of Excel automation.
</div>

<div>
<div class="content wysiwyg-content">
Hi 
 
What Access VBA code would I use to create an Excel object, push data to a sheet in it 
and then format certain ranges? 
 
Thanks
</div>
</div>

Hi

What Access VBA code would I use to create an Excel object, push data to a sheet in it
and then format certain ranges?

Thanks

Access VBA manipulate Excel object

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.