1.733
bewerkingen
Geen bewerkingssamenvatting |
(Username variabele toegevoegd in ImporteerImport macro.) |
||
'
Dim UserName As String
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\" & Environ("UserName") & "\Desktop\import.txt", Destination:=Range("$A$1"))
|
bewerkingen