AccessアクセスClassをVBAに移植してみた～呼び出し側～

Overrideとかできなかったので、ちょっと機能縮小気味だけど、
セルのMethodにCopyFromRecordsetなんてのがあって、
OpenしてあるRecordsetからごっそりデータを貼り付けられる。
ソレをメソッド化してみた。

Excel用に追加したMethod。
.putData
　：ActiveSheetのActiveCellを左上としてテーブル貼り付け
.putCells(ByVal Row As Integer, ByVal Col As Integer, Optional ByVal Worksheet As String)
　Worksheets(Worksheet ).Cells(Row,Col)を左上としてテーブル貼り付け
　※Worksheetを省略すると、ActiveSheetに
.putRange(Arg_Range As String, Optional Worksheet As String)
　Worksheets(Worksheet ).Range(Range)を左上としてテーブル貼り付け
　※Worksheetを省略すると、ActiveSheetに

クラス本体はこちら：AccessアクセスClassをVBAに移植してみた～Class本体～

呼び出し側

Option Explicit
Sub ボタン1_Click()
  Dim DB As SetDBtoTable
  Set DB = New SetDBtoTable
  DB.DataSource = "\LANDISK1\share\Test.mdb"
  DB.ConnectionString = "SELECT ID,Name,Order FROM T_Master ORDER BY Order;"
  DB.OpenDB
  
  DB.putData
  DB.putCells 16, 5, "Sheet1"
  DB.putRange "H36"
  DB.CloseDB
End Sub