81
Excel / Re: Ophalen
« Laatste bericht door SoftAid Gepost op 30 april 2024, 15:24:30 »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")).Clear
'.......................
'.......................
End Sub
Dat heb ik ook niet voorgesteld. Je maakt er één lijn van:
Deze lijn is copiëren en plakken:
Code: [Selecteer]
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1:H150"))
Je kan daar niet .Clear achter zetten.Code: [Selecteer]
ws.Range("A1:H150").Clear
moet voor de copy-past code staan, op een aparte regel.Volgens mijn bescheiden mening.
SoftAid