Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Seite aus anderer Mappe kopieren

Seite aus anderer Mappe kopieren
05.11.2005 21:01:35
M.
Hallo,
Gibt es eine Möglichkeit per Makro eine Seite aus einer anderen Mappe in die aktive Tabelle zu kopieren, ohne die andere Mappe zu öffnen?
Wenn ja, wie müßte der Makro-Befehl aussehen?
Für eure Hilfe vielen Dank!
Beste Grüße von Karsten
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seite aus anderer Mappe kopieren
05.11.2005 21:03:59
Hajo_Zi
Hallo Karsten,
Nein


AW: Seite aus anderer Mappe kopieren
05.11.2005 21:17:23
HansH
Hallo Karsten,
warum die Ganze Tabelle (Seite)? und warum kopieren? Daten wäre schon möglich. (ohne kopieren)
Gruß
Hans
AW: Seite aus anderer Mappe kopieren
05.11.2005 21:17:33
Luschi
Hallo Karsten,
leider gibt es in letzter Zeit immer wieder Anfragen zu diesem Problem.
Schuld daran ist ein (doofes) Microsoft-Excel4-Makro, das diese Möglichkeit angeblich kann.
Aber das ist die Vorgaukelung falscher Tatsachen. Hole Du mal Geld aus der
Geldbörse, ohne diese zu öffnen.
Auf Daten in Dateien kann man nur zugreifen, wenn die Datei geöffnet ist.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Seite aus anderer Mappe kopieren
05.11.2005 21:32:14
Hajo_Zi
Hallo Luschi,
beim letzten Punkt irrst Du Dich.

Option Explicit
'   von Alf Herber Forum
' <a href="https://www.herber.de/forum/archiv/52to56/t52834.htm#52840">https://www.herber.de/forum/archiv/52to56/t52834.htm#52840</a>
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "E:\Eigene Dateien\Hajo\"
f = "Adresse.xls"
s = "Adresse"
r = "B4"
'   bennanter Bereich ergänzung von Nikhil Milo
'    r = "Heinze"
MsgBox GetValue(p, f, s, r)
Worksheets("Tabelle1").Range("A1") = GetValue(p, f, s, r)
End Sub
Private Function GetValue(path, file, sheet, ref)
'   Retrieves a value from a closed workbook
Dim arg As String
'   Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'   Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   bennanter Bereich ergänzung von Nikhil Milo
'     arg = "'" & path & "[" & file & "]" & sheet & "'!" & ref
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Gruß Hajo
Anzeige
AW: Seite aus anderer Mappe kopieren
05.11.2005 21:48:04
Luschi
Hallo Hajo,
was dieses ominöse ExecuteExcel4Macro intern macht, ist nirgends dokumentiert.
Man kann Dateien auch per API-Befehl öffnen und wieder schließen. Deshalb bleibe ich bei der Aussage, um Daten aus einer Datei auszulesen, muß diese geöffnet werden.
Auch wenn es für den User so aussieht, das die Datei geschlossen bleibt.
Auch Excel kann nicht zaubern!
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Seite aus anderer Mappe kopieren
06.11.2005 08:34:14
Erich
Hallo Hajo und Luschi,
habt ihr nicht beide Recht - nur eben auf verschiedenen Ebenen?
Natürlich muss aus Sicht des Dateisystems die Datei geöffnet sein in dem Moment, in dem die Daten geholt werden. Öffnen und Schließen eledigt das xl4-Makro intern (und undokumentiert).
Ebenso natürlich muss die Datei aus User- (oder Programmierer-)Sicht vor der Ausführung des xl4-Makros nicht geöffnet sein.
Grüße von Erich aus Kamp-Lintfort
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige