QueryTableのプロパティを設定する

'プロパティをセット With tqt 'クエリ名 .Name = "顧客管理クエリ" 'フィールド名を表示する .FieldNames = True 'クエリ実行中もワークシートの操作が可能 .BackgroundQuery = True 'レコード数に合わせ行数を調整する .RefreshStyle = xlInsertDeleteCells '1分間隔で更新する .RefreshPeriod = 1 'パスワード情報を保存 .SavePassword = True 'クエリテーブルをブックに保存する .SaveData = True '列幅を自動調整する .AdjustColumnWidth = True 'クエリの実行 .Refresh End With

Private Sub CommandButton1_Click() 'QueryTableオブジェクトでデータベースを読み込む ExReadTable End Sub

📎📎📎📎📎📎📎📎📎📎