Office: Tabellenblätter aus geschlossener Datei kopieren

Folgende Aufgabenstellung:

In das geöffnete Excel 2003 Arbeitsblatt "aktuelle A" soll aus zwei verschiedenen geschlossenen Arbeitsblättern ("Quelle1" und "Quelle2" jeweils ein Tabellenblatt kopiert werden.
Dabei sollen alle Formate, Werte etc. mit kopiert und in die entsprechende Tabelle1 aus "Quelle1" auf das erste Tabellenblatt und die Tabelle1 aus "Quelle2" auf das zweite Tabellenblatt in das Arbeitsblatt "aktuelle A" eingefügt werden.
Das ganze über ein Steuerelement "Transfer".

Wäre super nett wenn ihr mir weiterhelfen würdet.

Danke Gruß

P.S. Das Programm soll für Excel 2003 sein, sitze jedoch im Moment vor Excel 2010 falss das wichtig ist??

:)

 

aus eine geschlosenen Datei kannst Du Werte auslesen, aber das was Du willst geht nicht.

 

Hallo

Ist es denn möglich alle Werte zu kopieren. Also
Die Formatierung bei allen gleich machen und nur die Werte zu kopieren.
Als ob man einfach in das Arbeitsblatt "aktuelle A" in jede Zelle
=[Quelle1.xlsx]Tabelle1!$A$1

schreibt. Wie gesagt als ob...??

 

Code:

 

Danke dir erst einmal werde ich morgen ausprobieren.
Dann gebe ich noch mal Feedback

achso was heißt nur in VBA zu verwenden?
UND es ist nur für ein Tabellenblatt oder. Hab leider überhaupt keine Ahnung von Programmierung

 

Hallo
Ich habe es jetzt so weit, dass ich im Arbeitsblatt "aktuelle A" jeweils in der Tabelle 1 und 2 jeweils Steuerelement habe, das ich anklicke und dann das makro gestartet wird. er ruft den Ordner auf in der die Quell Datei drinne ist, die ich auswähle und dann noch die Tabelle die ich haben möchte.

Jetzt meine Frage. Gehen die letzen zwei Schritte auch automatisch, ohne das ich die Datei und Tabelle von Hand auswählen muss. Weil es ist ja je Tabellenblat immer die gleiche Quelldatei??

Danke erst einmal

 

das ist mir zu hoch. Wie kannst du eine Tabelle auswählen in einer geschlossenen Datei?

 

Na das Makro ruft eine pop up Box auf in der ich das auswählen (anklicken) kann. Als ob man ganz normal auf Ordner öffnen und sich eine Datei aussucht die man unter Excel öffnet.

Ich habe nur den CODE verwendet den du gepostet hast.

das habe ich angepasst, den ersten Teil habe ich nicht verändert

Public Sub HoleDaten()
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim Bereich As String
Dim Ziel As Range
Pfad = "G:\Test11111111111111111111"
Dateiname = "Quelle2.xlsx" ' aus welcher Datei soll er holen?
Blatt = "Tabelle1" ' von welcher Tabelle soll er holen?
Bereich = "A1:J19" ' aus welchem Bereich soll er holen?
Set Ziel = ActiveSheet.Range("A1") ' in welchen Bereich soll er kopieren? Genauer gesagt: Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert"
End If
End Sub



Ich habe die Datei jetzt noch einmal neu geöffnet und bemerkt, das der Pfad auch nicht automatisch übernommen wird, der im CODE steht. Zudem kommt keine Fehlermeldung wenn ich zwischendurch auf abbrechen klicke. Es kommt "Daten importiert" aber im eigentlichen importierten Datenbereich wird nur in jeder Zelle "#Bereich" angezeigt.

 

Grüezi fragenüberfragen

Dann würde ich mal sagen, dass bei dem Pfad, den Du angegeben hast irgendwas nicht richtig passt. Wenn der Code nämlich einen korrekten Bezug zur Quelle herstellen kann stehen die Daten drin und es poppt kein Fenster auf, das zur Auswahl einer Datei auffordert.

Wenn dein Ordner tatsächlich so viel 1-en hat, dann hast Du dich dabei wohl verzählt....

Auch den Name des Tabellenblattes muss natürlich passen.

 

AHHHHHH Fehler gefunden!!

der Ordner war richtig NUR ich hab hinten ein \ vergessen

Danke euch für eure Hilfe

 

eine Sache habe ich festgestellt enthält der Dateiname Leerstellen kommt auch das Fenster.