フォルダーからファイル名の取得と、エクセルファイルへのコピー

初歩的な質問ですが、

あるファイルに、規則的なＰＤＦファイルが大量にあり、
そのファイル名の先頭から2～10桁を抜き出し。
エクセルファイルに落としたいのですが、
良い方法が分かりません。
VBA初心者のため、できればプログラムくんでくれる方
おりませんでしょうか？

また、ファイル内のPDFファイルの名前だけをコピーして、
エクセルシートに落とすことはできないでしょうか？


よろしくお願い致します。

No.3 回答者： notnot 回答日時： 2009/02/07 11:26

＞パラメーターの形式が間違っています。

　”B *.PDF”

タイプミスですね。空白も含め正確に入力してください。

この回答へのお礼

解決致しました。

ありがとうございました。

お礼日時：2009/02/07 14:41

No.2 回答者： n-jun 回答日時： 2009/02/07 05:34

＞また、ファイル内のPDFファイルの名前だけをコピーして、

＞エクセルシートに落とすことはできないでしょうか？

07.フォルダ内に存在する全「.xls」ファイルのベース名を取得する
http://www.officetanaka.net/excel/vba/filesystem …
ご参考になれば。

No.1 回答者： notnot 回答日時： 2009/02/06 23:20

１．コマンドプロンプトを開きます。

２．CD とスペースを打ちます。
３．目的のフォルダを、コマンドプロンプトにドラッグドロップします。
　　そうすると、「CD "C:\なんとかかんとか"」とフォルダ名が入力されます。
４．Enter
５．DIR /B *.PDF > LIST.TXT と打ちます。
６．Excelで、LIST.TXTを開きます。
７．メニューの、「データ」→「区切り位置」を実行します。
８．「スペースによって・・・固定長のデータ」を選んで、そのあとは、2~10桁が区切られるようにします。
９．実行すると、A列に1桁目、B列に2～10桁目、C列に11桁以降が入ります。

この回答へのお礼

詳しいご説明ありがとうございます。

コマンドプロトコルというのは、これまで使用したことが
なかったのですが、ファイル名を取得するだけなら、
こちらの方法のほうが早いですね。

一点、教えていただきたいのですが、

DIR /B *.PDF > LIST.TXT

この指示を入力し、ENTERを押した後、
パラメーターの形式が間違っています。　”B *.PDF”

このように表示され、フォルダー内にTXTファイルは
あるのですが、情報が何も入っていない状態です。

こちらの解決方法教えていただけないでしょうか？
よろしくお願い致します。

お礼日時：2009/02/07 10:54