| 投稿日 | ： 2004/02/19(Thu) 21:38 |
| 投稿者 | ： ののちゃん |
| Ｅメール | ： nonochan@ccn.aitai.ne.jp |
| ＵＲＬ | ： |
| タイトル | ： Re^4: エクセルブックの更新と保存（追記） |
黒影さん、早速のアドバイスをありがとうございました！！
VBに書き込んでみましたら、「構文エラー」って出てしまいましたが、もしかしてExcelのVBですか？
言葉が足らなくて申し訳御座いませんでした！！AccessVBで現在全てのコントロールをしていますので、
よろしければAccessVBではどうするのか、ご教授願えませんでしょうか？お願いいたします。
ちなみに下記のようにVBで書いています。(Windows2000 Access2000 Excel2000 VB6.0を使用中です)
Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize 4100, 1400, 10000, 8550
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\***.xls")
xlApp.ActiveWorkbook.RefreshAll
xlApp.DisplayAlerts = False
xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub