asd
Tobias
ich habe bereits ein Marko geschrieben, bei dem eine Datei auf meiner Festplatte in die
Excelmappe eingefügt wird:
Option Explicit
Sub Datenimport()
Dim Importdatei$, Verzeichnis$
Verzeichnis = "C:\"
On Error Resume Next
ChDir Verzeichnis
Importdatei = Application.GetOpenFilename("Exceldateien (*.dat), *.dat")
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Importdatei, _
Destination:=Range("B7"))
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With
End Sub
Nun möchte ich den Dateinamen der importierten Datei ins Feld B3 eintragen allerdings ohne die Endung .dat
Die Dateien haben dabei 2 verschiedene Formen. Ab und zu mit "#" und ab und zu ohne.
Beispiel:
"#7081_K2_Measurement Makrohysteresis II_a_03052012_132526.dat"
"7081_K2_Measurement Makrohysteresis II_a_03052012_132526.dat"
Anschließend soll bitte das Datum (in diesem Fall 3.5.2012) in Zeile B4 ausgelesen und kopiert werden und die erste Zahl (in diesem fall 7081) in die Zeile B5.
Vielen Dank
Tobias