VBA：QueryTables：如何不考虑TextFileOtherDelimiter

Question

我使用VBA for Excel进行了故障排除：使用时

With ActiveSheet.QueryTables.Add(Connection:=ConnString, Destination:=SomeRange)
    .Name = _
    " "
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 65001
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1)
    .TextFileDecimalSeparator = ","
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With

导入请求会自动在我的导入中携带我在手动导入中请求的“其他分隔符”。

即我手动使用“-”作为分隔符导入了文件，宏将表现为好像包含以下行：

.TextFileOtherDelimiter = "-"

我尝试使用

.TextFileOtherDelimiter = False

但它不起作用，因为它的行为与

.TextFileOtherDelimiter = "F"

我的问题：如何指定仅使用“，”定界符而不是任何其他解析符（无论以前在计算机上发生过任何其他导入），都应解析此导入？

Answer 1

供将来参考，我没有找到不强制使用其他定界符的方法，但是以下两种解决方法似乎可行：

• 强制将otherdelimiter设置为与第一个定界符相同的值（如果没有第一个定界符，将不起作用）

   .TextFileOtherDelimiter = "," 

• 使用永远不会出现在文件中的定界符（如果有任何字符，但第一个定界符可能会出现在文件中将不起作用）

   .TextFileOtherDelimiter = "|" 

由于这两种变通办法都不能解决一般情况下的问题，因此我认为它不适合