お世話になります。
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
の部分でできそうなのですが。
クエリにある１つ目のレコード、またはフィールドを、Excelの(1,1)。
２つ目を、(3,1)。
３つ目を、(5,1)としたいのです。
よろしくお願いします。
お礼
思い通りのものが出来ました。 ありがとうございました。