VBA/Excel/Access/Word/Excel/Excel to XML
From Access to Excel: Loading an XML File into an Excel Workbook
<source lang="vb">
Sub OpenAdoFile()
Dim myRecordset As ADODB.Recordset Dim objExcel As Excel.Application Dim myWorkbook As Excel.Workbook Dim myWorksheet As Excel.Worksheet Dim StartRange As Excel.Range Dim h as Integer Set myRecordset = New ADODB.Recordset myRecordset.Open "C:\data.xml", "Provider=MSPersist" Set objExcel = New Excel.Application Set myWorkbook = objExcel.Workbooks.Add Set myWorksheet = myWorkbook.ActiveSheet objExcel.Visible = True For h = 1 To myRecordset.Fields.Count myWorksheet.Cells(1, h).Value = myRecordset.Fields(h - 1).Name Next Set StartRange = myWorksheet.Cells(2, 1) StartRange.CopyFromRecordset myRecordset myWorksheet.Range("A1").CurrentRegion.Select myWorksheet.Columns.AutoFit myWorkbook.SaveAs "C:\ExcelReport.xls" Set objExcel = Nothing Set myRecordset = Nothing
End Sub
</source>