クエリ テーブルが更新されるたびに列の並べ替え、フィルター処理、およびレイアウト情報が保持される場合は true。 既定値は True です。 取得/設定が可能な Boolean 値です。
構文
式。PreserveColumnInfo
式QueryTable オブジェクトを表す変数。
注釈
このプロパティが有効になるのは、クエリ テーブルがデータベース接続を使用しているときだけです。
このプロパティを False に設定すると、以前のバージョンの Excel との互換性を保持することができます。
ユーザー インターフェイスを使用してデータをインポートする場合、Web クエリまたはテキスト クエリのデータは QueryTable オブジェクトとしてインポートされ、その他のすべての外部データは ListObject オブジェクトとしてインポートされます。
オブジェクト モデルを使用してデータをインポートする場合、Web クエリまたはテキスト クエリのデータは QueryTable としてインポートする必要がありますが、その他の外部データをはすべて ListObject または QueryTable としてインポートできます。
ListObject の QueryTable プロパティを使用して、PreserveColumnInfo プロパティにアクセスします。
例
次の使用例は、以前のバージョンの Excel との互換性を保つために、列の並べ替え、フィルター設定、およびレイアウトに関する情報を保存します。
Dim cnnConnect As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Set cnnConnect = New ADODB.Connection
cnnConnect.Open "Provider=SQLOLEDB;" & _
"Data Source=srvdata;" & _
"User ID=wadet;Password=4me2no;"
Set rstRecordset = New ADODB.Recordset
rstRecordset.Open _
Source:="Select Name, Quantity, Price From Products", _
ActiveConnection:=cnnConnect, _
CursorType:=adOpenDynamic, _
LockType:=adLockReadOnly, _
Options:=adCmdText
With ActiveSheet.QueryTables.Add( _
Connection:=rstRecordset, _
Destination:=Range("A1"))
.Name = "Contact List"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。