こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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
'----------------------------------

投稿日時 - 2007-04-05 19:46:00

QNo.2896981

困ってます

質問者が選んだベストアンサー

こんばんは。

>xlBk.Close False

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

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

 xlBk.Close True

試してください。
 

投稿日時 - 2007-04-05 20:52:09

お礼

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

投稿日時 - 2007-04-09 14:49:37

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

投稿日時 - 2007-04-05 20:43:17

お礼

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

投稿日時 - 2007-04-09 14:50:20

あなたにオススメの質問