QueryTable.TextFileFixedColumnWidths 属性 (Excel)

返回或设置一个整数数组，该数组对应于要导入到查询表中的文本文件中 (以字符) 的列的宽度。 有效的宽度为 1 到 32767 个字符。 读/写 Variant。

语法

表达式。TextFileFixedColumnWidths

表达 一个代表 QueryTable 对象的变量。

备注

仅当查询表基于文本文件中的数据 (且 QueryType 属性设置为 xlTextImport) ，并且仅当 TextFileParseType 属性的值为 xlFixedWidth 时，才使用此属性。

必须指定一个有效的非负值列宽。 如果指定的列超出了文本文件的宽度，则会忽略那些值。 如果文本文件的宽度大于指定的列的总宽度，则文本文件的平衡将导入到其他列中。

如果使用用户界面导入数据，则来自 Web 查询或文本查询的数据将作为 QueryTable 对象导入，而所有其他外部数据将作为 ListObject 对象导入。

如果使用对象模型导入数据，则必须将 Web 查询或文本查询中的数据作为 QueryTable 导入，而所有其他外部数据都可以作为 ListObject 或 QueryTable 导入。

TextFileFixedColumnWidths 属性仅适用于 QueryTable 对象。

示例

本示例向第一个工作簿中第一张工作表上的新查询表中导入一个固定宽度的文本文件。 该文本文件的第一列为五个字符宽度，作为文本导入。 第二列为四个字符宽度，被跳过。 该文本文件的剩余部分被导入第三列，并对其应用常规格式。

Set shFirstQtr = Workbooks(1).Worksheets(1) 
Set qtQtrResults = shFirstQtr.QueryTables _ 
 .Add(Connection := "TEXT;C:\My Documents\19980331.txt", _ 
 Destination := shFirstQtr.Cells(1, 1)) 
With qtQtrResults 
 .TextFileParseType = xlFixedWidth 
 .TextFileFixedColumnWidths = Array(5, 4) 
 .TextFileColumnDataTypes = _ 
 Array(xlTextFormat, xlSkipColumn, xlGeneralFormat) 
 .Refresh 
End With

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。