Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

From Access to Excel

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