Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo,

soweit habe ich es schon mal hinbekommen. Der Pfad/die Datei wird übergegeben (wenn auch umständlich) - aber beim
Einlesen der csv nicht mehr erkannt ( VBA meckert : "...kann Datei nicht finden ..."). Also muss doch bei der
-QueryTables.Add- etwas schief laufen - der Pfad wird nicht erkannt. Muss der doch unter .name der Dateiname expliziert
aufgeführt werden? Die Datei sollte doch mit dem Pfad mit der -strFileName- doch übergeben werden ... oder ist das ein
Problem der Variablendeklaration oder Zeichen falsch gesetzt ... ?
------------------
Public Function CSV_Datei_einlesen()
Dim strFileName As String
    With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Add "CSV-Dateien", "*.csv"
       If .Show = -1 Then
          strFileName = .SelectedItems(1)
          Cells(1, 1) = strFileName
       End If
    End With
End Function
Sub Einlesen()
Dim strFileName As String
    CSV_Datei_einlesen
    strFileName = Cells(1, 1)
    Cells(2, 2).Select
    With ActiveSheet.QueryTables.Add(Connection:="Text;strFileName", Destination:=Range("$B$2"))
        .Name = "strFileName"
        ' .... all die Einzeleinstellung sind hier ausgeblendet
        .Refresh BackgroundQuery:=False
    End With
End Sub
------------------
Gruß
und Danke im Voraus
Bernd