hallo, ich habe eine frage. ich exportiere mit outputtoacform ein formular in Excel. Ich möchte aber, dass die Exceldatei bestimmte Formatierungen enthält:
DoCmd.OutputTo acOutputForm, "frmKunde", acFormatXLS, "G:\Mitarbeiter\DIM\Test.xls", True
Dim xlsheet
Dim i As Integer
Set xlsheet = GetObject("G:\Mitarbeiter\DIM\Test.xls")
With xlsheet.worksheets(1).Rows("1:1")
.Insert Shift:=xlDown
.Insert Shift:=xlDown
End With
i = Me.RecordsetClone.RecordCount
With xlsheet.worksheets(1).Range("A1:i1")
.Interior.ColorIndex = 41
.Font.ColorIndex = 2
'.Pattern = xlSolid
.Font.Bold = True
.Font.Size = "16"
.Font.Name = "Arial"
.Cells(1, 1).Value = "Kunde"
End With
Das klappt auch ganz gut, wenn ich die Output-Datei vorgebe. Ich möchte aber dass ich einen beliebigen Námen und beliebigen Speicherort beim Export beim Speichern vergeben kann.(DoCmd.OutputTo acOutputForm, "frmKunde", acFormatXLS, "", True). Wie kann ich nach dem Speichern diese Informationen auslesen, um die DAtei mit GetObject formatieren zu können? Hat jemand eine Idee?
Ich wäre super dankbar für Vorschläge!