開いているファイルと同じファイル名でデスクトップに保存する」といった検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。Applications)のコード・マクロを探している方による検索です。どのアプリケーションのマクロを探していたのかまではこの検索ログではわかりませんが、ここではExcelマクロをご紹介しておきます。[スポンサードリンク]デスクトップのパスを取得するまずは、デスクトップのフルパスを取得するExcelマクロをご紹介しておきます。実は、標準のVBAだけでは、デスクトップのパスを取得することはできません。Host)を利用するのが簡単でしょう。Sub上記のマクロを実行すると、デスクトップのフルパスがメッセージボックスに表示されます。wsh.SpecialFolders("desktop")その文字列をメッセージボックスに表示しています。以下のようなマクロでもOKです。Sub同じ名前でデスクトップに保存するサンプルマクロ上記のコードを含んだ、以下のようなマクロにすれば、アクティブなブックをデスクトップ上に同じ名前で保存することができます。ActiveWorkbook.NameWorkbook.SaveAsメソッドの引数・Filenameに、フルパスとブック名を結合した文字列を指定して保存をしています。bk_nameデスクトップ上に同じ名前のファイルが存在していた場合、上書き保存するかどうかを確認するメッセージが表示されます。このケースは、Workbook.SaveAsメソッドを利用する場合に、とてもよくいただくご質問でもありますので、近日中に別記事として解説させていただきます。WSHを使って、VBAでデスクトップのパスを取得する方法をご理解ください。インストラクターのネタ帳Excel(エクセル)マクロで保存を行うときに同じ名前があったときに、強制的に上書きしてしまう方法をご紹介しています。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。