Excel VBA 文本文件导入跳过列

Excel VBA 文本文件导入跳过列

我需要导入钻孔表文本文件以获取其中的一些信息。我不想导入一些分隔列。

使用导入文本工具,我可以手动选择列并将其“列数据格式”更改为“不导入列(跳过)”。我的脚本实际上只能导入带有我需要的分隔符的数据。我找不到跳过不需要的列的方法。比如列 1、3、5..... 等。

这是我的代码:

Sub ImportTextFile()
Dim fName As String

ActiveSheet.Range("$A:$M").ClearContents

fName = Application.GetOpenFilename("Drill table, *.tap; *.drl")
If fName = "False" Then Exit Sub

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fName, _
        Destination:=Range("$A$20"))
            .Name = "sample"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierNone
            .TextFileConsecutiveDelimiter = True
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = True
            .TextFileOtherDelimiter = "=" & Chr(9)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False

    End With

End Sub

感谢您的帮助。

相关内容