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")