Excelの自動保存 (ID:91545)

名前

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

本文 Option Explicit Private WithEvents xlAPP As Application Private Sub Workbook_Open() Set xlAPP = Application End Sub Private Sub xlAPP_WorkbookOpen(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 に修正しました がブック名・ActiveWorkBookがアドインファイルをさしてしまいます なにか特別なイベント名があるのでしょうか？ ＞ちなみに すみません。質問する側の言葉でないといまさらながらに実感しています。 自分の環境だけなのか貼り付けたプログラムがまちがっているのかわからなくなっていたもので まことに申し訳ありませんでした。 結局振り出しにもどったようで自分でもなさけないです。 ひきつづき調べてみます なにを思ったかWorkbookOpenで修正はしていたのですが アドインファイルをさしていたので間違っているのではないかと思い掲示板には かいていませんでした。結果ただのまぐれあたりなわけですし。 すみません