Daten aus einer anderen Exceldatei einlesen?

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Daten aus einer anderen Exceldatei einlesen?

Daten aus einer anderen Exceldatei einlesen? von Oliver S. vom 02.09.2003 13:39:19
- AW: Daten aus einer anderen Exceldatei einlesen? - von Martin Beck am 02.09.2003 15:33:58
  - Schon nicht schlecht, aber.... - von Oliver S. am 02.09.2003 17:17:53
    - (Ziemlich) vollständige Lösung - von Martin Beck am 02.09.2003 18:31:17
      - Fast vollständig aber noch ein Laufzeitfehler! - von Oliver S. am 02.09.2003 18:54:55
        
        Nur eine Vermutung - von Martin Beck am 02.09.2003 20:34:21
        
        Das war es leider nicht! - von Oliver S. am 03.09.2003 06:36:16
        
        Jetzt funktionierts! - von Oliver S. am 03.09.2003 09:11:59

Betrifft: Daten aus einer anderen Exceldatei einlesen? von: Oliver S.
Geschrieben am: 02.09.2003 13:39:19

Hallo Ihr lieben Helfer,

ich habe mal wieder keinen Plan wie ich meine Vorstellungen in die Tat, bzw. in VBA, umsetzen soll. Beim Betätigen einer Befehlsschaltfläche in meiner Ausgangstabelle soll sich das Fenster zum Öffnen von Exceldateien aufmachen. Es sollte schon der Pfad, z.B. C:\Eigene Dateien, geöffnet sein, so dass ich alle Exceldateien, die sich in dem Pfad befinden sehen kann. Nach der Auswahl soll die Datei, ich nenne diese mal “Datenloggerdaten“, öffnen und zuerst die Zellen A5 bis D5 kopiert und in meiner Ausgangsdatei in A4 eingefügt werden. Danach soll in der Datei “Datenloggerdaten“ die Zellen A8 bis K1500 kopiert werden und in meiner Ausgangsdatei in A7 eingefügt werden. Zum Schluß soll die Datei “Datenloggerdaten“ geschlossen werden. Was ich vielleicht noch erwähnen sollte, die Datei aus der die Daten kopiert werden sollen heißt nicht immer gleich. Sie kann z.B. mal Datenlogger 02-09-2003 oder auch mal Auslesung Schuldorf heißen.

Ich hoffe, Ihr konntet mir folgen und mir helfen.

Schon mal besten Dank,
Oliver

Betrifft: AW: Daten aus einer anderen Exceldatei einlesen?

Sub Übernahme()
ChDrive "C"
ChDir "C:\EigeneDateien"
ZuÖffnendeDatei = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")
Workbooks.Open FileName:=ZuÖffnendeDatei
End Sub

Betrifft: Schon nicht schlecht, aber....

Betrifft: (Ziemlich) vollständige Lösung

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

Betrifft: Fast vollständig aber noch ein Laufzeitfehler!

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

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

Betrifft: Nur eine Vermutung von: Martin Beck
Geschrieben am: 02.09.2003 20:34:21

Hallo Oliver,

laß mal das .xls weg.

Gruß
Martin Beck

Betrifft: Das war es leider nicht! von: Oliver S.
Geschrieben am: 03.09.2003 06:36:16

Moin Martin,

sorry, dass ich mich erst heute morgen melde, aber gestern habe ich dann, nachdem ich den ganzen Tag herumprobiert habe, den PC ausgemacht. Daher kommt erst heute ein Dankeschön von mir. Leider war das nicht der Fehler. Nach Löschen von .xls kommt immer noch der Laufzeitfehler 9. Vielleicht fällt Dir ja noch etwas dazu ein?

Bis dahin noch einen schönen Tag,
Oliver

Betrifft: Jetzt funktionierts! von: Oliver S.
Geschrieben am: 03.09.2003 09:11:59

Hallöchen,

ich habe es gelöst. Mit ein bisschen herumprobieren funktioniert der Code jetzt.

Nachfolgend der Code, wie er jetzt aussieht:

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

Nomal besten Dank an Martin, er hat mir sehr geholfen.

MfG,
Oliver