txt通过 vb编程导入 excel

Private Sub CommandButton1_Click()
'按钮触发，

'按钮触发，目前支持ASNI文本的数据， 单行

fileToOpen = Application.GetOpenFilename("请选文本(*.txt), *.txt", , "导入逗号分隔文本")
'选择txt把路径给fileToOpen
'判断路径的正确性
If fileToOpen = False Then
MsgBox "错误路径" & Chr(13) & "请重新选择"

End If
'定义s
Dim s As String
Dim tt As Long
tt = Range("A1").Value
Range("B1").Value = tt
'chr（65）为A
Range(Chr(65) & tt).Select


' With对某个对象执行一系列的语句，ActiveSheet活动表中，QueryTables集合体，add添加，---Connection链接，TEXT，fileToOpen路径值，Destination写入到表格变量Range(Chr(65) & tt))


With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range(Chr(65) & tt))

.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 = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

End Sub

语法
Chr(charcode)
charcode为各类字符的ASCII码

在ASP脚本字符串中不能识别、无法标识或与该语法产生冲突的字符，可用“chr(相应ASCII码)”来表达，
本函数也可称为ASP程序中的转义符。

用法：
比如“ASP中字符串替换”
将media_span_url("index.html")替换为<br>
wstr=Replace(wstr,"media_span_url"&chr(40)&chr(34)&"index.html"&chr(34),"<br>")
如果在上述字符串中直接输入“括号()”，则将与表达式中的“括号”产生冲突。
使用chr()语法，对asp字符串中“括号()”进行转义，即可轻松解决该问题。

chr()转义字符对照表
　　
　　Chr("0") 为0的字符

　　Chr("1") 

　　Chr("2") 

　　Chr("3") 

　　Chr("4") 

　　Chr("5") 

　　Chr("6") 

　　Chr("7") 响铃

　　Chr("8") 回格

　　Chr("9") tab(水平制表符)

　　Chr("10") 换行

　　Chr("11") tab(垂直制表符)

　　Chr("12") 换页

　　Chr("13") 回车 chr(13)&chr(10) 回车和换行的组合

　　Chr("14") 

　　Chr("15") 

　　Chr("16") 

　　Chr("17") 

　　Chr("18") 

　　Chr("19") 

　　Chr("20") 

　　Chr("21") 

　　Chr("22") 

　　Chr("23") 

　　Chr("24") 

　　Chr("25") 

　　Chr("26") 结束 End

　　Chr("27") 脱离 Pause break

　　Chr("28") 

　　Chr("29") 

　　Chr("30") 

　　Chr("31") 

　　Chr("32") 空格 SPACE

　　Chr("33") !

　　Chr("34") "

　　Chr("35") #

　　Chr("36") $

　　Chr("37") %

　　Chr("38") &

　　Chr("39") ’

　　Chr("40") 左括号转义 (

　　Chr("41") 右括号转义 ) 

　　Chr("42") *　

　　Chr("43") +

　　Chr("44") ,

　　Chr("45") - 

　　Chr("46") .

　　Chr("47") /

　　Chr("48") 0 

　　Chr("49") 1

　　Chr("50") 2

　　Chr("51") 3

　　Chr("52") 4　

　　Chr("53") 5

　　Chr("54") 6

　　Chr("55") 7

　　Chr("56") 8

　　Chr("57") 9　

　　Chr("58") :

　　Chr("59") ;

　　Chr("60") <

　　Chr("61") =

　　Chr("62") >　

　　Chr("63") ?

　　Chr("64") @

　　Chr("65") A 

　　Chr("66") B

　　Chr("67") C　

　　Chr("68") D

　　Chr("69") E

　　Chr("70") F

　　Chr("71") G

　　Chr("72") H　

　　Chr("73") I

　　Chr("74") J

　　Chr("75") K

　　Chr("76") L

　　Chr("77") M　

　　Chr("78") N

　　Chr("79") O

　　Chr("80") P

　　Chr("81") Q

　　Chr("82") R　

　　Chr("83") S

　　Chr("84") T

　　Chr("85") U

　　Chr("86") V

　　Chr("87") W　

　　Chr("88") X

　　Chr("89") Y

　　Chr("90") Z 

　　Chr("91") [

　　Chr("92") 　

　　Chr("92") 

　　Chr("93") ]

　　Chr("94") ^

　　Chr("95") _

　　Chr("96") `

　　Chr("97") a　

　　Chr("98") b

　　Chr("99") c

　　Chr("100") d

　　Chr("101") e

　　Chr("102") f　

　　Chr("103") g

　　Chr("104") h

　　Chr("105") i

　　Chr("106") j

　　Chr("107") k　

　　Chr("108") l

　　Chr("109") m

　　Chr("110") n

　　Chr("111") o

　　Chr("112") p　

　　Chr("113") q

　　Chr("114") r

　　Chr("115") s

　　Chr("116") t

　　Chr("117") u　

　　Chr("118") v

　　Chr("119") w

　　Chr("120") x

　　Chr("121") y

　　Chr("122") z　

　　Chr("123") {

　　Chr("124") |

　　Chr("125") }

　　Chr("126") ~

　　Chr("127") 

　　Chr("128") 

　　Chr("129") 

　　Chr("130") 

　　Chr("131") 

　　Chr("132")