Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

Recordset オブジェクトの内容をワークシートにコピーする（CopyFromRecordset メソッド・ADO）

2017/08/28

CopyFromRecordset メソッド

ADO の Recordset オブジェクトに格納されている全てのレコードをワークシートにコピーします。指定されたセル範囲の左上端を起点として、データを貼り付けます。

【書式】

RecordCount = object.CopyFromRecordset ( Data, MaxRows, MaxColumns )

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
Data ・・・コピーする Recordset オブジェクト を指定します（省略不可）。
MaxRows ・・・コピーするレコードの最大数を指定します。省略した場合、Recordset オブジェクトのすべてのレコードをコピーします。
MaxColumns ・・・コピーするフィールドの最大数を指定します。省略した場合、Recordset オブジェクトのすべてのフィイールドをコピーします。
RecordCount ・・・コピーしたレコード数。

コピーは Recordset オブジェクトのカレントレコードの位置から行われます。コピーが完了すると、Recordset オブジェクトの EOF プロパティは True になります。

CopyFromRecordset メソッドの使用例

サンプルVBAソース

　
Sub Sample_ADO_CopyFromRecordset()
    
    '参照設定:Microsoft ActiveX Data Objects 6.1 Library
    
    Dim cn As ADODB.Connection
    Dim Rs As ADODB.Recordset
    Dim constr As String
    Dim DBFile As String
    Dim strSQL As String
    Dim num As Long
    
    DBFile = ActiveWorkbook.Path & "\mydb1.accdb"
    constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = constr
    cn.Open
    
    strSQL = "Select * from 社員名簿 where ID < 10 order by ID;"
    
    Set Rs = New ADODB.Recordset
    Rs.Source = strSQL
    Rs.ActiveConnection = cn
    Rs.Open
    
    With Worksheets("Sheet1")
    
        .Cells.Clear
        num = .Range("A1").CopyFromRecordset(Data:=Rs)
        .Cells(.Rows.Count, "A").End(xlUp).Offset(2, 0).Value = "レコード数"
        .Cells(.Rows.Count, "A").End(xlUp).Offset(0, 1).Value = num
    
    End With
    
    Rs.Close
    Set Rs = Nothing
    
    cn.Close
    Set cn = Nothing
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

　

Sub Sample_ADO_CopyFromRecordset()

'参照設定:Microsoft ActiveX Data Objects 6.1 Library

Dim cn As ADODB.Connection

Dim Rs As ADODB.Recordset

Dim constr As String

Dim DBFile As String

Dim strSQL As String

Dim num As Long

DBFile = ActiveWorkbook.Path & "\mydb1.accdb"

constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile

Set cn = New ADODB.Connection

cn.ConnectionString = constr

cn.Open

strSQL = "Select * from 社員名簿 where ID < 10 order by ID;"

Set Rs = New ADODB.Recordset

Rs.Source = strSQL

Rs.ActiveConnection = cn

Rs.Open

With Worksheets("Sheet1")

.Cells.Clear

num = .Range("A1").CopyFromRecordset(Data:=Rs)

.Cells(.Rows.Count, "A").End(xlUp).Offset(2, 0).Value = "レコード数"

.Cells(.Rows.Count, "A").End(xlUp).Offset(0, 1).Value = num

End With

Rs.Close

Set Rs = Nothing

cn.Close

Set cn = Nothing

End Sub

　

実行結果

- データベース ADO, Close メソッド, Connection オブジェクト, CopyFromRecordset メソッド, excel vba, Open メソッド, SQL, VBA中・上級, エクセル VBA, データベース

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: データベース（Oracle）に接続する（ODBC を使用）

ODBC接続（ADO） ADOで、ODBC（Open Database Conn …

: Recordset オブジェクト内のレコード数（ADO）RecordCount プロパティ

RecordCount プロパティ Recordset オブジェクトのレコード数 …

: Excel VBA のクラスを使ってデータベースへ接続する（ADO）

データベースの処理をクラスモジュールに書く ExcelVBAで、クラス使用する方 …

: レコードの更新（ADO）Update メソッド

データベースのレコードを更新する Update メソッドカレントレコードの内容 …

: レコードを指定した条件で抽出する（ADO）Filter プロパティ

データベースのレコードを指定した条件で抽出する Filter プロパティ【書式 …

: Excelファイルに接続（ADO）

ADOでExcelファイルに接続 ADO を使用してExcelファイルを読み込み …

: カレントレコードの移動（ADO）MoveFirst、MoveLast、MoveNext、MovePrevious、Move

MoveFirst メソッド、MoveLast メソッド、MoveNext メソ …

: テーブルの作成・削除／フィールドの作成・削除（ADOX）

ADOX を使用してテーブル・フィールド（列）を作成・削除 Table オブジェ …

: レコードの削除（ADO）Delete メソッド

データベースのレコードを削除する Delete メソッドカレントレコードを削除 …

: データベース（Access 等）に接続（ADO）

ADO で、データベースに接続外部データベースを操作する方法のひとつに ADO …

PREV: データベース（Access 等）に接続（ADO）
NEXT: カレントレコードの移動（ADO）MoveFirst、MoveLast、MoveNext、MovePrevious、Move