如何样把txt文档数据导入Excel？

with activesheet.querytables.add(connection:="text;e:\12.txt", destination _
:=range("a1"))
.name = "12"
.fieldnames = true
.rownumbers = false
.filladjacentFormulas = false
.PReserveFormatting = true
.refreshonfileopen = false
.refreshstyle = xlinsertdeletecells
.savepasSWord = false
.savedata = true
.adjustcolumnwIDth = true
.refreshperiod = 0
.textfilePromptonrefresh = false
.textfileplatForm = 936
.textfilestartrow = 1
.textfileparsetype = xldelimited
.textfiletextqualifier = xltextqualifierdoublequote
.textfileconsecutivedelimiter = false
.textfiletabdelimiter = true
.textfilesemicolondelimiter = false
.textfilecommadelimiter = false
.textfilespacedelimiter = false
.textfilecolumndatatypes = array(1, 1, 1, 1)
.textfiletrAIlingminusnumbers = true
.refresh backgroundquery:=false
end with
range("e4").select