Excel VBA質問箱 IV

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

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


7835 / 76734 ←次へ | 前へ→

【74480】Re:読み取り専用フォルダが開けないエラー
回答  こたつねこ  - 13/6/25(火) 21:53 -

引用なし
パスワード
   ぺーぺーさん、こんばんは
こたつねこと申します。

エラー個所や、実際にぺーぺー さんがやりたい処理のことが書かれていないこと
そして、Excelが使えない環境で検証できない事を先にお断りしておきます。

その上での予想ですが、プログラムミスだと思います。
#自分の思ったとおりに動かない場合は、ほぼプログラムミスだと思ったほうが
#いいと思います。


>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名
Dir関数の引数にどの様な文字列を指定していると想定していますか?
"C:\Users\tsuruta\Documents\macro\folder1" + "1.xlsm" なので
『C:\Users\tsuruta\Documents\macro\folder11.xlsm』です。
おそらく想定しているものと違うと思います。
そして、当然のごとくそのようなファイルは無いと予想しますので
変数fの値は、長さ0の文字列("")が返ってきます。


>Set wb = Workbooks.Open(folder1 & f) '生データを開く
さて、ここで開こうとしているファイル名は
"C:\Users\tsuruta\Documents\macro\folder1" + 長さ0の文字列("")
ですので
『C:\Users\tsuruta\Documents\macro\folder1』とこうなります。
エクセルでフォルダーをファイルの様に開こうとすると、おそらく

>'folder1'にアクセスできません。読み取り専用または暗号化されています。

このエラーが出ると思いますよ。

4 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 お礼

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