[已解决]导入文本分隔符的判定问题

张雄友

导入文本分隔符的判定问题：

        '.TextFileTabDelimiter = True 'tab键为分隔符
        '.TextFileCommaDelimiter = True   '逗号为分隔符
        '.TextFileSpaceDelimiter = True    '空格为分隔符
        'TextFileSemicolonDelimiter=true'分号作为分隔符


但是如果我要找：/ 作为分隔符， [作为分隔符，其代码是什么？

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2015-1-4 22:41

张雄友 发表于 2015-1-4 19:33
不行的。

Sub 导入()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        If .Show = False Then Exit Sub
        FilePath = .SelectedItems(1) & "\"
    End With
    FileName = Dir(FilePath & "*.txt")
    For Each sh In Sheets
        If sh.Name <> "get" Then sh.Delete
    Next
    Do Until Len(FileName) = 0
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = Left(FileName, Len(FileName) - 4)
        With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & FilePath & FileName, Destination:=Range( _
            "$A$1"))
         .TextFileOtherDelimiter = "/"
        .TextFileTrailingMinusNumbers = True
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
        2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
        .Refresh BackgroundQuery:=False
        S = [a1]
        If InStr(S, "?") <> 0 Then
            [a1] = Split(S, "?")(1)
        End If
    End With
    FileName = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

JLxiangwei

Selection.TextToColumns Other:=True, OtherChar:="/"

Selection.TextToColumns Other:=True, OtherChar:="]"

张雄友

JLxiangwei 发表于 2015-1-4 19:21
Selection.TextToColumns Other:=True, OtherChar:="/"

Selection.TextToColumns Other:=True, OtherCha ...

不行的。

JLxiangwei

张雄友 发表于 2015-1-4 19:33
不行的。

Sub 导入()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        If .Show = False Then Exit Sub
        FilePath = .SelectedItems(1) & "\"
    End With
    FileName = Dir(FilePath & "*.txt")
    For Each sh In Sheets
        If sh.Name <> "get" Then sh.Delete
    Next
    Do Until Len(FileName) = 0
        Sheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = Left(FileName, Len(FileName) - 4)
        With ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & FilePath & FileName, Destination:=Range( _
            "$A$1"))
         .TextFileOtherDelimiter = "/"
        .TextFileTrailingMinusNumbers = True
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
        2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
        .Refresh BackgroundQuery:=False
        S = [a1]
        If InStr(S, "?") <> 0 Then
            [a1] = Split(S, "?")(1)
        End If
    End With
    FileName = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

张雄友

JLxiangwei 发表于 2015-1-4 22:41
Sub 导入()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
        2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
TextFileColumnDataTypes 属性，2表示文本？ 1难道表示常量？？


百度怎么找不到其相关介绍的？VB  F1也没有。


乱码的？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

JLxiangwei

张雄友 发表于 2015-1-5 06:23
TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
...

文件导入乱码是因为文件的编码格式不对，将原来的TXT文件保存为ANSI格式就OK了