前提・実現したいこと
MS Access2013(Windows7 Pro) で TransferSpreadsheet にてクエリー内容をExcelに書き出す際に
「BWxx.xlsm の変更内容を保存しますか?」「保存(S)・保存しない(N)・キャンセル」のダイアログが表示されてしまいます。
同じAccess内で、別のExcelファイル書き出しでは、このダイアログがでませんが
特定のファイルだけ保存しますか?のダイアログが表示されます。
「保存(S)」を押せば処理が進みますが、保存しますかのダイアログを表示せず進むようにしたいです。
発生している問題・エラーメッセージ
「BWxx.xlsm の変更内容を保存しますか?」「保存(S)・保存しない(N)・キャンセル」のダイアログが表示される。
該当のソースコード
VBA
1 Dim xlApp As Object 2 Dim xlBook As Object 3 Dim FileName As String 4 5 FileName = "c:\BWxx.xlsm" 6 7 Set xlApp = CreateObject("Excel.Application") 8 Set xlBook = xlApp.Workbooks.Open(FileName) 9 10 If xlBook.ReadOnly Then 11 MsgBox "BWxx.xlsm が利用中のため処理を中止します。" 12 xlBook.Close 13 Else 14 xlBook.Close 15 DoCmd.TransferSpreadsheet acExport, 10, "excel_集計用_日次", FileName, True, "日別" 16 DoCmd.TransferSpreadsheet acExport, 10, "excel_集計用_月次", FileName, True, "月別" 17 MsgBox "BWxx.xlsm の更新完了" 18 End If 19 20 xlApp.Application.Quit 21 22 Set xlBook = Nothing 23 Set xlApp = Nothing
試したこと
BWxx.xlsm 内のシートを削除してファイルを作り直すなど行いましたが、保存しますか?と聞かれてしまう。
同じコードで、「連携データ.xlsx」というファイルへの書き出しをしていますが、こちらのファイルは
保存しますか?と聞かれないで処理が進みます。
補足情報(FW/ツールのバージョンなど)
Excel は Home and Business 2013
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/01/16 04:30
2019/01/16 05:25
2019/01/16 05:29
2019/01/16 05:30