プログラミング

【PR】

【VBA】デスクトップのパスを取得する方法2選

VBA デスクトップのパスを取得する方法2選

VBAでデスクトップのパスを取得する方法を2つ紹介します。

この記事ではWshShellオブジェクトを使用する方法とEnviron関数を使用する方法を紹介します。

【実装コード】WshShellオブジェクトを使用してデスクトップのパスを取得

VBA
Copy
  1. Sub sample()
  2.     
  3.     ' WScript.Shellオブジェクトを作成
  4.     Dim wsh As Object
  5.     Set wsh = CreateObject("WScript.Shell")
  6.     
  7.     'WScript.ShellオブジェクトのSpecialFoldersプロパティを使用して、デスクトップのパスを取得
  8.     Dim desctopPath As String
  9.     desctopPath = wsh.SpecialFolders("Desktop")
  10.     
  11.     ' オブジェクトを解放
  12.     Set wsh = Nothing
  13.     
  14.     ' メッセージボックスにデスクトップパスを表示
  15.     MsgBox desctopPath
  16.     
  17. End Sub

【実装コード】Environ関数を使用してデスクトップのパスを取得

VBA
Copy
  1. Sub sample()
  2.     
  3.     ' デスクトップのパスを取得
  4.     Dim desktopPath As String
  5.     desktopPath = Environ("USERPROFILE") & "\Desktop"
  6.     
  7.     ' メッセージボックスにデスクトップパスを表示
  8.     MsgBox desktopPath
  9.     
  10. End Sub

Excel VBAで初心者を卒業したいという方におすすめの1冊

アイコン画像

もみじ

入門書レベルの内容を理解できる方におすすめの1冊で、実務で必要なスキルを学ぶことができます。

具体的には、コーディングの作法や効率的なコーディング方法、CSVやWeb上のデータとの連携方法、そしてマクロの高速化などの実務で役立つスキルを学ぶことができます。

-プログラミング
-, ,