Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


64986 / 76733 ←次へ | 前へ→

【16324】Re:Auto_Openマクロで起動したExcelを完全に保存終了するには?
お礼  しん E-MAIL  - 04/7/25(日) 11:07 -

引用なし
パスワード
   ▼[名前なし] さん:
おはようございます。

>   ThisWorkbook.Save
でうまくいきました。簡単なことだったんですね。どうもありがとうございます。

おかげさまで、私が直面していたAuto_Openマクロの中で2つの処理(test.xlsのシート1のセル"A1"に"test"を書き込み、test2.xlsの内容をWeb表示するためのtest2.htmlファイルの作成)が、下記VBAコードのようにすることにより、正常にできるようになりました。また、1番目の処理(書き込み保存処理)だけはしたくない場合は

ThisWorkbook.Save

の代わりに

ThisWorkbook.Saved = True

にすればよいこともわかりました。ほんとうにどうもありがとうございます。

Sub Auto_Open()

  Worksheets("Sheet1").Cells(1, 1) = "test"

  myPath = ActiveWorkbook.Path
  Workbooks.Open Filename:=myPath & "\" & "test2.xls"
  
  Application.DisplayAlerts = False
  With ActiveWorkbook      'test2.xlsのHTML形式保存
    .SaveAs Filename:=DirectoryName$ & "test2.html", FileFormat:=xlHtml
    .Close SaveChanges:=True
  End With
  Application.DisplayAlerts = True

  'ThisWorkbook.Saved = True   '書き込み保存処理は行わない
  ThisWorkbook.Save       '書き込み保存処理も行う
  Application.Quit

End Sub
0 hits

【16311】Auto_Openマクロで起動したExcelを完全に保存終了するには? しん 04/7/25(日) 1:04 質問
【16313】Re:Auto_Openマクロで起動したExcelを... IROC 04/7/25(日) 1:11 回答
【16314】Re:Auto_Openマクロで起動したExcelを... しん 04/7/25(日) 1:21 発言
【16318】Re:Auto_Openマクロで起動したExcelを... IROC 04/7/25(日) 1:59 回答
【16319】Re:Auto_Openマクロで起動したExcelを... しん 04/7/25(日) 2:15 発言
【16320】Re:Auto_Openマクロで起動したExcelを... IROC 04/7/25(日) 2:24 回答
【16347】Re:Auto_Openマクロで起動したExcelを... しん 04/7/25(日) 20:22 お礼
【16317】Re:Auto_Openマクロで起動したExcelを... しん 04/7/25(日) 1:57 発言
【16321】Re:Auto_Openマクロで起動したExcelを... [名前なし] 04/7/25(日) 9:15 回答
【16324】Re:Auto_Openマクロで起動したExcelを... しん 04/7/25(日) 11:07 お礼

64986 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free