请教:导入文本以特定符号分列的问题

martinmaster

大家好,最近在网上找到一段代码，
他的功能是利用vba将txt文档中的数据按照逗号分隔符依次倒入excel文档中
所以有个疑问：此代码只能以逗号“，”分列，那么有其他文本是以其他字符分隔的话，应该怎么改？
比如以“、”,"|"，"^"等字符分隔的话怎么导入到Excel里

1. Sub 文本导入()
   
2.     fileToOpen = Application.GetOpenFilename("请选文本(*.txt), *.txt", , "导入逗号分隔文本")
   
3.     If fileToOpen = False Then
   
4.         Exit Sub
   
5.     End If
   
6.     Range("A1").Select
   
7.     With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range("A1"))
   
8.         .FieldNames = True
   
9.         .RowNumbers = False
   
10.         .FillAdjacentFormulas = False
    
11.         .PreserveFormatting = True
    
12.         .RefreshOnFileOpen = False
    
13.         .RefreshStyle = xlInsertDeleteCells
    
14.         .SavePassword = False
    
15.         .SaveData = True
    
16.         .AdjustColumnWidth = True
    
17.         .RefreshPeriod = 0
    
18.         .TextFilePromptOnRefresh = False
    
19.         .TextFilePlatform = 936
    
20.         .TextFileStartRow = 1
    
21.         .TextFileParseType = xlDelimited
    
22.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
    
23.         .TextFileConsecutiveDelimiter = False
    
24.         .TextFileTabDelimiter = False
    
25.         .TextFileSemicolonDelimiter = False
    
26.         .TextFileCommaDelimiter = True
    
27.         .TextFileSpaceDelimiter = False
    
28.         .TextFileColumnDataTypes = Array(1, 1, 1)
    
29.         
    
30.         .TextFileTrailingMinusNumbers = True
    
31.         .Refresh BackgroundQuery:=False
    
32.     End With
    
33. End Sub

复制代码