| |
▼[名前なし] さん：
おはようございます。
> ThisWorkbook.Save
でうまくいきました。簡単なことだったんですね。どうもありがとうございます。
おかげさまで、私が直面していたAuto_Openマクロの中で２つの処理（test.xlsのシート１のセル"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
|
|
しん
- 04/7/25(日) 11:07 -
