Question

我需要使用QueryTable对象导入文本文件，并返回行号和数据。但是，将RowNumbers属性设置为True似乎没有效果。

设置FieldNames似乎也不重要（字段名称总是显示），但出于我的用例，我可以使用它。

使用公开数据的示例：

Sub ReadTestData()

    Set QT = ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;http://samplecsvs.s3.amazonaws.com/Sacramentorealestatetransactions.csv", _
        Destination:=Range("$A$1"))

    With QT
        .Name = "TestData"
        .FieldNames = False 'doesn't seem to matter
        .RowNumbers = True 'doesn't seem to matter
        .PreserveFormatting = True
        .RefreshStyle = xlInsertDeleteCells
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileCommaDelimiter = True
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

End Sub

我在Excel 2010工作。为什么这些标志似乎没有做任何事情？

Answer 1

根据this site，.RowNumbers在刷新之前无效：

＆＃34;将此属性设置为True不会立即导致显示行号。下次刷新查询表时会显示行号，每次刷新查询表时都会重新配置行号＃34;

此外，在this site上有关于行号复选框的以下注释（在调整外部数据范围属性时打开和关闭.RowNumbers属性）

NOTE: This check box is not available for an imported text file, XML file, or Web query.

如何打开行号并关闭字段名称将使用QueryTable进行文本导入

1 个答案: