Office: Workbook zuweisen und daraus Daten kopieren

Guten Morgen Forum

meine Frage des Tages:

ich will Daten aus einem (noch geschlossenen) Excel-Workbook kopieren. das anvisierte Workbook ist standardisiert, das heißt ich weiß schon wie die Bereiche heißen werden, aber das Workbook kann unterschiedlich heißen und mit unterschiedlichen Daten befüllt sein.

folgendes hab ich mir schon zusammengestrickt:

Code:

also ich möchte das File auswählen können, aus dem die Daten kommen sollen. Der Code läuft allerdings nicht, ich finde den Fehler nicht. Ausgiebige Google-Suche hat nichts ergeben, dort werden immer nur Sheets angewählt, keine Workbooks.

Kann mir jemand einen Tipp geben?

Grüße
Herbert

:)

 

Hallo Herbert,

arbeite mit dem Objekt wks:
Workbooks(wks).Sheets("Tabelle1").Range("Name").Copy
-->
wks.workSheets("Tabelle1").Range("Name").Copy

wks.Parent.Close False
Parent ist überflüssig - wks ist bereits ein Workbook, das "geclosed" werden kann.

Nur am Rande:
Eine Variable des Typs Workbook würde ich eher wkb (oder wb) nennen - wks würden viele als Worksheet interpretieren, was zu Irritation führen könnte.

Grüße
EarlFred

 

Hallo Fred

ich hab jetzt das Objekt(wkb) und das parent geändert

Code:

der Debugger sagt mir, der Fehler liegt in der Zeile "strDatei = Application.GetOpenFilename"
nämlich, dass "Objektvariable oder With-Blockvariable nicht festgelegt."

aber ich lege doch per Dialogbox fest? ich denke, ich brauch vielleicht das strDatei gar nicht, weil ich ja nur das Workbook festlegen will.

Grüße

 

Hallo Herbert,

sorry, nicht alles von Deinem Code gelesen.

Doch, wirst Du brauchen, wenn Du die Rückgabe prüfen willst.

Die Rückgabe von Application.GetOpenFilename ist ein String-Wert mit Inhalt Pfad und Dateiname oder der Boolsche Wert "Falsch", wenn keine Datei gewählt wurde. Daher darf die Variable für den Rückgabewert nicht vom Typ "Worksheet" sein - das wäre ja ein Objekt vom Typ "Tabellenblatt". Deklariere sie stattdessen als String - oder noch einfacher als Variant, dann kannst Du leicht auf False prüfen.

Code:

Bei einer String-Variable könntest Du z. B. so prüfen:
If strDatei CStr(False) Then


Workbooks("Grafik1") funktioniert übrigens nur, wenn die Datei "Grafik1" noch nicht gespeichert wurde - anderfalls muss die Endung noch mit angegeben werden. Wenn damit das Workbook gemeint ist, in dem der Code steht, verwende stattdessen ThisWorkbook - dann ist es klar, welches gemeint ist.

Grüße
EarlFred

 

Freddy Fred du bist der Größte!

Es läuft und ich freu mich wie ein Schneekönig.

Vielen Dank auch für die ausführlichen Erklärungen, so lernt man Stück für Stück über VBA dazu. (das Workbooks("Grafik1") läuft bei mir durch, obwohl ich das File schon öfters gespeichert hab, hab jetzt aber sicherheitshalber die Endungen noch dazu geschrieben)