エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
Recordsetオブジェクトの結果をQueryTableオブジェクトで受け取る
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Recordsetオブジェクトの結果をQueryTableオブジェクトで受け取る
Sub Recordsetと組み合わせる() Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset Dim ... Sub Recordsetと組み合わせる() Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset Dim myFile As String myFile = ThisWorkbook.Path & "\mdb\4-sampleDB.mdb" '接続 With myCon .Provider = "Microsoft.Jet.OLEDB.4.0" .Open myFile End With '「社員」テーブルの内容を読み込む myRS.Open "社員", myCon 'クエリテーブルを作成 With Sheets("クエリテーブルVBA2").QueryTables.Add(myRS, Range("A1")) .Name = "VBA_QT" .Refresh End With myRS.Close: Set my