Pfadangabe bei der Einbindung einer Mappe
05.04.2005 10:01:27
Christian
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