Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

GetObject (Mappe im Hintergrund öffnen)

GetObject (Mappe im Hintergrund öffnen)
20.08.2019 08:22:13
Chriss
Hallo Forum,
ich habe vor Zeiten eine relativ aufwendige Userform-Struktur basierend auf "GetObject" aufgebaut, muss nach einiger Zeit der Untätigkeit aber feststellen, dass der "GetObject" Befehl nicht mehr entsprechend ausgeführt wird.
Ich verwende kurz gesagt den nachfolgenden Code, um die gewünschte Datei im Hintergrund zu öffnen und diese dann letztlich auf verschiedenste Art auslesen zu können.

Dim GetObjectWB As Workbook
Set GetObjectWB = GetObject("M:\...\...\...\LS " & Worksheets("Tabelle1").Range("A1").Value & ".xlsx")
Früher hat es die Datei entsprechend geöffnet, das habe ich daran gesehen, dass meine INDIREKT-Bezüge "angesprungen sind" - nun passiert dies nicht mehr.
Wenn ich die Datei manuell öffne - nicht im Hintergrund - funktioniert alles wunderbar.
Daher sehe ich das Problem in dem "GetObject" Befehl.
Muss ich zusätzlich etwas einbauen?
Könnte eine neue Office Version irgendwas dahingehend blockieren, was ich seperat aktivieren muss?
Kann ich die Fehlerquelle genauer bestimmen?
Gibt es Alternativen?
Was VBA angeht bin ich recht unbeholfen, würde mich daher über Hilfe freuen.
Vielen Dank im Voraus!
VG,
Chriss

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

Betreff
Datum
Anwender
Anzeige
AW: GetObject (Mappe im Hintergrund öffnen)
20.08.2019 08:39:32
Torsten
Hallo Chriss,
was willst du denn anstellen mit der im Hintergrund geoeffneten Datei? Daten von dort kopieren?
Ich haette eine Alternative fuer dich. Mit dieser wird die Datei in einer separaten Excel Instanz geoeffnet, aber nicht sichtbar. In meinem Beispiel werden Daten aus der Datei in die aktive Datei kopiert. Hier die benutzte Range aus dem ersten Tabellenblatt in das aktive Tabellenblatt meiner Makro Datei. 

Sub ZugriffAufGeschlosseneSeite()
Dim rng As Range
With CreateObject("Excel.Application")
'Hier Datei und Blattnamen anpassen
With .Workbooks.Open("C:\Users\torsten.wetzel\Downloads\129531.xlsm").Sheets(1)
'Hier den gewünschten Bereich angeben
'     Set Rng = .Range("$A1:$B10")
Set rng = .UsedRange
'Hier das Ziel angeben
ActiveSheet.Range("$A1").Resize(rng.Rows.Count, rng.Columns.Count).value = rng.value
End With
.Quit
End With
End Sub

Gruss Torsten
Anzeige
AW: GetObject (Mappe im Hintergrund öffnen)
20.08.2019 09:33:46
Chriss
Hallo Torsten,
Danke für deinen Ansatz!
Meine Anforderung ist es lediglich die Datei im Hintergrund zu öffnen, um mit Formeln die Datei auszulesen, und dann nach einer gewissen Zeit (Abläufe dazwischen) wieder zu schließen.
D.h. ich muss nur eine Variable definieren + Set verwenden und den entsprechenden Befehl haben.
Mit simplen "Workbooks.Open" klappt es selbstverständlich wunderbar.
Aber sowohl "GetObject" als auch "CreateObject ("Excel.Application")" funktionieren nicht.
Meine Formeln (INDIREKT) in der Arbeitsmappe, in der ich den Code aktiviere, können die zu öffnende Arbeitsmappe nicht auslesen.
VG,
Chriss
Anzeige
AW: GetObject (Mappe im Hintergrund öffnen)
20.08.2019 10:15:01
Werner
Hallo Chriss,
meinst du so: 
Public Sub aaa()
Dim GetObjectWB As Workbook
'Datei im Hintergrund öffnen
Application.ScreenUpdating = False
Set GetObjectWB = Workbooks.Open("M:\...\...\...\LS " & Worksheets("Tabelle1").Range("A1"). _
Value & ".xlsx")
ActiveWindow.Visible = False
'...dein weiterer Code
'unsichtbare Datei ohne speichern wieder schließen
Workbooks("LS " & Worksheets("Tabelle1").Range("A1").Value & ".xlsx").Close False
End Sub
Gruß Werner
AW: GetObject (Mappe im Hintergrund öffnen)
20.08.2019 13:41:30
Chriss
Hallo Werner,
ja, so habe ich mir das vorgestellt, das klappt :-)
Vielen Dank Dir!
VG,
Chriss
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
20.08.2019 13:50:35
Werner

7 Forumthreads zu ähnlichen Themen

Arbeitsmappe im Hintergrund öffnen und scchließen
Stefan

Hallo,
gibt es eine Möglichkeit per VBA eine Arbeitsmappe (Zieldatei), in die aus anderen Arbeitsmappen (Quelldateien) Daten hineinkopiert werden im Hintergrund vor dem Kopieren automatisch zu öffnen und nach dem Kopieren wieder automatisch zu schließen, sodaß der/die Anwender/in nichts meh...
05.05.2010 08:52:22
Thread-ID: 1155467
3 Beiträge
Anzeige
Andere Dateien per VBA im Hintergrund öffnen?
sk

Guten Morgen zusammen,
ich habe eine Excel-Datei, die sich durch "INDIREKT" Werte aus anderen Excel-Dateien holt. Für INDIREKT müssen die anderen Dateien geöffnet sein.
Gibt es eine Möglichkeit, dass ich in meiner zu bearbeitenden Excel-Datei per VBA oder sonstiges die anderen Dateien i...
17.02.2017 08:23:00
Thread-ID: 1542128
5 Beiträge
VBA Datei im Hintergrund öffnen
KathrinBo

Hallo liebes Forum,
aktuell arbeite ich an einem Code, der aus einer anderen Datei, alle nicht-leeren Zellen einer Spalte, eines variablen Datenblatts kopiert. Das funktioniert auch soweit.
Was aktuell passiert ist, dass ich jedes Mal beim Ausführen des Makros im Dialogfenster die rich...
04.05.2020 12:34:15
Thread-ID: 1756591
4 Beiträge
Anzeige
Datei im Hintergrund öffnen?
Andreas
Hi zusammen,
haben einen Code, bei dem eine andere Excel-Mappe geöffnet wird, wenn in A1 geschrieben wird:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing And Not Range("A1") = "" Then _ Workbooks.Open "X:\Übersicht.xlsm" End Sub Meine F...
17.06.2022 11:32:39
Thread-ID: 1887567
5 Beiträge
Excel im Hintergrund öffnen u. schließen
Jörg
Hallo zusammen,

ich möchte aus unserem ERP-System einen Batch-Job aufrufen, der folgendes tut:
Vorab: Der Batch-Job-User hat alle Adminrechte im Netzwerk.
Aufruf einer Batch-Datei auf Windows-Server-2016 die letztlich nur eine xlsm-Datei öffnen, in der ein VBA-Script
mehrere CSV...
18.07.2023 13:04:47
Thread-ID: 1936558
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
4
3
15
4
2