Office: Export Access->Excel-Tabelle -> formatieren? (VBA)

SteffenF · 3. August 2004

Hallo,

ich habe folgende Fragen:

Ich benutze:
Code:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, strTableName, strPath, True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

um eine Access Tabelle nach Excel zu exportieren.
Da die Tabelle eine Datums und eine Uhrzeit-Spalte hat, zeigt Excel nur "#######" an, wenn ich die Spalten dann als Datum bzw. Uhrzeit-Felder formatere sieht alles okay aus...

Kann man auch die Spaltenbreite einstellen?

:)

jmc · 5. August 2004

Hi

Mit dem TransferSpreadsheet kann man die Darstellung des Excel's nicht beeinflussen.

Aber hast du schon mal versucht, einfach die Spalte mit den ##### zu verbreitern ?? IMHO ist das nämlich schon richtig drin, nur eben zu breit für die Standard-Einstellung der Spaltenbreite ...

Ob man diese Standard-Einstellung der Spaltenbreite in Excel ändern kann, das müsstest du im Excel-Forum fragen - hat mit Access nix zu tun (und ich weiss es ehrlich gesagt nicht *frown.gif* )

SteffenF · 5. August 2004

Das das mit der Spaltenbreite zu tun hat, ist mir bewusst. Aber in der einen Spalte habe ich eine Uhrzeit und diese wird total fehlerhaft dargestellt...

JörgG · 5. August 2004

Hallo SteffenF,

das wäre eine Möglichkeit, AcXP getestet, klappt.
Hab ich im Formular-Klassenmodul eingefügt.

Deine Sub
'...
Call FktXLTabFormatieren
End Sub

Code:

Private Function FktXLTabFormatieren()
Dim ExlApp As Excel.Application, ExlDatei As String
ExlDatei = "DeinPfad+xlsName"
Set ExlApp = CreateObject("Excel.Application")
With ExlApp
.Visible = True 'aktiviert Steuerung mit XL-VBA
.Workbooks.Open Filename:=ExlDatei
.Sheets(1).Select 'oder Sheets("DeinBlattname")
.Range("A:B").Select 'Spalten markieren
.Selection.Columns.AutoFit 'optimale Spaltenbreite
'oder .Selection.ColumnWidth = 20 'Spaltenbreite
.Range("A1").Select
.ActiveWindow.Close SaveChanges:=True
.Application.Quit 'speichern und XL-schließen
End With
ExlApp.Close: Set ExlApp = Nothing
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dein 2.Problem kannst Du genauso erschlagen, indem Du in XL mit dem
Assi ein Makro zum Formatieren erstellst und den XL-VBA-Code in den
With-Block mit einbaust, oder Du rufst ein XL-Makro mit
ExlApp.Run ("DeinMakro").

MfG

Nouba · 5. August 2004

Wenn jemand wünscht, "schön formatierte" Daten in Excel zu haben, ist der Weg, sich die Daten über Excel zu besorgen, aus meiner Sicht oft der einfachere.

Office: Export Access->Excel-Tabelle -> formatieren? (VBA)

Export Access->Excel-Tabelle -> formatieren? (VBA)

Export Access->Excel-Tabelle -> formatieren? (VBA)

Export Access->Excel-Tabelle -> formatieren? (VBA)

Export Access->Excel-Tabelle -> formatieren? (VBA) - Similar Threads - Export Access >Excel

Makros für csv-Export mit Anführungszeichen für ausgewählte Splaten

Export-Makro überschreibt .xlsx-Dateien nur taggleich

Export von Access nach Excel

Export aus Access nach Excel in mehreren tabellenblättern

CSV Export mit Access 2007

Fehlermeldung in Excel nach Export aus Access

Export mehrerer Berichte aus Access

Users found this page by searching for:

vba access excelexport spaltenbreite