AccessからExcelを編集

質問

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

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

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

回答No.1

temtecomai2 · ベストアンサー

「よくわからない」 という感想に怖さを感じます。。。
はたしてここで質問しても理解できるんだろうか、やりたい事のコードだけ利用して終わりってことになりゃしないだろうか、と。。。

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

お礼

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