Dateinamen in Zelle anzeigen?
03.09.2003 09:20:10
Oliver S.
ich habe einen Code, der mir Daten aus einer anderen Exceldatei in eine Vorlage kopiert. Nun möchte ich gerne, das mir in der Vorlage der Name der Exceldatei, von der die Daten ausgelesen wurden, in einer Bestimmten Zelle angezeigt werden. Bräuchte dabei aber etwas Hilfe. In der Recherche habe ich zwar was darüber gefunden, wie man den Dateinamen in einer Zelle anzeigen lässt, hilft mir aber bei meiner Datei nicht weiter, da die Datei, aus der die Daten stammen, nur kurz geöffnet wird um die Daten zu kopieren und dann wieder geschlossen wird. Da ich jetzt nicht weiß, ob Ihr um mir zu helfen den Code zum Auslesen braucht, habe ich Nachfolgend den Code mal aufgeführt.
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
Für Eure Hilfe besten Dank,
Oliver