Office: Datei per Auswahldialog öffnen und Blatt kopieren

n00b42 · 18. August 2012

Hallo,
gerade sitze ich an einem (für mich) ziemlich komplizierten Makro und komme an einer Stelle nicht weiter.
Folgendes möchte ich machen:

- Es öffnet sich ein 'Datei auswählen...'-Dialog, in dem der User eine Exceldatei auswählt
- Aus der ausgewählten Datei soll automatisch das Arbeitsblatt mit dem Namen "Zusammenfassung" in die Zieldatei kopiert werden. Allerdings sollen nur die Werte kopiert werden, keine Formeln etc.
- Die Quelldatei soll geschlossen werden

Folgenden Code habe ich dafür erstellt:

Dim ImportDatei As Variant
ImportDatei = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", Title:="Eine Datei auswählen")

If ImportDatei = False Then Exit Sub
On Error Resume Next

Workbooks.Open (Importdatei)
ActiveWorkbook.Sheets("Zusammenfassung").Cells.Copy ThisWorkbook.Sheets("Import1").PasteSpecial xlPasteValues
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der GetOpenFilename-Teil und das Öffnen der Datei funktionieren. Das Kopieren leider nicht.
Das Problem ist, dass die ausgewählten Exceldateien und auch die Datei, in der das Makro ausgeführt wird, keine festen Namen haben. Deswegen ist mir nur eingefallen, sie über ActiveWorkbook und ThisWorkbook anzusprechen.

Wo ist der Fehler?

:)

EarlFred · 19. August 2012

Hallo Name?,

Das Problem ist, dass die ausgewählten Exceldateien und auch die Datei, in der das Makro ausgeführt wird, keine festen Namen haben. Deswegen ist mir nur eingefallen, sie über ActiveWorkbook und ThisWorkbook anzusprechen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sich auf die aktive Mappe zu verlassen, kann tückisch sein. Stell Dir vor, Dein Code wächst, und die eben geöffnete Datei ist nicht mehr die aktive...
Du kannst aber die Datei beim Öffnen in eine Variable eintragen und mit dieser weiter arbeiten - das ist zuverlässiger und Du behältst den Überblick.

Probier also mal so:
Code:

Option Explicit

Sub noob()
Dim ImportDatei As Variant
Dim wbImport As Workbook

ImportDatei = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", Title:="Eine Datei auswählen")

If ImportDatei = False Then Exit Sub

Set wbImport = Workbooks.Open(ImportDatei)

wbImport.Worksheets("Zusammenfassung").UsedRange.Copy
ThisWorkbook.Worksheets("Import1").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

wbImport.Close savechanges:=False
Set wbImport = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wo ist der Fehler?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diese Frage kann man leichter selbst klären, wenn man auf On Error Resume Next verzichtet und stattdessen eine saubere Fehlerbehandlung einbaut *wink.gif*

Grüße
EarlFred

n00b42 · 19. August 2012

Genial, so funktioniert es - danke! :-)

Luxikatz · 12. Januar 2021

von EarlFred

Hallo Name?,

Sich auf die aktive Mappe zu verlassen, kann tückisch sein. Stell Dir vor, Dein Code wächst, und die eben geöffnete Datei ist nicht mehr die aktive...
Du kannst aber die Datei beim Öffnen in eine Variable eintragen und mit dieser weiter arbeiten - das ist zuverlässiger und Du behältst den Überblick.

Probier also mal so:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit

Sub noob()
Dim ImportDatei As Variant
Dim wbImport As Workbook

ImportDatei = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", Title:="Eine Datei auswählen")

If ImportDatei = False Then Exit Sub

Set wbImport = Workbooks.Open(ImportDatei)

wbImport.Worksheets("Zusammenfassung").UsedRange.Copy
ThisWorkbook.Worksheets("Import1").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

wbImport.Close savechanges:=False
Set wbImport = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diese Frage kann man leichter selbst klären, wenn man auf On Error Resume Next verzichtet und stattdessen eine saubere Fehlerbehandlung einbaut *wink.gif*

Grüße
EarlFred

Der Code ist genau, das was ich jetzt brauche. jedoch hab ich ein Fehler bei dem Skript:

Code:

Set wbimport = Workbook.Open(importdatei)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fehlermeldung lautet: Laufzeitfehler 424
Object erforderlich

Woran kann es liegen?
Danke schon mal!

Mc Santa · 18. September 2017

Das lässt sich schwer sagen, ohne dass wir den restlichen Code sehen.

VG Santa

Luxikatz · 12. Januar 2021

von Mc Santa

Das lässt sich schwer sagen, ohne dass wir den restlichen Code sehen.

VG Santa
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Dim importdatei As Variant

Dim wbimport As Workbook

importdatei = Application.GetOpenFilename(filefilter:="Microsoft Exel-Dateien(*.xlsx),*.xlsx", Title:="Choose a file")
If importdatei = False Then Exit Sub

Set wbimport = Workbook.Open(importdatei)
wbimport.Worksheets("daten").UsedRange.Copy
ThisWorkbook.Worksheets("files").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

wbimport.Close savechanges:=False
Set wbimport = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo santa,
Das ganze sieht so aus. Das .xlsx File hat zwei Tabellen einmal daten und noch eine andere "name".

Viele Grüße

EarlFred · 18. September 2017

in MEINEM Skript steht:
Code:

Set wbImport = Workbooks.Open(ImportDatei)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Müssen Fullquotes eigentlich sein?

Office: Datei per Auswahldialog öffnen und Blatt kopieren

Datei per Auswahldialog öffnen und Blatt kopieren

Datei per Auswahldialog öffnen und Blatt kopieren

Datei per Auswahldialog öffnen und Blatt kopieren

Datei per Auswahldialog öffnen und Blatt kopieren - Similar Threads - Datei Auswahldialog öffnen

Name der Datei durch Excel geändert

Zugriff auf nicht vorhandene Datei seitens Excel

Makro öffnet unerwartete Datei

Große Textdatei - Formate entschlacken

Word 2000-Datei beschädigt?

Zwei Dateien vergleichen - Zielinfo in unterschiedlichen Spalten

Anzahl der Downloads bereitgestellter Dateien anzeigen