VBAで 'Workbooks.Open "\Users\eagle\Desktop\給与4月\Aさん.xlsx" でAさん.xlsxは開きますが

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました。おかげでたすかりました

お礼日時:10/18 19:33

その他の回答(2件)

0

Workbooks.Open "\Users\eagle\Desktop\” & kyuyo & "\Aさん.xlsx" このままだと、Aさん.xlsxが存在しない場合はエラーになって止まってしまいます。チェックを入れた方がいいです。 あと、フォルダのパスも変数にした方がいいです。その方が、保存フォルダが変更された場合にメンテしやすいので。 Const 親フォルダパス As Sring = "C:\Users\eagle\Desktop" Dim 子フォルダ名 As String Dim ファイル名 As String Dim フルパス As String 子フォルダ名 = "給与4月" ファイル名 = "Aさん.xlsx" フルパス = 親フォルダパス & "\" & 子フォルダ名 & "\" & ファイル名 If Dir(フルパス) = "" Then 'ファイルが見つからなかった場合の処理 Else Workbooks.Open フルパス End if ちなみに、ログインユーザーが変わった場合はデスクトップのパスも変わります。代わりにこうしておくと、常に現在のログインユーザーのデスクトップのパスが取れます。 Dim 親フォルダパス As String 親フォルダパス = CreateObject("WScript.Shell").SpecialFolders("Desktop")

0

"\Users\eagle\Desktop\kyuyo\Aさん.xlsx" ↓ "\Users\eagle\Desktop\" & kyuyo & "\Aさん.xlsx"