Office: Daten aus anderer Excel Arbeitsmappe importieren

Hallo!

Wer kann mir helfen?

Möchte Daten aus einer anderen Excel-Arbeitsmappe in die aktive Arbeitsmappe importieren. Wenn es möglich ist sollte es nicht erkennbar sein das eine andere Arbeitsmappe geöffnet wurde.

Der Pfad der Arbeitsmappe mit den Daten befindet sich in der Variable "vrtSelectedItem".


Workbooks.Open (vrtSelectedItem)

Workbooks("TEST.xls").Worksheets("Einstellungen").Range("F10").Value = ActiveWorkbook.Worksheets("Konfiguration2").Range("B2").Value

MsgBox "Folgende Arbeitsmappe wurde erfolgreich hinzugefügt: " & Chr(10) & Chr(10) & vrtSelectedItem

Mit diesem Code klappt es zwar die Daten aus der Arbeitsmappe zu kopieren, jedoch dauert das ziemlich lange .. und sie müsste auch wieder automatisch geschlossen werden.

In der Arbeitsmappe aus der die Daten geholt werden sollen befinden sich viele Makros, kann es sein das es deshalb so lange dauert!? Wenn, gibt es eine Möglichkeit das der Datenimport schneller abläuft.

PS: Mit "lange" sind in etwa 10 Sek. gemeint.

Vielen Dank schon mal im Vorraus!

Gruß V1k1ng

:)

 

Hallo ???

geht es um Daten oder wie oben geschrieben nur um einen Wert?

Wie fügt man Arbeitsmappen hinzu?




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem NT4 SP6 und Excel Version 2000 SP3

 

Hallo Haja es geht nur um einen Wert in einer Zelle.
Mit Arbeitsmappe meine ich eine andere Excel-Datei, ist vielleicht nicht ganz so gewählt von mir ausgedrückt.

 

Hallo

für einen Wert geht es auch ohne offen. Ob schneller?

Code:

Gruß Hajo

 

Vielen Dank!

Werd es mal ausprobieren ob es klappt.

Gruß V1k1ng

 

Hallo Hajo!

Zum einen weiß ich warum es bei mir so langsam lief. Lag daran das ich den Visual-Basic Editor nicht geschlossen hatte, beim Ausführen des Makros.

Und zum anderen läuft das mit deinem Makro echt super!! Vielen Dank!
Ist natürlich besser und noch schneller!

Verstehe diese Anweisung aber nicht so ganz:

arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Address(, , xlR1C1)

Was bedeutet dort das .Address(, , xlR1C1)?

xlR1C1 hat das nicht normalerweise etwas mit Formeln zu tun?
Und was bedeutet eigentlich diese Anweisung:

GetValue = ExecuteExcel4Macro(arg) ?

Viele Grüße
V1k1ng

 

Hallo

ich habe im Code schon geschrieben das er nicht von mir ist. Ich versuche es mal

arg ist die Variable, auf die wird die komplette Zellbezeichnung, also einschl.
- Pfad
- Dateiname
- Tabelle
- Zellbezeichnung
geschrieben wird

Zellbezeichnung in der Form Zeile, Spalte also Zeile 2 Spalte 4 und nicht D2

Getvalue ist nun wieder eine Variable und der rechte Teil drückt nun bloß aus das eine Excel4 Makro angesprochen wird. Diese Makros sind auch noch in den aktuellen Excelversionen drinne, aber der Einsatz ist nicht mehr weit verbreitetet. Die absoluten Excelprofis kennen Sie aber noch.

Gruß Hajo

 

Vielen Dank Hajo! War mir echt ne Hilfe!!

V1k1ng