|
▼[名前なし] さん:
おはようございます。
> 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
|
|