Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei "unsichtbar" öffnen

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
Anzeige
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

Anzeige
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ß aus’m Pott
Udo

AW: Datei "unsichtbar" öffnen
07.11.2013 21:15:47
Uduuh
Hallo,
einfach Activewindow.visible=False ?
Gruß aus’m Pott
Udo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge