Salü alle zusammen
Ich möchte Daten aus einer Access Datenbank in eine Excel Datei exportieren. Dabei möchte ich, dass bestimmte Spalten ein bestimmtes Zahlenformat (0.000) haben oder eine bestimmte Spaltenbreite (20pt).
Folgenden Code habe ich eingesetzt:
'SQL aus bestehender Abfrage erstellen
strSQL = CurrentDb.QueryDefs("abfExportVorlage").SQL
' Semikolon abschneiden (-> Abfrage-Code darf kein Semikolon enthalten!!)
strSQL = Left(strSQL, InStr(strSQL, ";") - 1)
' Kriterium hinzufügen
strSQL = strSQL & vFilter
'Temporäre Abfrage erstellen
qryName = "tmp_" & Format(Now, "yymmddhhnnss")
CurrentDb.CreateQueryDef qryName, strSQL
' Abfrage in Datei exportieren
DoCmd.OutputTo acOutputQuery, qryName, acFormatXLS, vDateiName
'Temporär erstellte Abrage wieder löschen
CurrentDb.QueryDefs.Delete (qryName)
Dabei glaubte ich, dass ich aus der Vorlage die Formate ableiten könnte. Leider geht das aber nicht.
Wie bekomme ich es hin, dass die 3. Spalte in der Excel Datei das Zahlenformat 0.000 hat und eine Spaltenbreite von 20 Punkten?
Vielen Dank für jegliche Hinweise