|
複数のブックに処理を繰り返すマクロを作成途中ですが、
肝心の処理の前にフォルダが開けなくて困っております。
エラー
実行時エラー'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としておいている関係でしょうか。
かなり困っておりますのでどなたかアドバイスよろしくお願いします。
|
|