91
Excel / Re: Ophalen
« Laatste bericht door Sunnybat Gepost op 30 april 2024, 15:14:34 »@SoftAid
ik krijg de melding
Deze eigenschap of methode wordt niet ondersteund door dit object
ik krijg de melding
Deze eigenschap of methode wordt niet ondersteund door dit object
Code: [Selecteer]
Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\test\test.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150")).ClearContents
.TextFileParseType = xlDelimited
'geef de scheidingstekens op:
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileCommaDelimiter = False
.Refresh
End With
End Sub