True の場合は、テキスト ファイルをクエリ テーブルにインポートするときに、連続する区切り記号が単一の区切り記号として処理されます。 既定値は False です。 値の取得と設定が可能なブール型 (Boolean) の値です。
構文
式。TextFileConsecutiveDelimiter
式QueryTable オブジェクトを表す変数。
注釈
このプロパティは、クエリ テーブルがテキスト ファイルのデータに基づいており ( QueryType プロパティが xlTextImport に設定されている場合)、 TextFileParseType プロパティの値が xlDelimited である場合にのみ使用します。
ユーザー インターフェイスを使用してデータをインポートする場合、Web クエリまたはテキスト クエリのデータは QueryTable オブジェクトとしてインポートされ、その他のすべての外部データは ListObject オブジェクトとしてインポートされます。
オブジェクト モデルを使用してデータをインポートする場合、Web クエリまたはテキスト クエリのデータは QueryTable としてインポートする必要がありますが、その他の外部データをはすべて ListObject または QueryTable としてインポートできます。
TextFileConsecutiveDelimiter プロパティは QueryTable オブジェクトにのみ適用されます。
例
この例では、最初のブックの最初のワークシートにあるクエリ テーブルで空白文字が区切り記号になるように設定してから、そのクエリ テーブルを最新の情報に更新します。 スペースが連続する場合は 1 つのスペースとして扱われます。
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 = xlDelimited
.TextFileSpaceDelimiter = True
.TextFileConsecutiveDelimiter = True
.Refresh
End With
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。