| 投稿日 | ： 2004/02/20(Fri) 09:34 |
| 投稿者 | ： 黒影 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: エクセルブックの更新と保存（追記） |
> VBに書き込んでみましたら、「構文エラー」って出てしまいましたが、もしかしてExcelのVBですか？
いや、VB6.0ですよ。
> 言葉が足らなくて申し訳御座いませんでした！！AccessVBで現在全てのコントロールをしていますので、
> よろしければAccessVBではどうするのか、ご教授願えませんでしょうか？お願いいたします。
すいません。AccessのVBAは使った事がありません。f^^;)
構文エラー....
よくみたら、& が抜けてました。ごめんなさい。<(__)>
誤：Format(Date, "yyyymmdd") & "_" Format(Time, "hhmmss") & ".xls"
正：Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"
↑
で、下記で試したら出来ました。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim svFilePath As String
Dim svFileName As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\book1.xls")
svFilePath = "d:"
svFileName = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"
xlApp.ActiveWorkbook.RefreshAll
xlApp.DisplayAlerts = False
xlBook.saveas (svFilePath & "\" & svFileName)
xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing