Hallo,
Een csv-bestand wordt gedownload vanuit een externe toepassing.
Het bestand wordt gedownload in de usermap.
Tot nu toe steeds op dezelfde computer.
Het bestand wordt daarna binnengehaald in een excelbestand waarin de macro zit.
Dit gebeurt met de navolgende macro.
Code wordt vervolgd, maar nu voor de vraag niet relevant (lijkt mij).
Hoe kan ik hierin de user (Hans) variabel maken, zodat de toepassing op elke willekeurige computer kan worden gebruikt?
Hopelijk is de vraag duidelijk.
Dank alvast voor jullie reactie.
Een csv-bestand wordt gedownload vanuit een externe toepassing.
Het bestand wordt gedownload in de usermap.
Tot nu toe steeds op dezelfde computer.
Het bestand wordt daarna binnengehaald in een excelbestand waarin de macro zit.
Dit gebeurt met de navolgende macro.
Code:
Sheets("SL_leden_l").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Hans\sl-excel-export.csv", Destination:=Range("$A$1"))
'.CommandType = 0
.Name = "sl-excel-export"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Hoe kan ik hierin de user (Hans) variabel maken, zodat de toepassing op elke willekeurige computer kan worden gebruikt?
Hopelijk is de vraag duidelijk.
Dank alvast voor jullie reactie.