オーバーフォーティーおやじログ

前回 作成したVBAを使ってて不便な点が1つ出てきたので考えました。 よくよく考えるとフォルダ名一覧を1個のファイルにまとめたいよなぁ。 だって大体が一まとめにしないといけないケースが多いわけだし。 ということでモジュール側でファイル一覧を1個のEXCELにシートを追加して 出力できるように改修しました。モジュール側だけ改修したんでそっちだけ モジュール側 ----------------------------------------------- Option Explicit 'refer ' http://ameblo.jp/gidgeerock/entry-11584846307.html ' https://oshiete.goo.ne.jp/qa/1828986.html ' http://officetanaka.net/excel/vba/file/file07.htm ' http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html ' http://officetanaka.net/excel/vba/tips/tips39.htm ' https://gist.github.com/gitspopovic/2963865 ' http://vba-geek.jp/blog-entry-294.html ' http://vbaexcel.seesaa.net/article/148305417.html ' http://d.hatena.ne.jp/bhunji2000/20091030/1258133771 ' http://www.239-programing.com/excel-vba/func/func072.html ' v2 ref ' https://www.moug.net/tech/exvba/0150120.html ' http://officetanaka.net/excel/vba/sheet/sheet03.htm ' http://hensa40.cutegirl.jp/archives/705 ' ht

この前 は業務フローをシートにというパターンでしたが 今回はファイル1個に業務を記載してくれているパターンなので 指定したフォルダからファイル名の一覧を抜き出す必要が出てきました。 とゆうかシートの業務一覧とかファイル名のとか統一しろよと思いつつも・・・・。 両方組合せとかその他イレギュラーパターンも多々あるしそれは今後の話ということで ひとまずはマクロ組んでみました。 とりあえず40を超えてから3社転職してるんで、こういうのは蓄積しておかないと。 忘れるし。パッケージみたいになっているほうがありがたい。 フォーム側 ----------------------------------------- Sub getFileName_Click() ' ' フォルダからファイル名を取得して一覧にして別のEXCELシートに保存する。 ' Dim dlg As Object Dim dlgAns As Boolean Dim getForder As Variant Dim outSheet As Variant Dim retVal As String Dim startTime As Date '処理時間計測用 Dim endTime As Date '処理時間計測用 startTime = Now 'カレントディレクトリの指定 ChDir CurDir 'ファイル名取得対象フォルダの指定 Set dlg = Application.FileDialog(msoFileDialogFolderPicker) dlgAns = dlg.Show If dlgAns Then getForder = dlg.SelectedItems(1) Else getForder = "" End If '保存対象ファイルの指定 outSheet = Application.GetOpenFilename("EXCELファイル(*.x