csv-Import mit Gebietsschema
24.04.2022 15:07:23
Stefan
Sub ImportCSVFile()
Dim xFileName As Variant
Dim Rg As Range
Dim xAddress As String
xFileName = "C:\Users\Stefan\Downloads\feeds.csv"
On Error Resume Next
xAddress = "A1"
With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
.TextFileStartRow = 2
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With
End Sub
Danke und einen schönen Sonntag noch,
Stefan
Anzeige