CSV保存
Excel ブックを閉じる時、
xlsファイル保存(上書き)/csvファイル保存(上書き)を実行するVBAマクロです。
ちょっと気分転換に・・・・・。
--------------------
Sub Auto_close()
'
Dim mypath As String
Dim myfilename As String
' 確認メッセージ非表示
Application.DisplayAlerts = False
mypath = ActiveWorkbook.Path
myfilename = Replace(ActiveWorkbook.Name, "xls", "csv")
' xls保存
ActiveWorkbook.Save
' csv保存
ActiveWorkbook.SaveAs Filename:=mypath & "\" & myfilename, FileFormat:=xlCSV
' 閉じる
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
--------------------
Excel ブックにコードを保存する手順は、
| 固定リンク
« 制御コード解説 #5 | トップページ | 表作図 »
コメント