Excelの自動保存 (ID:91540)

名前

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

本文 > str_name = ActiveWorkbook.Name → ここでオブジェクトがないとエラー Debug.Print ThisWorkbook.Name とやれば分かる事だけど、ここで開くのはアドインです。 アドインも実体は Workbook で、プロパティの IsAddin が True になっているだけなので注意して下さい。ただし、このプロパティ が設定されていると Workbook として扱われませんし、シートも 表示されません。当然 Active にはなりませんのでエラーとなった わけです。これも Application.Workbooks.Count とか調べれば分かった事だと思います。デバッグ作業がまだまだ足りません。 今後、保存したい Workbook と非表示の Workbook(=AddIn) を 扱うことを意識して、どちらの Workbook が処理対象か？認識して プログラミングして下さい。 [Excel VBA]アドイン側で後から開くブック名を取得するサンプル Option Explicit Private WithEvents xlAPP As Application Private Sub Workbook_Open() Set xlAPP = Application End Sub Private Sub xlAPP_NewWorkbook(ByVal Wb As Workbook) Debug.Print Wb.Name End Sub