Daten aus einer anderen Exceldatei einlesen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Oliver,

vergiß das wechseln und selecten, das ist unnötig und fehlerträchtig.

Ich nehme mal an, der Name der Datei, in die kopiert werden soll, sei bekannt und würde "Zieldatei.xls" lauten. Außerdem nehme ich an, daß beide Dateien nur eine Tabelle enthalten und das die Tabelle in "Zieldatei.xls" "Zieltab" und die in der geöffneten Datei "Quelltab" heißt. All diese Namen mußt Du in nachfolgendem Code anpassen.

Der Name der geöffneten Datei ist egal, da er mit der Zeile

ZuÖffnendeDatei = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")

in der Variablen ZuÖffnendeDatei abgespeichert wird, die man in den Kopierbefehlen verwenden kann.

Jetzt das Makro:


Sub Übernahme()
ChDrive "C"
ChDir "C:\EigeneDateien"
ZuÖffnendeDatei = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
Workbooks.Open FileName:=ZuÖffnendeDatei
Workbooks(ZuÖffnendeDatei).Worksheets("Quelltab").Range("A5:D5").Copy Destination:= Workbooks("Zieldatei").Worksheets("Zieltab").Range("A4")
Workbooks(ZuÖffnendeDatei).Worksheets("Quelltab").Range("A8:K15000").Copy Destination:= Workbooks("Zieldatei").Worksheets("Zieltab").Range("A7")
Workbooks(ZuÖffnendeDatei).Close
End Sub

Achtung: Der Code ist nicht getestet, da ich die Dateien nicht nachbauen wollte.

Schau Dir generell mal die Hilfe zu COPY an.

Gruß
Martin Beck

Danke Dir Martin für die Mühe,

die Du Dir wegen mir machst. Leider bricht das Makro jetzt mit dem Laufzeitfehler 9 ab. Ich schreibe mal nachfolgend das von mir angepaste Makro hin:

Private Sub CommandButton1_Click()
ChDrive "F"
ChDir "F:\Arbeit\Auslesedaten Zenner Zähler\"
ZuÖffnendeDatei = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
Workbooks.Open Filename:=ZuÖffnendeDatei
Workbooks(ZuÖffnendeDatei).Worksheets("LogTab0").Range("A5:D5").Copy Destination:=Workbooks("Vorlage Auslesung Datenlogger.xls").Worksheets("Auslesung Datenlogger").Range("A4")
Workbooks(ZuÖffnendeDatei).Worksheets("LogTab0").Range("A8:K15000").Copy Destination:=Workbooks("Vorlage Auslesung Datenlogger.xls").Worksheets("Auslesung Datenlogger").Range("A7")
Workbooks(ZuÖffnendeDatei).Close
End Sub

Code eingefügt mit Syntaxhighlighter 2.4

Die Datei, in die die Daten kopiert werden sollen heißt Vorlage Auslesung Datenlogger.xls. Die Tabelle in der Datei heißt Auslesung Datenlogger. Die Tabelle von der die Daten kopiert werden sollen heißt LogTab0. Der Name der Datei in der die Tabelle LogTab0 ist spielt ja keine Rolle hast Du gesagt.

Kannst Du mir eventuell sagen warum jetzt dieser Laufzeitfehler kommt?

MfG,
Oliver

Sub Datei_auslesen() Dim dat$, Verz$, ws As Worksheet Verz = "S:\HAUSSTATION\Auslesedaten Zenner Zähler\" On Error Resume Next ChDrive Left(Verz, 1) ChDir Verz On Error GoTo 0 Set ws = Workbooks("Vorlage Auslesung Datenlogger.xls").Worksheets("Auslesung Datenlogger") dat = Application.GetOpenFilename("Exceldateien (*.xls), *.xls") If Dir(dat) <> "" Then Workbooks.OpenText Filename:=dat Else Exit Sub End If Worksheets("LogTab0").Range("A5:D5").Copy ws.Range("A4") Worksheets("LogTab0").Range("A8:K3000").Copy ws.Range("A7") ActiveWindow.Close (False) End Sub

Beliebteste Forumthreads (12 Monate)

Daten aus einer anderen Exceldatei einlesen?

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus einer anderen Exceldatei einlesen?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread