importeren data

[janus1janus1]

LS

Ik heb een code gemaakt om data te importeren. Het werkt wel maar tijdens het draaien krijg ik wel het scherm met het te kiezen bestand in beeld. Kan dit (automatisch) overgeslgen worden?
Alvast bedankt voor het meedenken.
Janus
Range("E6").Select
With Selection.QueryTable
.Connection = "TEXT;D:\test.txt"
.TextFilePlatform = -536
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ","
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

 

[snb]

Workbooks.opentext "D:\test.txt",,,,,True,false,false,false,false