質問: エクセルVBAについての質問です。 私のPC(Win8.1 エクセル2013)のデスクトップに「任意名」でフォルダを作成した後、エクセルファイル5個とmdbファイル1個をダウンロードの上、「任意名」のフォルダに保存してマクロを実行して使用しています。 しかし、先週、隣席のBさんのPC(Win10 エクセル2016)で上記と同じ方法で使用開始したところ、「実行時エラー’1004’ 申し訳ございません。(ファイル名)D\***¥****¥***XLSが見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。」というメッセージが出ました。 原因と対処方法をお教え頂けませんでしょうか。私のVBAスキルは、マクロの単語を少々加筆修正できる程度です。よろしくお願いいたします。
回答: デスクトップのフォルダは"C:\・・・"のはずですが、"D:\"で始まるのはおかしいと思います。 各PCの現在のユーザーのデスクトップのフォルダは CreateObject("WScript.Shell").SpecialFolders("Desktop") で求まります。 デスクトップの「任意名」と言うフォルダを表示します。 これでフォルダ内が表示されますか? Sub sample() Dim folder As String folder = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\任意名\" If Dir(folder, vbDirectory) = "" Then MsgBox "デスクトップに「任意名」フォルダがありません。" Exit Sub End If Shell "Explorer " & folder, vbNormalFocus End Sub