投稿日 | : 2004/02/18(Wed) 22:38 |
投稿者 | : ののちゃん |
Eメール | : nonochan@ccn.aitai.ne.jp |
URL | : |
タイトル | : エクセルブックの更新と保存 |
最近はじめてVB6.0で作っています。(「VBレスキュー(花ちゃん)」さんには感謝しております)
データベースのクエリから既存のエクセルシートにデータを移して(エクセル側から「外部データの取り込み」をしています)、そのシートを更新してから保存したいのですが、更新する前に「保存する為に、データの更新を中断しますか?」と尋ねられ、「はい」なら更新せずに保存してしまいますし、「キャンセル」なら、更新はするものの、その後保存されません。一体、どうしたらいいんでしょうか?「xlBook.Save」を省けば更新するだけですし...コードは以下の通りです。どこに問題があるのか、また解決法をご指南いただきたいのですが、よろしくおねがいします。
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("***.xls")
xlApp.Visible = True
xlApp.ActiveWorkbook.RefreshAll
xlBook.Save
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing