エクセルの学校：全文検索：Hyper Estraier：フォルダ選択

Results of 1 - 1 of about 1437 for フォルダ選択 (0.009 sec.)

フォルダ (4447), 選択 (24694)

[[20160614130055]]: #score: 4655; @digest: 1603d965cec48cd2babda8466895505b; @id: 70938; @mdate: 2016-06-14T08:52:40Z; @size: 4638; @type: text/plain; #keywords: kesa (15241), ダ属 (14536), setattr (12773), 属性 (12113), msofiledialogfolderpicker (7420), getattr (7179), の属 (6993), 専用 (6125), ォル (5511), ルダ (4720), り専 (4639), filters (4190), initialfilename (3926), フォ (3867), filedialog (3178), み取 (2731), 用フ (2450), （ke (1735), 性の (1354), 2016 (1337), 性を (1275), 火) (1244), なフ (1180), 読み (1152), filesystemobject (1126), スプ (1124), ーラ (1047), officetanaka (1035), 取り (996), ダ内 (915), ダを (913), 変更 (900); 『FileDialogで選択したフォルダの読み取り専用を解除したい』（kesa）
msoFileDialogFolderPickerで選択したフォルダが読み取り専用になっていてエラーになってしまいます。色々自分で調べてみて、 Folder.AttributesやSelectedItems(1)などを使えばよさそうなのですが、うまく組み合わせできません。 With Application.FileDialog(msoFileDialogFolderPicker) .Filters.Clear .InitialFileName = ThisWorkbook.Path この後に何を記述すればよいでしょうか。よろしくお願いします。＜使用 Excel:Excel2010、使用 OS:Windows8 ＞ ---- 書きこみましたが質問の意味を取り違えていたので、いったん取り消します。（β） 2016/06/14(火) 13:16 ---- 再掲します。読み取り専用にする必要があるから、そうなっていると思うのですが、やりたいことは読み取り専用フォルダ内のブックを変更して更新したいということですか? それが適切なことなのかどうかは、こちらでは判断できませんが、ブックの属性の変更については http://www.officetanaka.net/excel/vba/filesystemobject/file01.htm あたりが参考になりませんか。（やったことがないので、できるかどうかは ?? です）（β） 2016/06/14(火) 13:34 ---- コメントありがとうございます。私の説明が不十分でしたので補足いたします。 Excelデータを集計するためのマクロを作っており、 msoFileDialogFolderPickerでフォルダを選択してその中のExcelを転記しようとしています。ところが、そのフォルダの属性が読み取り専用になっており、（選択したフォルダ名）にアクセスできません。読み取り専用または暗号化されています。とエラーが出てしまいます。そこでmsoFileDialogFolderPickerでフォルダを選択した後にフォルダの属性を書き換えたいです。 Sub 集計() Dim ‾ （略） With Application.FileDialog(msoFileDialogFolderPicker) .Filters.Clear .InitialFileName = ThisWorkbook.Path If .Show <> -1 Then Exit Sub （転記処理） End Sub 大枠はこのような形となっております。宜しくお願いします。（kesa） 2016/06/14(火) 13:36 ---- http://officetanaka.net/excel/vba/filesystemobject/folder01.htm フォルダーの属性はこれが使えそうなのですが、これをmsoFileDialogFolderPickerでフォルダ選択した際に、どのように書き換えればいいかが思いつかない状態です。（kesa） 2016/06/14(火) 13:41 ---- このあたりは詳しくないので上級者さんの回答をお待ちください。 フォルダ属性の変更そのものは http://faq.epsondirect.co.jp/faq/edc/app/servlet/qadoc?011423 あたりで操作手順が記載されています。そもそも、そのフォルダを読み取り専用解除をしたらいいのでは? と思うのですが、一方で読み取り専用ということは読み取りはできるのでは?（やったことがないので、わかりませんけど）隠しフォルダとか、そういった特殊なフォルダではないのですよね? ところで、後学のため教えてください。エラーは、いつ発生するのですか? ダイアログ上で、フォルダを選択した時に発生するのですか? （β） 2016/06/14(火) 13:56 ---- 色々とありがとうございます。おっしゃる通りフォルダ属性をVBAで変更せずにCmdで変更すれば良い話なのですが、指定するフォルダは頻繁に変わってしまう上に、また実際にこのVBAを実行するのは別の方になるので、わざわざ毎回Cmdで変更してもらうのが手間になってしまうのでできればVBAで処理したいという内情があります。エラーはフォルダを選択した後に発生します。（kesa） 2016/06/14(火) 14:06 ---- 現在の属性の取得は、GetAttr 関数、属性の変更は、SetAttr ステートメント、で出来る。詳しくはヘルプ参照。（とおりすがり） 2016/06/14(火) 16:02 ---- コメントありがとうございます。 GetAttr,SetAttrはファイルの属性みたいですね。 フォルダの属性を変更したいです。（kesa） 2016/06/14(火) 16:25 ---- その、選ぼうとしているフォルダは、どんなフォルダなんでしょうか。当方、PC環境として、ごくごく普通の設定をしており、読み取り専用フォルダなんてものは扱っていないのですが、そちらでは、そういうフォルダが、たくさんあるのでしょうかね。で、その中には当然ブックがあるんだと思いますけど、なぜ、そんなフォルダにして、そこにブックをいれてあるのですか? 当然、そのフォルダは、マクロではなく、エクスプローラで表示させて選んでもエラーになるんですよね。そういうフォルダにしている意図は、何かあるんでしょうね? 仮に、VBAで、そのフォルダの属性を変更できたとします。それって、いいのでしょうか? 何か理由があるからそういう設定にしてあるとすると、勝手に、それを変更してもいいのですか? で、いいんだということなら、最初から、そういう設定じゃない通常のフォルダにしておけばよろしいのでは? （β） 2016/06/14(火) 17:28 ---- エクスプローラでのフォルダへの読み取り専用のチェックはフォルダそのものの属性の変更ではなくフォルダ内のファイルをまとめて読み取り専用にするものではないか。そもそも読み取り専用のフォルダとはどのようなフォルダなのだろうか? （ねむねむ） 2016/06/14(火) 17:52 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201606/20160614130055.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ