実行時エラー1004が出ます。

投稿者 : yff     投稿日時 : 2024/08/30(Fri) 14:52:47     OS : Windows 10     EXCEL : Office 365

---

フォルダ内の全てのファイルを開いて処理をするマクロを作成していますが、ファイルを開く際に以下のエラーが出ます。

「実行時エラー’1004:
‘XXX.CSV’にアクセスできません。読み取り専用または暗号化されています。」

ファイルのプロパティを見ると読み取り専用にはなっていませんし、ファイルは開いていません。
また、CSVファイルをエクスプローラから開く際にエラーは出ません。
念の為、読み取り専用で開く様指定しましたが、それでもエラーが出ます。
開くファイルはOneDriveに保存されているCSVファイルです。

以下の様に記載しました。

myPath = “C:¥Users¥xxxx¥OneDrive¥Documents¥xxxx¥”
myBook = Dir(myPath & "*.CSV")

Do Until myBook = ""
Workbooks.Open myPath & myBook, ReadOnly = True

（中略）

Loop

解決方法をご教示願います。よろしくお願いいたします。

投稿者 : OneDrive知らん     投稿日時 : 2024/08/31(Sat) 13:37:59

---

OneDrive使わないからわからんけど、OneDriveでなくデスクトップにおいてみて試してみては

投稿者 : yff     投稿日時 : 2024/09/03(Tue) 17:47:29

---

■[返信 1] OneDrive知らんさん（2024-08-31 13:37:59）の記事
＞ OneDrive使わないからわからんけど、OneDriveでなくデスクトップにおいてみて試してみては

ありがとうございます。デスクトップにファイルを配置して試したところ、うまく行きました。

PCがOneDriveと同期しているので、デスクトップのパスが「C:¥Users¥xxxx¥OneDrive¥デスクトップ¥xxxx¥」になります。
デスクトップでもそうでなくてもOneDriveなのですが、ドキュメントフォルダからデスクトップに変更したらなぜかうまく行きました。

ありがとうございました。