ACCESSのVBAからExcelのセルから読めたのですが、書く方法を教えてください

下記の方法でCell(1,1)、から読むことができました
そこで今度書き込みなのですが

With xlBk.Worksheets("Sheet1")
　　　'Debug.Print .Cells(1,1)
　　　.Cell(1,2) = "data"
End With
としても、エクセルシートには書かれていないのですが
書く方法を教えてください

ただ、下記の
Open(Filename:=strFile, UpdateLinks:=0)
はエクセルをOpenする時
「このブックは他のデータソースへのリンクがふくまれています」
とメッセージがでるので、UpdateLinks:=0、と入れています
よろしくおねがいします

'---------------------------------
Dim xlApp As Excel.Application
Dim xlBk As Excel.Workbook
Dim strFile As String
strFile = "C:\Sample\Book1.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlBk = xlApp.Workbooks.Open(Filename:=strFile, UpdateLinks:=0)
With xlBk.Worksheets("Sheet1")
　　Debug.Print .Cells(1,1)
End With
xlBk.Close False
xlApp.Quit
Set xlApp = Nothing
'----------------------------------

No.2 ベストアンサー 回答者： kobouzu_su 回答日時： 2007/04/05 20:52

こんばんは。

＞xlBk.Close False

Closeメソッドの引数が　False　になってますので
このブックは保存されずに閉じることになります。
で、セルにデータを入れても当然反映されてないことになります。

保存して閉じる場合は、Trueにします。

　xlBk.Close True

試してください。
　

この回答へのお礼

さすが～！！
ありがとうございました
お礼の返事、遅れてもうしわけありませんでした

お礼日時：2007/04/09 14:49

No.1 回答者： kuruthiusu 回答日時： 2007/04/05 20:43

.Cell(1,2) = "data"

ではなく、
.Cells(1,2) = "data"
です。

この回答へのお礼

ありがとうございました
お礼の返事遅れてすみません

お礼日時：2007/04/09 14:50