[Hilfe]
30.09.2019 09:41:35
Julian
ich habe folgendes Problem: ich möchte gerne aus einem vorher ausgewählten Ordner mehrere txt-Dateien öffnen und die Daten weiter verarbeiten. Die Auswahl klappt. Die Variable "ordner" hat auch den korrekten Wert / Pfad. Jedoch hat dann die Datei-Variable den falschen Wert, obwohl die richtige Datei gefunden wurde. Quellcode und Fehlermeldungen als Bilder folgen:
Sub Ordnerauswahl()
Dim ordner As String
Dim dateiname As String
Dim i, n As Integer
Dim Wb_proto As Workbook
Dim Wb_feste As Workbook
Set Wb_proto = ActiveWorkbook
MsgBox "Please choose the datafolder of fixed sensor mounting measurement!", _
vbOKOnly + vbInformation, "Information"
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Ordnerauswahl"
.ButtonName = "Ordner auswählen"
.InitialView = msoFileDialogViewList
.Show
ordner = .SelectedItems(1)
End With
For i = 1 To 3 Step 1
For n = 12 To 52 Step 20
dateiname = Dir(ordner & "\" & "20*" & i & "_fixed.txt")
MsgBox ordner
MsgBox dateiname
Application.Workbooks.OpenText Filename:=dateiname, DataType:=xlDelimited, _
Tab:=True, Semicolon:=True, Other:=True, OtherChar:="=", Local:=True
Set Wb_feste = ActiveWorkbook
Range("A1:B7").Select
Selection.Copy
Wb_proto.Activate
Sheets("festeAufnahme").Select
Cells(n, 1).Select
ActiveSheet.Paste
Wb_feste.Activate
Application.CutCopyMode = False
ActiveWindow.Close SaveChanges:=False
Next n
Next i
End Sub
