AccessからExcelを編集

Ａｃｃｅｓｓ２００３からＥｘｃｅｌを編集したいのですが、
いろいろとＷｅｂで見ているのですが、よくわかりません。

例えば、
ＡｃｃｅｓｓからTEST.xlsのシート「データ」のA10のセルに「てすと」と入れるとします。
最後に上書きします。

申し訳ありませんが、わかる方、教えて下さい。

No.1 ベストアンサー 回答者： temtecomai2 回答日時： 2012/05/23 23:35

「よくわからない」 という感想に怖さを感じます。

。。
はたしてここで質問しても理解できるんだろうか、やりたい事のコードだけ利用して終わりってことになりゃしないだろうか、と。。。

Sub hoge()
　　Dim xlApp As Object
　　Set xlApp = CreateObject("Excel.Application")
　　xlApp.Visible = True

　　Dim wbk As Object
　　Set wbk = xlApp.Workbooks.Open("D:\test\TEST.xls")

　　Dim sht As Object
　　Set sht = wbk.Worksheets("データ")

　　sht.Cells(10, 1).Value = "てすと"

　　wbk.Save
　　wbk.Close
　　xlApp.Quit
End Sub

この回答へのお礼

回答、ありがとうございました。

お礼日時：2012/05/24 10:21