|
Hirofumiさん、なかなか来れなくてお返事出来なくてすいません。
まるまる送って頂いたもので、試してみました。
2つめのファイルを処理したところで止まりました。
wksNewSheet.Name = NameLetter(strPath)
Voidingカウント一覧のシートには、下記が残りました。
Folder FileName Voiding Voiding累計
C:\RLEファイル格納\041209 1C8MPQNN 78 78
C:\RLEファイル格納\041209 1CIT1B89 114 114
さらに、またお願いなのですが。
ダイアログから選択する形を希望したのですが、これはやめて。
C:\RLEファイル格納に保存してあるフォルダごとに一発でカウント出来るようにはなりますか?
C:\RLEファイル格納
→041209
→aaaa.RLE :Voiding 10
→bbbb.RLE :Voiding 10
→cccc.RLE :Voiding 10
→041210
→AAAA.RLE :Voiding 20
→BBBB.RLE :Voiding 20
→CCCC.RLE :Voiding 20
上記のような保存状況で、VBAを走らせた結果、下記のような結果がVoidingカウント一覧のシートに出力したいです。
Folder FileName Voiding Voiding累計
C:\RLEファイル格納\041209 aaaa.RLE 10 10
C:\RLEファイル格納\041209 bbbb.RLE 10 20
C:\RLEファイル格納\041209 cccc.RLE 10 30
C:\RLEファイル格納\041210 AAAA.RLE 20 20
C:\RLEファイル格納\041210 BBBB.RLE 20 40
C:\RLEファイル格納\041210 CCCC.RLE 20 60
重ね重ねのお願いで恐縮ですが、よろしくお願いします。
|
|