| |
>まるまる送って頂いたもので、試してみました。
>２つめのファイルを処理したところで止まりました。
>wksNewSheet.Name = NameLetter(strPath)
止まりましたとは？、如何言う意味で？
エラーが出たならどの様なエラーが出たのですか？
其れが解らなければ、直し様が有りません
>Voidingカウント一覧のシートには、下記が残りました。
>Folder FileName Voiding Voiding累計
>C:\ＲＬＥファイル格納\041209 1C8MPQNN 78 78
>C:\ＲＬＥファイル格納\041209 1CIT1B89 114 114
此れを見ると、多分「ファイルを開く」ダイアログで、1つづつファイルを選択しているようですね？
其の場合、Pathをシート名にして居るので、同じ名前のシートを作ろうとしますのでエラーに成ります
ここで、表示される「ファイルを開く」ダイアログは、マルチセレクトなので、
同一フォルダのファイルは、一遍に選択してください（Shiftキーを押しながら選択、
若しくは、Ctrlキーを押しながら選択）
そうすれば、選択されたファイルが同じシートに続けて読みこまれます
>さらに、またお願いなのですが。
>ダイアログから選択する形を希望したのですが、これはやめて。
>C:\ＲＬＥファイル格納に保存してあるフォルダごとに一発でカウント出来るようにはなりますか？
>
>C:\ＲＬＥファイル格納
> →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
>
>上記のような保存状況で、ＶＢＡを走らせた結果、下記のような結果がVoidingカウント一覧のシートに出力したいです。
>
>Folder FileName Voiding Voiding累計
>C:\ＲＬＥファイル格納\041209 aaaa.RLE 10 10
>C:\ＲＬＥファイル格納\041209 bbbb.RLE 10 20
>C:\ＲＬＥファイル格納\041209 cccc.RLE 10 30
>C:\ＲＬＥファイル格納\041210 AAAA.RLE 20 20
>C:\ＲＬＥファイル格納\041210 BBBB.RLE 20 40
>C:\ＲＬＥファイル格納\041210 CCCC.RLE 20 60
そう言う使い方をすれば、上記（チョト違うけど）の様に成ると思いますが？
まず、今のコードで読めないのに、仕様を変更しても無意味では？
|
|
Hirofumi
- 04/12/10(金) 21:04 -
