なんと清々しいことw 何だか心が晴れわたっていきましたわ^^
ただ階段前の郵便受けはまだ外されたままで地面にじか置き状態( --) ・・・・・早く戻ってくれんかねぇ~。
さて、BVAの話。相変わらず買った本を読まずに自分のやって欲しい処理を行うマクロを作ろうとしてる^^;
そこで職場で役立ちそうなマクロを発見。こちらです。
このツールは指定したディレクトリ(フォルダ)の中にあるデータ、(サブディレクトリも含む)の一覧を記述するマクロ。
しかし全てのデータを記述するから困ったもの^^; そこでちょっとソースを追加
'拡張子がhtml,css,jsのみ記入
If (Right(objFILE.Name, 5) = ".html" Or Right(objFILE.Name, 4) = ".css" Or Right(objFILE.Name, 3) = ".js") Then
・・・・・
End If
と加えることで制限をかけれたわ^^
便利なツールも手を加えることで簡単に求めるものを作れるのは罪なものだねぇ~
ただ階段前の郵便受けはまだ外されたままで地面にじか置き状態( --) ・・・・・早く戻ってくれんかねぇ~。
さて、BVAの話。相変わらず買った本を読まずに自分のやって欲しい処理を行うマクロを作ろうとしてる^^;
そこで職場で役立ちそうなマクロを発見。こちらです。
このツールは指定したディレクトリ(フォルダ)の中にあるデータ、(サブディレクトリも含む)の一覧を記述するマクロ。
しかし全てのデータを記述するから困ったもの^^; そこでちょっとソースを追加
'拡張子がhtml,css,jsのみ記入
If (Right(objFILE.Name, 5) = ".html" Or Right(objFILE.Name, 4) = ".css" Or Right(objFILE.Name, 3) = ".js") Then
・・・・・
End If
と加えることで制限をかけれたわ^^
便利なツールも手を加えることで簡単に求めるものを作れるのは罪なものだねぇ~
PR
トラックバック
トラックバックURL: