Excelの自動保存 (ID:91547)

名前

ホームページ(ブログ、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 Dim str_name2 As String Dim Ret As Long If InStr(1, Wb.Name, ".xla") = 0 Then Debug.Print Me.Path str_name = Wb.Path & "\" & Wb.Name str_name2 = Replace(CStr(Date), "/", "") & Replace(CStr(Format(Time(), "hhmmss")), ":", "") & Wb.Name ChDir "C:\" Ret = CopyFile(str_name, "C:\" & str_name2, 1) End If End Sub にて動きましたありがとうございます msgboxってまずいんですね App_WorkbookOpen動かす時にDebug.Printだけかきこんで保存はずせばきづいてたんですね・・・ 後半はいらない手間をかけてすみません Wbでアドイン側のブック名がでてたのでそこをなんとかしないととばかり思ってしまって（汗） なにかイベントがあるとか設定がおかしいとかそういったことを調べてました ぜんぜん的外れでした 開いてるファイルにたいしてコピーできなかったのでＡＰＩになりました（涙） たぶん延長で質問がでてくるかとは思いますが ながながとつきあっていただきありがとうございました