我需要导入钻孔表文本文件以获取其中的一些信息。我不想导入一些分隔列。
使用导入文本工具,我可以手动选择列并将其“列数据格式”更改为“不导入列(跳过)”。我的脚本实际上只能导入带有我需要的分隔符的数据。我找不到跳过不需要的列的方法。比如列 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
感谢您的帮助。