Excel Extrakt
11.07.2018 10:49:16
Christian
aus meiner Access Datenbank ziehe ich Daten über einen VBA Code in ein Excel Format. Abgesehen davon das die Spaltengrößen nicht zum Text passen stört mich vor allem, das alle Spalten nur im Standardformat vorhanden sind. Das führt dazu, das besonders Zeit und Datumswerte nachträglich geändert werden müssen.
Habt Ihr eine Idee, wie ich das Format im Code bereits anpassen kann? Vielen Dank für euren Support
Private Sub Befehl98_Click()
Dim rs As DAO.Recordset ' !!Verweis auf Microsoft DAO x.x setzen !!
Dim xlApp As Object, xlWB As Object, xlSheet As Object ' Excel Objekte
Set rs = Me!Unterformular_Excel.Form.RecordsetClone ' Daten des UForms
Set xlApp = CreateObject("Excel.Application") ' Excel Instanz
xlApp.Visible = True ' Sichtbar schalten
Set xlWB = xlApp.Workbooks.Add ' Neues Workbook anlegen
Set xlSheet = xlWB.Sheets(1) ' Erstes Tabellenblatt setzen
xlSheet.Cells(2, 1).CopyFromRecordset rs ' Accessdaten in (ab) B2 schreiben
xlSheet.Cells(1, 1) = "Request ID"
xlSheet.Cells(1, 2) = "Area"
xlSheet.Cells(1, 3) = "Prio"
xlSheet.Cells(1, 4) = "Received Date" 'Date
xlSheet.Cells(1, 5) = "Received Time" 'Zeit
Set db = Nothing
Set rs = Nothing
End Sub
Anzeige