クエリ テーブルにインポートするテキスト ファイルの列幅 (文字数) に対応する整数の配列を返すか設定します。 有効な幅は、1 - 32767 文字です。 値の取得と設定が可能なバリアント型 (Variant) の値です。
構文
式。TextFileFixedColumnWidths
式QueryTable オブジェクトを表す変数。
注釈
このプロパティは、クエリ テーブルがテキスト ファイルのデータに基づいており ( QueryType プロパティが xlTextImport に設定されている場合)、 TextFileParseType プロパティの値が xlFixedWidth である場合にのみ使用します。
正または 0 の有効な列幅を指定してください。 テキスト ファイルの幅を超える列を指定した場合、それらの値は無視されます。 テキスト ファイルの幅が指定した列の合計幅より大きい場合、テキスト ファイルの残高が追加の列にインポートされます。
ユーザー インターフェイスを使用してデータをインポートする場合、Web クエリまたはテキスト クエリのデータは QueryTable オブジェクトとしてインポートされ、その他のすべての外部データは ListObject オブジェクトとしてインポートされます。
オブジェクト モデルを使用してデータをインポートする場合、Web クエリまたはテキスト クエリのデータは QueryTable としてインポートする必要がありますが、その他の外部データをはすべて ListObject または QueryTable としてインポートできます。
TextFileFixedColumnWidths プロパティは QueryTable オブジェクトにのみ適用されます。
例
次の使用例は、新しいクエリ テーブルに固定幅のテキスト ファイルをインポートします。 テキスト ファイルの列 1 は 5 文字幅で、テキスト形式でインポートされます。 列 2 は 4 文字幅で、スキップされます。 テキスト ファイルの残りの部分は列 3 にインポートされ、一般の書式が適用されます。
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 のサポートおよびフィードバックを参照してください。