Office: (Office 2013) Tabelle mit VBA erstellen und Feldbreite festlegen

yogist · 4. Januar 2017

Hi zusammen,
in VBA erstelle ich dynamisch eine Tabelle zum Ausleiten nach Excel:

Set td1 = db1.CreateTableDef("NachExcel")
Set f1 = td1.CreateField("Typ", dbText, 10)
td1.Fields.Append f1
Set f1 = td1.CreateField("Name", dbText, 100)
td1.Fields.Append f1
Set f1 = td1.CreateField("Mtrend0", dbText, 50)
td1.Fields.Append f1
Set f1 = td1.CreateField("MTrend_Col0", dbText, 30)
td1.Fields.Append f1
db1.TableDefs.Append td1

Befüllen und ausleiten nach Excel mit
DoCmd.OpenTable "NachExcel"
DoCmd.RunCommand acCmdOutputToExcel
geht alles wunderbar.
Auch schließen und wieder per VBA löschen.
Allerdings ist die Formatierung sehr bescheiden, da alle Spalten dieselbe Breite haben.
Wie kann ich das in Access gleich bei der Erstellung der Tabelle festlegen?
In Excel gibt es dafür .Cells.EntireColumn.AutoFit, weiß hier jemand wie das in Access geht?

:)

gpswanderer · 6. Januar 2017

Hallo,
es wird Dir wahrscheinlich nix nutzen, selbst wenn es geht per Access werden Formate per Export nicht übertragen. Außerdem, was nutzt die Spaltenbreite bei Access für Excel?

yogist · 6. Januar 2017

Nach dem Erzeugen der Tabelle per VBA sieht die Formatierung wie in Anhang Tab1 aus wenn man die öffnet.
Setzte ich vor dem Excelexport einen Breakpoint und öffne die Tabelle und mache einen manuellen Autofit per Linksklick in die obere linke Ecke und Doppelklick auf eine Spaltenbegrenzung geht die Tabelle auch mit der Autofit-Formatierung nach Excel rüber. Dieses Autofit möchte ich schon in Access hinbekommen. Im Moment siehts leider in Excel aus wie in Tab3.

Weiß jemand wie ich das manuelle Autofit-Geklicke in VBA realisieren kann?

yogist · 6. Januar 2017

Also um es zu präzisieren:
Tab1 zeigt die leere Tabelle direkt nach dem Erstellen durch VBA und manuelles Öffnen, alle Spalten sind gleich breit..

Tab2 zeigt das gewünschte Ergebnis, das ich im Moment nur manuell hinbekomme, nämlich durch Öffnen der befüllten AccessTabelle vor dem Excelexport durch VBA, indem ich vor dem Export manuell einen Autofit durchführe.

Tab3 zeigt den momentanen Zustand. Alle Spalten in Access und Excel haben die gleiche Breite und die Zellinhalte haben einen Zeilenumbruch.

Andre.Heisig · 6. Januar 2017

Excel-Automation:

Copy & Paste aus einer Vorlage, die wichtigen Stellen rot ...

Code:

Dim objWorkbook As Object
Dim boolXL As Boolean

On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number 0 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
boolXL = True
Else
objExcel.Activate
boolXL = False
End If

With objExcel
.WindowState = xlMaximized
.Visible = True
.Workbooks.Add
Set objWorkbook = objExcel.Application.ActiveWorkbook

'Einfügen der Daten
.Range("A3").Select
.ActiveSheet.Paste
.Range("A3").AutoFilter

'Formatierung ExcelSheet
.Sheets("Tabelle1").Select
.Sheets("Tabelle1").Name = "Export"
.ActiveWindow.DisplayGridlines = True
.Range("A4").Select
.ActiveWindow.FreezePanes = True

.Cells.Select

With .selection
.Font.Name = "Tahoma"
.Font.Size = 10
.VerticalAlignment = xlBottom
.WrapText = False
End With

.Columns("A:ER").Select
.selection.Font.ColorIndex = 10

'Tabellenkopf fett
.Rows("3:3").Select
.selection.Font.Bold = True

'Einfügen Kommentartext
.Range("A1").Font.Bold = True
.Range("A1").Font.ColorIndex = 11

'Tabellenspalten und -zeilen "optimal"
.Cells.Select
.selection.Columns.AutoFit
.selection.Rows.AutoFit

End With

Set objWorkbook = Nothing
Set objExcel = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

yogist · 6. Januar 2017

Danke für die Antwort.
Aber ich möchte Autofit bzw. festlegen der Spaltenbreite direkt mit der Access-Tabelle machen und NICHT in Excel.
Also VBA-Code in der Access-Tab erstellen zur Festlegung der Access-Tabellen-Spaltenbreite.
Weiß jemand wie das geht?

Nouba · 6. Januar 2017

Resizing column to best fit vba

Andre.Heisig · 7. Januar 2021

von yogist

Aber ich möchte Autofit bzw. festlegen der Spaltenbreite direkt mit der Access-Tabelle machen und NICHT in Excel.
Also VBA-Code in der Access-Tab erstellen zur Festlegung der Access-Tabellen-Spaltenbreite.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Genau das macht der Codeschnipsel oben, er setzt die Spaltenbreiten auf "Autofit", aus Access heraus.

Wenn du die Spaltenbreiten festlegen willst, adaptier das Beispiel entsprechend.

Office: (Office 2013) Tabelle mit VBA erstellen und Feldbreite festlegen

Tabelle mit VBA erstellen und Feldbreite festlegen

Tabelle mit VBA erstellen und Feldbreite festlegen

Tabelle mit VBA erstellen und Feldbreite festlegen

Tabelle mit VBA erstellen und Feldbreite festlegen

Tabelle mit VBA erstellen und Feldbreite festlegen - Similar Threads - Tabelle VBA erstellen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

mit VBA Excel, eine word-Tabelle erstellen/formatieren

Tabelle in VBA via SQL String erstellen

mit VBA in neuer Tabelle Tabellenfeld als AutoWert-Typ Replikations-ID erstellen

Serienbrief erstellen und Tabellen einzeln als Anhang einfügen

in VBA Ablauf zum erstellen einer Tabelle aus vielen TabellenblÃ¤ttern

VBA - Pivot Tabelle mit Version 12 erstellen geht nicht

Users found this page by searching for:

vba access excelexport spaltenbreite

access tabelle spaltenbreite per vba