Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7839 / 76734 ←次へ | 前へ→

【74476】読み取り専用フォルダが開けないエラー
質問  ぺーぺー  - 13/6/24(月) 8:39 -

引用なし
パスワード
   複数のブックに処理を繰り返すマクロを作成途中ですが、
肝心の処理の前にフォルダが開けなくて困っております。

エラー
実行時エラー'1004'
'folder1'にアクセスできません。読み取り専用または暗号化されています。

コード
Sub macro()
Dim folder1 As String
Dim folder2 As String
Dim template As String
Dim f As String
Dim wbT As Workbook
Dim wb As Workbook

folder1 = "C:\Users\tsuruta\Documents\macro\folder1" 'フォルダ1
folder2 = "C:\Users\tsuruta\Documents\macro\folder2" 'フォルダ2
template = "C:\Users\tsuruta\Documents\macro\template.xlsm" 'テンプレートBook
f = Dir(folder1 & "1.xlsm") 'フォルダ1内の最初のBook名

Set wbT = Workbooks.Open(template) 'テンプレートを開く
Set wb = Workbooks.Open(folder1 & f) '生データを開く


End Sub


フォルダのプロパティに読み取り専用の項目があり四角で塗りつぶされているのですが、クリックでチェックを外すことができます。しかし、再度プロパティを開くと戻ってしまっています。
また、よくわかっていませんが、PC内のすべてのフォルダは読み取り専用になっているようです。
また、ネットに書いてあった、コマンドプロンプトにてattrib -rを実行する方法では効果がありませんでした。

さらによくわからないのが、
macroフォルダ内にあるtemplateを開くまでは実行されますが、
次の行のfolder1内のブックを開くところで、folder1にアクセスできずエラーとなることです。macroフォルダもfolder1フォルダも見た目はどちらも読み取り専用です。folder1をstringとしておいている関係でしょうか。

かなり困っておりますのでどなたかアドバイスよろしくお願いします。

6 hits

【74476】読み取り専用フォルダが開けないエラー ぺーぺー 13/6/24(月) 8:39 質問
【74480】Re:読み取り専用フォルダが開けないエラー こたつねこ 13/6/25(火) 21:53 回答
【74486】Re:読み取り専用フォルダが開けないエラー ぺーぺー 13/6/26(水) 19:36 質問
【74490】Re:読み取り専用フォルダが開けないエラー こたつねこ 13/6/27(木) 10:35 発言
【74497】Re:読み取り専用フォルダが開けないエラー ぺーぺー 13/7/2(火) 14:16 質問
【74499】Re:読み取り専用フォルダが開けないエラー こたつねこ 13/7/3(水) 9:42 回答
【74500】Re:読み取り専用フォルダが開けないエラー ぺーぺー 13/7/3(水) 13:36 お礼

7839 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free