Excelの自動保存 (ID:91541)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お返事ありがとうございます Option Explicit Private WithEvents xlAPP As Application Private Sub Workbook_Open() Set xlAPP = Application End Sub Private Sub xlAPP_NewWorkbook(ByVal Wb As Workbook) Dim str_name As String Debug.Print Wb.Name MsgBox Wb.Name str_name = Wb.Name str_name = Replace(CStr(Date), "/", "") & Replace(CStr(Format(Time(), "hhmm")), ":", "") & str_name ChDir "C:\" ActiveWorkbook.SaveAs Filename:="C:\" & str_name, FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub アドイン側をこのように記述させてもらいました が理解がたらないようで 新規作成したときにしか走りません 新規作成というよりも既存のファイルを開いたときに走らせたかったので 調べますのでもうしばらくかかります せっかく教えていただいたのに申し訳ありません