| |
こんにちは。質問させて下さい。
OFFICEが97からXPになりまして、
その結果、今まで使っていたAccess97のシステムを
Access2002にバージョンアップしてやらなければ
ならなくなりました。
あらかたの問題点は解決したんですが、
次の問題がどうしても解決しないのです。
Access2002から月次帳票をExcel2002ファイルに出力しています。
作り方としては、既存帳票フォーマット用のExcelファイルを
コピーし、その上に月次結果データを出力し
AccessVBAで名前を付けます。で、どこが問題かと言うと、
この処理中には、エラーで中断することはないのですが、
この新規出力したExcelファイルを開くと、最初の保存まで
「xxxx.xlsの変更を保存しますか？
以前のバージョンのExcelで保存したファイルに含まれる式は、
ファイルを開いた時に自動的に再計算されます。」
という警告メッセージが表示されてしまうんです。
一回でも、Excel2002で保存されればでないメッセージなんですが
出来ることなら出したくない。
どなたか教えていただけないでしょうか？
以下、現在モジュールです（Access97から変更無し）
Private Sub GETUJI()
Dim strPATH As String 'Excelファイルパス
Dim ExcelApp As Excel.Application
Dim TmpBook As Excel.Workbook 'テンプレート
Dim TmpSheet As Excel.Worksheet 'テンプレート
Dim OutBook As Excel.Workbook '月次帳票用
Dim OutSheet As Excel.Worksheet '月次帳票用
Set ExcelApp = CreateObject("Excel.Application.10")
strPATH = "C:\Tmp.xls"
Set TmpBook = ExcelApp.Workbooks.Open(strPATH)
Set TmpSheet = TmpBook.Sheets(1)
strPATH = "C:\" & Format(Date(),"YYYYMM") & ".xls"
TmpSheet.Copy
Set OutBook = ExcelApp.ActiveWorkbook
Set OutSheet = OutBook.Sheets(1)
OutBook.Sheets(1).Name = "営業成績"
==== 中略（データをセットしている）==========
OutBook.SaveAs strPATH
OutBook.Close False
TmpBook.Close False
Set TmpBook = Nothing
Set TmpSheet = Nothing
Set OutBook = Nothing
Set OutSheet = Nothing
ExcelApp.Quit
Set ExcelApp = Nothing
End Sub
こんな感じです。2002は、記述の仕方が変わったんでしょうか？
|
|
S9
- 04/12/27(月) 10:19 -
