質問: "aaaaaa" workbooks(strnewbknm).activate workbooks(strwkbknm).close savechanges:=false end sub
回答: マクロ編集画面(vsial basic editor)の this workbook をダブルクリックして以下を入れた場合どうなりますか? private sub workbook_open() dim strwkbknm as string 'このブック名 dim strnewbknm as string '新しいブック名 strwkbknm = thisworkbook.name '*** このブックの名前を設定 workbooks.add '*** 新しいブックを追加 strnewbknm = activeworkbook.name '*** 新しいブックの名前を設定 sheets("sheet1").activate range("a1") = "aaaaaa" workbooks(strnewbknm).activate workbooks(strwkbknm).close savechanges:=false end sub