ExcelVBA デスクトップにファイルを保存に使うパスを取得する方法

以下のようなシーンで利用されます。

1.デスクトップにファイルを保存
ユーザーが簡単に見つけられるように、生成したファイルをデスクトップに保存する。

2.デスクトップ上の特定ファイルを開く
デスクトップ上に保存されているファイルをVBAで操作・読み取る。

Option Explicit

Sub SaveToDesktop()
    Dim desktopPath As String
    Dim filePath As String
    desktopPath = Environ("USERPROFILE") & "\Desktop"
    filePath = desktopPath & "\TestFile.txt"
    
    ' テキストファイルの作成
    Open filePath For Output As #1
    Print #1, "これはテストファイルです。"
    Close #1
    
    MsgBox "ファイルをデスクトップに保存しました。"
End Sub

デスクトップに存在するファイルを開く
デスクトップ上に保存されている「TestFile.txt」を開いて中身を読み取る例です。

Option Explicit

Sub OpenFromDesktop()
    Dim desktopPath As String
    Dim filePath As String
    Dim fileContent As String
    desktopPath = Environ("USERPROFILE") & "\Desktop"
    filePath = desktopPath & "\TestFile.txt"
    
    ' ファイルが存在するか確認
    If Dir(filePath) <> "" Then
        ' ファイルを開いて読み込み
        Open filePath For Input As #1
        Input #1, fileContent
        Close #1
        MsgBox "ファイルの中身: " & fileContent
    Else
        MsgBox "ファイルが見つかりません。"
    End If
End Sub

ExcelVBAでデスクトップパスを取得する方法は、ファイルの保存や読み込みを自動化したいときに非常に便利です。簡単なコードで現在のユーザーのデスクトップパスを取得し、ファイル操作を効率化することが可能です。