【入門編】【初心者向け】VBAで「デスクトップ」や「マイドキュメント」のパスを自動取得して図面をクイック保存する方法 – AutoCAD VBA解析バイブル

AutoCAD VBA

2026.11.09

マクロ記録のその先へ。PC環境に左右されない「賢い保存」をマスターする

マクロ記録のその先へ。PC環境に左右されない「賢い保存」をマスターする

こんにちは。AutoCAD VBAの世界へようこそ。
これまで「マクロの記録」を使って、ボタンを押せば決まった動きをするツールを作ってきた……そんなあなたなら、次にぶつかる壁は必ずこれです。

「自分のPCでは動くのに、隣の席のAさんのPCに持っていくとエラーが出る……」

なぜでしょうか？答えはシンプルです。コードの中に、あなたのPC専用の「住所（パス）」を直接書き込んでしまっているからです。

今日は、その壁を軽々と飛び越え、どんなPCでも、どんなユーザーでも、魔法のようにスムーズに動く「汎用的な保存マクロ」の作り方を伝授します。ここをクリアすれば、あなたのVBAスキルは「記録レベル」から「開発レベル」へと一気に昇華しますよ。

1. なぜ「C:\Users\Tanaka\…」と書いてはいけないのか？

初心者が最初にやってしまうミス。それが「フルパスの直書き（ハードコーディング）」です。

' ❌ 失敗するコードの例
ThisDrawing.SaveAs "C:\Users\Tanaka\Desktop\図面_バックアップ.dwg"

このコードは、あなたのPC（ユーザー名：Tanaka）では完璧に動きます。しかし、ユーザー名が「Sato」さんのPCに持っていくと、「そんなフォルダはありません！」とAutoCADが悲鳴を上げて止まってしまいます。

自動化エンジニアの鉄則は、「プログラムに、その場の状況を判断させること」です。

2. 魔法の関数 `Environ` を手に入れよう

PCのユーザー名やデスクトップの場所は、OS（Windows）が管理している「環境変数」という仕組みの中に格納されています。これを取り出すための関数が、VBAの `Environ` 関数 です。

これを使えば、「今ログインしている人のデスクトップはどこかな？」とプログラム自身に尋ねることができるようになります。

よく使う環境変数のリスト

環境変数名	取得できる情報の例
`USERPROFILE`	`C:\Users\ユーザー名` （ホームディレクトリ）
`APPDATA`	`C:\Users\ユーザー名\AppData\Roaming` （設定保存用）
`COMPUTERNAME`	現在使用しているPCの名前

デスクトップへ保存したいなら、`Environ(“USERPROFILE”) & “\Desktop\”` と繋げるだけで、どんなPCでも正確なデスクトップのパスが手に入ります。

3. 実践：デスクトップへクイック保存するコード

それでは、実際に使えるコードを書いてみましょう。
単に保存するだけでなく、「上書きを防ぐためにファイル名に日付をつける」という、現場で即戦力となるテクニックも盛り込んでいます。

Option Explicit

''' <summary>
''' 現在の図面を、ログインユーザーのデスクトップへ
''' 日時付きのファイル名でクイック保存するマクロ
''' </summary>
Sub QuickSaveToDesktop()
    On Error GoTo ErrorHandler ' エラーが発生した時の保険をかける

    Dim dwgDoc As AcadDocument
    Set dwgDoc = ThisDrawing ' 現在開いている図面オブジェクトを取得

    Dim desktopPath As String
    Dim fileName As String
    Dim fullPath As String
    Dim timestamp As String

    ' 1. デスクトップのパスを動的に取得
    ' Environ("USERPROFILE") で C:\Users\ユーザー名 を取得し、\Desktop\ を結合
    desktopPath = Environ("USERPROFILE") & "\Desktop\"

    ' 2. ファイル名に使うタイムスタンプを作成 (例: 20231027_153045)
    ' これにより、同じ名前で保存して上書きしてしまう事故を防ぎます
    timestamp = Format(Now, "yyyymmdd_hhnnss")

    ' 3. 保存するファイル名を組み立てる
    ' 元のファイル名を取得して、末尾に日時を付与するスタイル
    ' ※ここではシンプルに "Backup_日時.dwg" とします
    fileName = "AutoCAD_Backup_" & timestamp & ".dwg"
    
    ' 4. フルパス（住所 + ファイル名）を完成させる
    fullPath = desktopPath & fileName

    ' 5. 保存実行！
    ' SaveAs メソッドを使用します
    dwgDoc.SaveAs fullPath

    ' 完了メッセージ（ユーザーに安心感を与える）
    MsgBox "デスクトップにバックアップを保存しました！" & vbCrLf & _
           "ファイル名: " & fileName, vbInformation, "保存完了"

    Exit Sub

ErrorHandler:
    ' エラーが起きた場合、原因を表示してプログラムを安全に終了させる
    MsgBox "エラーが発生しました。保存に失敗した可能性があります。" & vbCrLf & _
           "エラー内容: " & Err.Description, vbCritical, "エラー発生"
End Sub

4. コードの「勘どころ」を解説

このコード、ただ動くだけではありません。プロの設計思想がいくつか隠されています。

① `On Error GoTo ErrorHandler`（エラーハンドリング）

自動化において最も恐ろしいのは、マクロが途中で止まってAutoCADが固まることです。エラーが起きても「何が原因か」を優しく教えてくれるように、エラー処理のルートをあらかじめ作っておくのがプロの作法です。

② `Format(Now, “yyyymmdd_hhnnss”)`（ユニークな名前）

もし「クイック保存」を1日に何度も行うとしたら？同じファイル名だと「上書きしますか？」というダイアログが出て、自動化のテンポが崩れます。
ファイル名に「秒単位の時刻」を入れることで、「常に新しいファイルとして保存される」、つまり衝突のない設計にしています。

③ `&` による文字列の結合

`desktopPath & fileName` の部分。ここでパスと名前を合体させています。
注意点： `desktopPath` の末尾に `\`（バックスラッシュ/円記号）を忘れないようにしましょう。これを忘れると `C:\Users\TanakaDesktopBackup.dwg` という、存在しないおかしな名前になってしまいます。

5. 次のステップへ

おめでとうございます！これであなたは「特定のPCでしか動かないマクロ」から卒業し、「誰の環境でも動く汎用的なツール」を作る第一歩を踏み出しました。

次に挑戦してほしいのは、こんな応用です。

「マイドキュメント」内に専用の「AutoCAD_Backup」フォルダを自動作成して保存する
保存した後に、そのファイルを自動的にWindowsエクスプローラーで開く

これらはすべて、今日学んだ `Environ` 関数と文字列操作の組み合わせで実現できます。

プログラミングは、一歩ずつ「なぜこう動くのか？」を理解していくプロセスです。焦らず、楽しみながらコードを書いていきましょう。困ったときはいつでも戻ってきてくださいね。

Happy Coding!