こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Access-VBAでフィールドまたはレコード指定

お世話になります。

Accessから、フィールドまたは、レコードを指定して、
Excelの指定したセルに出力することはできますか?

Sub EX1()
On Error Resume Next

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set db = CurrentDb

'出力元のテーブルまたはクエリ
Set rs = db.OpenRecordset("EQ")

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

' Excel のセルに値を代入
xlSheet.Cells(1, 1).CopyFromRecordset rs

' Worksheet を名前をつけて保存
xlSheet.SaveAs "D:\一時保存\abc.xls"

xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

End Sub

' Excel のセルに値を代入
xlSheet.Cells(1, 1).CopyFromRecordset rs
の部分でできそうなのですが。
クエリにある1つ目のレコード、またはフィールドを、Excelの(1,1)。
2つ目を、(3,1)。
3つ目を、(5,1)としたいのです。

よろしくお願いします。

投稿日時 - 2009-06-19 12:05:08

QNo.5056561

困ってます

質問者が選んだベストアンサー

xlSheet.Cells(1, 1).Value = rs.Fields(0).Value '1番目のフィールド
xlSheet.Cells(3, 1).Value = rs.Fields(1).Value '2番目のフィールド
rs.MoveNext '次のレコードに移動
rs.MovePrevious '前のレコードに移動
rs.AbsolutePosition = n - 1 'N番目のレコードに移動
但し、レコードセットによってはMoveNextしかできない場合もあります。

投稿日時 - 2009-06-19 12:16:20

お礼

思い通りのものが出来ました。
ありがとうございました。

投稿日時 - 2009-06-19 14:20:39

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問