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 · ベストアンサー

こんばんは。

＞xlBk.Close False

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

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

　xlBk.Close True

試してください。

お礼

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

回答No.1

kuruthiusu

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

お礼

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