以前に、フォルダ階層をExcelに書き出すためのVBAをつくったので公開。
変数名がかなり適当なのはやっつけ仕事のためのお約束ということで。
ものはこんな感じ。
フォルダ名をD1に
書出階層数をD2に
フォルダ階層出力はA6から
はじまるようになってます。
とりあえず、以下C:\ドライブを書き出してますがその下の階層でも、
接続ができていればネットワーク上でも、書き出す事はできます。
ネットワーク割付されてれば、そのドライブ名で、
割付されてなければ「\\IPアドレスもしくはNETBIOS名\共有フォルダ名」で指定。
が、現在のログインユーザで
アクセス権がないようなフォルダについてはエラーで止まります。
書出階層数は0を指定すれば、制限ナシで書き出しますが、
指定をすれば、その指定数分の階層までを出力します。
このVBAを使用する場合は、
書き出し用のシートなどの準備は自分でしてください。
あと、とりあえずExcel2000では動いてますが、
他のVerは動作検証してないのであしからず。
バグがあった場合は、勉強だと思って自分で直してください(ぁ
各自で改善してもらう事は問題ありませんが、
このコードそのままの再配布はやめてください。
改善した場合の公開は必ずこちらにリンクをつけてください。
改善した内容などもコメント・トラバに入れてもらうとかなり嬉しいです。
[0回]
PR