Office: Von Workbook zu Workbook kopieren

Hallo zusammen,

ich hänge mal wieder*eek.gif*

Folgendes Problem: Ich will den Inhalt eines Tabelle der Datei "a" in die Tabelle der Datei "b" kopieren. Das ist weiter kein Problem - ich habe mir eine kleine Routine geschrieben und es funktioniert so, wie ich es mir vorstelle - bis auf die Tatsache, dass ich gerne anstelle der fest vorgegebenen Namen für die Dateien bzw. Workbooks Eingaben über zwei Textboxen ermöglichen will.
Ich habe schon hin und her probiert - aber es funktioniert einfach nicht. Es kommt immer die Meldung "Objekt fehlt".

Hier mal mein kleines Ursprungslisting:

Code:

Wie man schon sieht, geht es um die Quelldatei:
Workbooks("DT_Profi_Verwaltung_Neu_26052011.xls")

und die Zieldatei:
Workbooks("Profi_Verwaltungstool_Neu_leer_vers18052011.xls")

Die beiden betroffenen Tabellen sind identisch (wie im Listing zu sehen).

da an der Zieldatei immer noch rumexperimentiert und geändert wird was neue VBA-Funktionalitäten anbelangt und in die Quelldatei schon reichlich Daten eingeflossen sind, will ich die Daten bei Bedarf dann auf diesem Weg in mein kleines Update rüberschaufeln und da die Zieldatei von Anwender zu Anwender einen anderen Namen erhält, habe ich mir gedacht, diesen einfach über eine TextBox eingeben zu können.

Kann mir da einer helfen wie ich anstelle der feststehenden Dateinamen einen TextBoxinhalt zufügen kann??

Bis dahin und schon mal Danke für jeden Vorschlag.

Andreas

:)

 

Hi Andreas,
du musst einfach statts dem Zieldateinamen eine Inputbox einfügen.
Code:

 

Hallo zusammen,

eine Inputbox direkt in der Kopierzeile zu verwenden birgt natürlich die Gefahr, dass der Code einen Laufzeitfehler produziert, weil der Dateiname zum Beispiel durch einen Schreibfehler falsch ist.

Daher würde ich dazu raten, über die Inputbox den Dateinamen zunächst in eine Variable zu schreiben und dann anschließend den angegebenen Dateinamen (zum Beispiel mit der Dir-Methode) daraufhin zu prüfen, ob die Datei überhaupt existiert. In einer Schleife könnte man dann solange auf die Inputbox zurückspringen, bis ein gültiger Dateiname eingegeben wurde.

Oder man lässt den Nutzer die gewünschte Datei gleich über die Application.GetOpenFile-Methode auswählen. Dabei können nur gültige Dateinamen an die Variable übergeben werden, so dass die Überprüfung wegfallen würde.

Gruß Ingolf

 

Hallo,

hier jetzt mal mein abgeändertes Listing nach den ersten Anregungen:

Code:

Leider passiert nicht das, was ich gerne möchte - es wird der fehler angezeigt:

"Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs"

Was habe ich da falsch gemacht oder übersehen??

Danke

Andreas

 

Hallo Andreas,

1. Siehe meine vorige Antwort - die eingetragenen Dateinamen können Schreibfehler enthalten, dann wird die Datei nicht gefunden. Das würde den von dir beschriebenen Laufzeitfehler auslösen. Du solltest prüfen, ob die angegebenen Dateien tatsächlich in Excel geöffnet sind:

 

Hallo zusammen,

habe den Fehler gefunden. Ich bin davon ausgegangen, den Namen mit den dazugehörigen Semikolon eingeben zu müssen - das war falsch - warum auch immer (in den Klammern steht der Name doch auch in Semikolon eingefasst) und so bin ich davon ausgegangen, alles inklusive in die TextBox eingeben zu müssen.

Ohne Semikolon macht er genau das, was ich will.

Soviel zu der Fehleranzeige.

Vielen Dank noch mal - vielleicht kann mir einer das mal mit dem Auswählen des Namens direkt aus dem Verzeichnisbaum erklären - habe ich keinen blassen Schimmer von wie das geht (evtl. über eine ComboBox).


Bis dahin

Andreas

 

Hallo Andreas,

 

Hallo zusammen,

vielen Dank für Eure Hilfe. Werde jetzt mal die Anregungen versuchen, in mein kleines Listing mit unterzubringen.
Wenn ich hängen bleibe, melde ich mich einfach wieder*tongue.gif*

Bis dahin

Andreas

 

Hallo Ingolf, hallo alle Anderen,

ich habe mal Deine Anregung mit der "Fehlererkennung" aufgegriffen und in mein Listing wie folgt mit eingebaut:

Code:

Ihr seht am Listing schon meinen Versuch, für beide Textboxen (Quelldatei TB1 und Zieldatei TB2) eine "Fehlererkennung" zu erreichen. Zur TB1 funktioniert die Fehlererkennung wie gewünscht. Nur bei TB2 greift sie nicht. Wahrscheinlich habe ich da mit meiner Idee des Listings einen vielleicht ganz einfachen Fehler gemacht - nur ich kann ihn nicht enddecken.

Vielleicht kann mir da einer auf die Sprünge helfen*tongue.gif*

Bis dann

Andreas

 

Hallo Andreas,

du musst die Variable bVorhanden zwischen den beiden Prüfungen wieder auf False setzen:

Code:

Gruß Ingolf