Pfadangabe bei der Einbindung einer Mappe

Bild

Betrifft: Pfadangabe bei der Einbindung einer Mappe von: Christian
Geschrieben am: 05.04.2005 10:01:27

Guten Morgen,


folgender VBA-Code bewirkt, dass ein Öffnen-Dialogfenster erscheint, um eine andere, schon vorhandene Arbeitsmappe (ein Tabellenblatt drin) in die aktuelle Mappe (auch nur ein Blatt enthalten) einbinden zu können:

***
'Datenquelle in die Arbeitsmappe integrieren.
NameDatenquelle = Application.GetOpenFilename("Microsoft Excel Worksheet (*.xls), *.xls")
Workbooks.Open NameDatenquelle
NameHauptarbeitsmappe = ActiveWorkbook.Name
Sheets(1).Select
Windows("Monatsauswertung Fehlerarten OF (Visualisierung).xls").Activate
Windows(NameHauptarbeitsmappe).Activate
Sheets(1).Move After:=Workbooks("Monatsauswertung Fehlerarten OF (Visualisierung).xls").Sheets(1)
***

Meine beiden Fragen:
1) Kann man den Code in irgendeiner Weise verbessern?
2) Wie kann ich den Anfangsteil des Dateipfades der zu integrierenden Mappe angeben? Die Mappe liegt tief in der Struktur und das Suchen kostet immer viel Zeit...


Vielen Dank für eure Hilfe!!!
Christian aus Berlin

Bild


Betrifft: AW: Pfadangabe bei der Einbindung einer Mappe von: u_
Geschrieben am: 05.04.2005 10:12:56

Hallo,
'Datenquelle in die Arbeitsmappe integrieren.
chDir "c:\Test\Test1\Test2"'in das tiefe Verzeichnis wechseln
NameDatenquelle = Application.GetOpenFilename("Microsoft Excel Worksheet (*.xls), *.xls")
Workbooks.Open NameDatenquelle
'NameHauptarbeitsmappe = ActiveWorkbook.Name 'überflüssig, da doppelt gemoppelt
'Sheets(1).Select 'überflüssig
'Windows("Monatsauswertung Fehlerarten OF (Visualisierung).xls").Activate'überflüssig
'Windows(NameHauptarbeitsmappe).Activate'überflüssig
Sheets(1).Move After:=Workbooks("Monatsauswertung Fehlerarten OF (Visualisierung).xls").Sheets(1)

Gruß


Bild


Betrifft: AW: Pfadangabe bei der Einbindung einer Mappe von: Christian
Geschrieben am: 05.04.2005 10:20:04

Danke!!! Funktioniert so, wie ich es haben wollte!

Nette Grüße aus Berlin!
Christian


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Probleme bei dem ausführen Makros"