Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Bernd am September 11, 2018, 23:22:16 Nachmittag
-
Hallo, vielleicht kann doch jemand helfen,
das Einlesen einer Excel-csv-Datendatei mit all den ganzen Einstellungen soll über ein Button mit dahinterliegendem Macro ausgelöst werden. Mit dem unten angeführten Makro kann die Datei frei ausgewählt werden, alles ohne Fehlermeldung bis auf die letzte Zeile des Einlesens.
Hier wird die Datei trotz sauber übergebenem Pfad nicht gefunden, Fehlermeldung Excel "...Datei kann nicht gefunden werden...". Kann hier leider keine csv-Datei zum Probieren angehängen, aber in der Zeile ...QueryTables.Add ... wird der Pfad strFilePath nicht übernommen(?).
Kann mir jemand helfen?
-------------------------
Makro:
Sub Einlesen()
Dim strFilePath As String
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Add "CSV-Dateien", "*.csv"
If .Show = -1 Then
strFilePath = .SelectedItems(1)
Cells(1, 1) = strFilePath ' => Kontrollausgabe
Cells(2, 1).Select
End If
End With
With ActiveSheet.QueryTables.Add(Connection:="Text;strFilePath", Destination:=Range("$B$2"))
.Name = "strFilePath"
'
' die Einzeleinstellungen sind hier herausgenommen
'
.Refresh BackgroundQuery:=False
End With
End Sub
-------------------------
Gruß
Bernd