hatena
hatena
2022/06/09 (木) 10:55:38
strPath = "C:\Users\" & UserName & "○○○リスト" & Format(Now(), "yyyymmdd")
の部分ですが、ファイルパスに拡張子をつけてみてください。
strPath = "C:\Users\" & UserName & "○○○リスト" & Format(Now(), "yyyymmdd") & ".xlsx"
通報 ...
上記でダメなら下記も試してみてください。
strPath = "C:\Users\" & UserName & "○○○リスト" & Format(Now(), "yyyymmdd") & ".xlsx"
としましたが
今度は実行時エラー’2220’
ファイルC:\Users\" & UserName & "○○○リスト2022****.xlsx"を開くことができませんと表示されます