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
Um eine ausgeblendete Excel-Arbeitsmappe wieder einzublenden, kannst Du die folgenden Schritte befolgen:
Öffne Excel: Starte Excel und öffne die Datei, die Du einblenden möchtest.
Navigiere zum Menü: Gehe zu "Fenster" in der Menüleiste (oder "Ansicht" in neueren Versionen).
Arbeitsmappe einblenden: Wähle "Einblenden" und klicke auf die angegebene Arbeitsmappe.
Makro verwenden: Wenn Du eine Arbeitsmappe einblenden möchtest, die durch ein VBA-Makro erstellt wurde, benutze den folgenden Code:
EXL_OBJ.Application.Windows("Dateiname.xlsx").Visible = TrueSpeichern: Vergiss nicht, die Datei zu speichern, um die Änderungen zu sichern.
Problem: Die Excel-Datei ist nach dem Öffnen ausgeblendet.
Visible-Eigenschaft. Stelle sicher, dass diese auf True gesetzt ist, wie im Schritt 4 erwähnt.Problem: Fehlermeldung beim Einblenden.
Wenn Du eine Excel-Datei einblenden möchtest, die nicht über VBA geöffnet wurde, kannst Du auch die folgenden Methoden ausprobieren:
Taskleiste: Klicke mit der rechten Maustaste auf das Excel-Symbol in der Taskleiste und wähle die ausgeblendete Datei aus.
Tastenkombination: Drücke Alt + F10, um das aktuelle Fenster zu maximieren oder es wiederherzustellen.
Excel-Fenster einblenden: Verwende den Befehl Windows("Dateiname.xlsx").Visible = True in einem VBA-Makro.
Hier ist ein praktisches Beispiel, das zeigt, wie Du eine ausgeblendete Excel-Arbeitsmappe mithilfe eines Makros einblenden kannst:
Sub ArbeitsmappeEinblenden()
Dim EXL_OBJ As Object
Set EXL_OBJ = GetObject("C:\Pfad\zu\Deiner\Datei.xlsx")
' Arbeitsmappe einblenden
EXL_OBJ.Application.Windows("Datei.xlsx").Visible = True
End SubDieses Makro öffnet eine Excel-Datei und blendet sie ein, sodass Du sofort damit arbeiten kannst.
Verwendung von Makros: Automatisiere den Prozess, indem Du ein Makro erstellst, das die Arbeitsmappe bei jedem Öffnen automatisch einblendet.
Fehlerprotokollierung: Implementiere eine Fehlerbehandlung in Deinem VBA-Code, um Probleme beim Einblenden der Arbeitsmappe zu protokollieren.
Sichtbarkeit steuern: Nutze die Visible-Eigenschaft von Excel-Anwendungen effizient, um zu steuern, ob die Anwendung im Vordergrund oder im Hintergrund läuft.
1. Wie kann ich eine ausgeblendete Excel-Arbeitsmappe wieder einblenden?
Du kannst die Arbeitsmappe über das Menü "Fenster" oder mithilfe eines VBA-Befehls wie Windows("Dateiname.xlsx").Visible = True einblenden.
2. Was mache ich, wenn ich eine Fehlermeldung beim Einblenden erhalte?
Stelle sicher, dass der Dateiname korrekt angegeben ist und keine zusätzlichen Pfadangaben enthält. Überprüfe auch, ob die Arbeitsmappe tatsächlich geöffnet ist.