Datei "unsichtbar" öffnen

Forumthread: Datei "unsichtbar" öffnen

07.11.2013 20:01:49

Bianca

Hallo,
ich habe mehrere Dateien, welche mit einer Hauptdatei verknüpft sind. Wenn ich in den Dateien arbeiter muss ich leider, um die aktualisierten Werte sofort angezeigt zu bekommen, immer die Hauptdatei offen haben.
Dies soll jedoch nicht sein, da die Hauptdatei von den anderen BenutzerInnen nicht gesehen werden soll.
Habe im Archiv folgendes gefunden:

Sub WkbOpenInvisible()
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Anzeige der Fenster in Taskleiste ausschalten
Application.ShowWindowsInTaskbar = False
'Mappe öffnen
Workbooks.Open "D:\Testdatei.xlsx"
'Fenstertitel in Varibale einlesen
strWindowName = ActiveWindow.Caption
'Fenster (Mappe) ausblenden
Windows(strWindowName).Visible = False
'Anzeige der Fenster in Taskleiste wieder einschalten
Application.ShowWindowsInTaskbar = True
'Bildschirmaktialisierung einschalten
Application.ScreenUpdating = True
End Sub

Leider kommt bei Windows(strWindowName).Visible = False immer "Laufzeitfehler 9".
Kann mir hierzu wer helfen?
Danke im Voraus!
lg
Bianca

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei "unsichtbar" öffnen

07.11.2013 20:42:26

Matze
AW: Datei "unsichtbar" öffnen

07.11.2013 20:57:09

Bianca
AW: Datei "unsichtbar" öffnen

07.11.2013 21:12:14

Nepumuk
du lebst noch?

07.11.2013 21:18:48

Uduuh
AW: Datei "unsichtbar" öffnen

07.11.2013 21:15:47

Uduuh

AW: Datei "unsichtbar" öffnen

07.11.2013 20:42:26

Matze

Hallo Bianca,
Dim strWindowName nach der Sub zeile
Matze

AW: Datei "unsichtbar" öffnen

07.11.2013 20:57:09

Bianca

Hallo Matze,
vielen Dank für die schnelle Hilfe.
Hab den Code nun erweitert.
Leider kommt der Laufzeitfehler noch immer.

AW: Datei "unsichtbar" öffnen

07.11.2013 21:12:14

Nepumuk

Hallo,
warum nicht einfach so? ;-)

Public Sub WkbOpenInvisible()
    Dim objWorkbook As Workbook
    Set objWorkbook = GetObject("D:\Testdatei.xlsx")

    'mach irgendwas mit der Mappe

    objWorkbook.Close SaveChanges:=False
    Set objWorkbook = Nothing
End Sub

Gruß
Nepumuk

du lebst noch?

07.11.2013 21:18:48

Uduuh

Hallo,
lange nix von dir gelesen. Hab mir schon Sorgen gemacht.
Hab letztens noch mit Beate drüber geredet.
Gut, dass du wieder da bist.
Gruß ausm Pott
Udo

AW: Datei "unsichtbar" öffnen

07.11.2013 21:15:47

Uduuh

Hallo,
einfach Activewindow.visible=False ?
Gruß ausm Pott
Udo

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne den Visual Basic for Applications (VBA) Editor in Excel. Dies kannst du tun, indem du ALT + F11 drückst.
Füge ein neues Modul hinzu:
- Klicke auf Einfügen > Modul.

Kopiere den folgenden Code in das Modul:

Sub WkbOpenInvisible()
   'Bildschirmaktualisierung ausschalten
   Application.ScreenUpdating = False
   'Anzeige der Fenster in Taskleiste ausschalten
   Application.ShowWindowsInTaskbar = False
   'Mappe öffnen
   Workbooks.Open "D:\Testdatei.xlsx"
   'Fenstertitel in Variable einlesen
   Dim strWindowName As String
   strWindowName = ActiveWindow.Caption
   'Fenster (Mappe) ausblenden
   Windows(strWindowName).Visible = False
   'Anzeige der Fenster in Taskleiste wieder einschalten
   Application.ShowWindowsInTaskbar = True
   'Bildschirmaktualisierung einschalten
   Application.ScreenUpdating = True
End Sub

Führe das Makro aus, um die Datei unsichtbar zu öffnen.

Häufige Fehler und Lösungen

Laufzeitfehler 9: Dieser Fehler tritt auf, wenn das aktive Fenster nicht gefunden wird. Stelle sicher, dass der Fenstertitel korrekt in die Variable strWindowName eingelesen wird. Überprüfe, ob die Datei tatsächlich geöffnet werden kann.
Taskleiste bleibt sichtbar: Wenn die Taskleiste weiterhin sichtbar ist, überprüfe, ob Application.ShowWindowsInTaskbar korrekt auf False gesetzt wurde.

Alternative Methoden

Eine alternative Methode, um eine unsichtbare Taskleiste zu erreichen, ist die Verwendung von:

ActiveWindow.Visible = False

Dies blendet das aktuelle Fenster aus, anstatt die Taskleiste zu manipulieren.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du eine Datei unsichtbar öffnen kannst:

Sub OpenFileInvisible()
    Dim wb As Workbook
    Set wb = Workbooks.Open("D:\Testdatei.xlsx")
    wb.Windows(1).Visible = False
End Sub

In diesem Beispiel wird die Datei geöffnet und das Fenster sofort unsichtbar gemacht.

Tipps für Profis

Verwende Error Handling: Implementiere eine Fehlerbehandlung, um Laufzeitfehler besser zu managen. Beispiel:
```
On Error Resume Next
```
Taskleiste unsichtbar machen: Denke daran, die Sichtbarkeit der Taskleiste nur zu ändern, wenn es unbedingt notwendig ist. Dies kann die Benutzererfahrung beeinträchtigen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass die Datei korrekt geöffnet wird?
Überprüfe den Pfad zu deiner Datei und stelle sicher, dass die Datei nicht bereits geöffnet ist.

2. Was kann ich tun, wenn die Datei nicht unsichtbar geöffnet wird?
Stelle sicher, dass du das Makro korrekt ausführst und dass keine anderen laufenden Prozesse die Sichtbarkeit der Datei beeinflussen.

Beliebteste Forumthreads (12 Monate)

Forumthread: Datei "unsichtbar" öffnen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Datei "unsichtbar" öffnen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread