Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12883 / 76807

←次へ　｜　前へ→


	【69438】Re:ファイル名書き出し

UO3 - 11/7/11(月) 13:09 -


	引用なし

	パスワード

▼にしもりさん：

コードはよく読んでいませんが、DIR処理の基本構造からいうと

>ファイル名 = Dir()
>Worksheets("ファイル一覧").Cells("A", 貼付行) = ファイル名'<=ここでErr

この２行の順番が逆ですね。
取得したファイル名を処理してから、次のファイル名 = Dir() を。

追加質問の件、親フォルダ内の全ての階層の子フォルダ、孫フォルダも検索対象にするには
DIR関数ではなく、
・処理時間が少しかかってもいいなら、わかりやすいFSO方式。
・ファイル数などから、処理時間に問題がでるならDIRコマンドやAPI(W)なんかを。

3 hits

▼

【69436】ファイル名書き出し にしもり 11/7/11(月) 12:39