ExcelのVBAで、Accessのデータを特定のセルを起点として貼り付ける。～パソコンの小技・備忘録

ExcelのVBAで、Accessのデータを特定のセルを起点として貼り付ける。

ExcelのVBAで、Accessのデータを特定のセルを起点として貼り付ける方法です。

SQLで取得したレコードセットの内容を、すべて貼り付ける場合には、CopyFromRecordsetという記述で簡単に行うことができます。

'Dドライブのtest.mdbに接続してデータを取得する例です。 Public Sub DispData() 　　'変数の定義　　Dim db As DAO.Database 　　Dim rs As DAO.Recordset 　　Dim strSQL As String 　　Set db = DAO.OpenDatabase("D:\test.mdb", False, False, "") 　　'データベースのデータをA2セルを起点として表示　　strSQL = "SELECT * FROM [テーブル名]" 　　Set rs = db.OpenRecordset(strSQL) 　　If rs.RecordCount > 0 Then 　　　　Range("A2").CopyFromRecordset rs 　　End If End Sub

以上の記述で、Accessのデータを特定のセルを起点として貼り付けることができます。

トップページに戻る

パソコンの小技・備忘録トップページ(http://pckowaza.web.fc2.com/)を表示

※更新履歴などを掲載していますので、お気に入りはぜひトップページでお願いします！

パソコンの小技・備忘録

ExcelのVBAで、Accessのデータを特定のセルを起点として貼り付ける。

トップページに戻る

サイト内検索

小技カテゴリー

カウンタ

メール送信