mit folgendem Code importiere ich einen CSV Datensatz in meine Tabelle:
Sub CSV_Import()
Dim Datei As String
ChDrive Left(ThisWorkbook.FullName, 1)
ChDir ThisWorkbook.Path
Datei = Application.GetOpenFilename("CSV, *.csv")
If Not LCase(Datei) Like "*.csv" Then Exit Sub
Sheets("CSV.Import").Select
Cells.Select
Selection.ClearContents
With Workbooks.Open(Datei, ReadOnly:=True, local:=True)
.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("CSV.Import").Cells(1, 1)
.Close False
End With
Sheets("CSV.Import").Select
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells.EntireColumn.AutoFit
End Sub
Nach erfolgreichem Import möchte ich den abs. Pfad aus dem die CSV Datei effektiv geladen wurde in eine Zelle schreiben (Die Datei liegt nicht immer im ThisWorkbook.Path).Es wäre super wenn ihr mir hier auf die Sprünge helfen würdet.
Danke und Gruss, Henner