質問: "c:\" & format(range("q1").value, "yyyymmdd") & "サンプル" & ".xls" activeworkbook.saveas bname workbooks.open "c:\サンプル.xls" workbooks(1).close 本当は"yyyymmdd"&"サンプル"&".xls"ファイルだけ閉じられればいいのですが、自分の知識では上記のような形でしか動かせません;; もしご存知の方、ご教示ください。よろしくお願いします
回答: かなりvbaを勉強されているようですので、ヒントだけ。 要するにworkbookを順にアクティブにし、アクティブなworkbookの 名前が該当すれば閉じてしまえばいいんです。 if activeworkbook.name ="なんたら" then activeworkbook.close こんな感じですかね。ステートメントは合ってるかどうか分かりませんが、 発想はコレでいけるはず。