Gibt es eine Möglichkeit diese Eigenschaft der Excel-Datei über VBA-Code aus Access einzustellen?
Vielen Dank für evtl Hilfe!
Sub Export_Data_to_Excel()
Dim WERT1 As Variant 'Deklaration zum Testen Testzeile
WERT1 = Format(Now, "YYYY-MM-DD hh:mm:ss") 'Testzeile
'Excel Zugriff
Dim EXL_OBJ As Object
Dim EXL_SHEET As Object
Dim strEXL_NewFile As String 'Variable für Dateiname der neuen Exceldatei
Dim strPath As String 'Verzeichnis der Exceldateien
strPath = ActiveDocument.Path 'Verzeichnis der Dateien 'unter Word erforderlich
ChDir strPath 'unter Word erforderlich
strEXL_NewFile = "Neue_Datei.xls"
FileCopy "Vorlage_01.xls", strEXL_NewFile
Set EXL_OBJ = GetObject(strPath & "\" & strEXL_NewFile)
Set EXL_SHEET = EXL_OBJ.Worksheets(1)
'Werte schreiben
EXL_SHEET.Cells(1, 3) = WERT1
'Exeldatei im Anwendungsfenster einblenden
EXL_OBJ.Application.Windows(strEXL_NewFile).Visible = True
'Exceldatei Speichern und schliessen
EXL_OBJ.Save
EXL_OBJ.Close
End Sub