91
Excel / Re: Ophalen
« Laatste bericht door Della Jordan Gepost op 30 april 2024, 16:30:13 »Volgens jou vraag (voorbeeld) moet dit voldoende zijn.
Alles die op false staat is sowieso overbodig.
Alles die op false staat is sowieso overbodig.
Code: [Selecteer]
Sub CSV_Import()
Set ws = ThisWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
ws.Range("A1:H150").ClearContents
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150"))
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh
End With
End Sub