[[20070716202304]] 『ファイル名』(0077) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ファイル名』(0077)

お世話になります。

複数のフォルダの中のエクセル&ワードの名前を別のエクセルに打ち出しって出来ますでしょうか??

1つ目のフォルダ

例)フォルダ名・・・東京

中のファイル名・・・千葉、埼玉、神奈川

2つ目のフォルダ

例)フォルダ名・・・群馬

中のファイル名・・・茨城、青梅、横田

       A           B
1  フォルダ名  ファイル名
2     東京      千葉
3     東京      埼玉
4     東京      神奈川
5  フォルダ名  ファイル名←区切りをするためA1とB1の題名を・・
6     群馬        茨城
7     群馬        青梅
8     群馬        横田

以上のようにたくさんのものを1つのエクセルファイルに書き出したいのですが??

よろしくお願い致します。。(0077)


 VBA がお分かりでしたら、下記のサイトが参考にならないでしょうか。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html

 他にもいろいろな例があるので、参考にされると良いかと思います。
 (Mook)

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

VBA??チョット無理なようなので・・時間をかけて行うしか

ありませんね(007)


 フリーウェアを下記で紹介しています。
[[20031231133504]] 『fdの中身一覧印刷』(北新宿mh)
希望のレイアウトには直接ならないとは思いますが。
(みやほりん)(-_∂)b


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

ダウンロードがありBatsu-FListと言うエクセルファイルを入手しましたが

ファイルがない??などと出てしまい・・・・(0077)


 >ファイルがない??などと出てしまい・・・・
ありゃ・・・WinXP&Excel2003では動きませんね。失礼しました。
Win98&Excel2000では問題なかったのですが。
Vectorで「ファイル 管理 Excel」のキーワードで検索すると、他にもいくつかあるようです。
http://www.vector.co.jp/
 
あるいは、Mookさんの紹介のサイトで「フォルダ一覧」というフリーツールが公開されています。
http://www.asahi-net.or.jp/~ef2o-inue/download/sub09_010.html
 
こちらを利用されても良いでしょう。
(VBAと言うだけで拒否反応を起こされて詳しく読んでいないだけとは思いますが。)
 
VBA勉強するつもりなら、学校の過去ログにもいくつかサンプルがあるようです。
[[20050711132657]] 『VBA:フォルダ名の取得』(いま)
(みやほりん)(-_∂)b

(みやほりん)(-_∂)bさんありがとうございました。

過去のマクロで出来ました。

今まで行なっていた作業がうそのように・・また確実に・・完璧で感謝です。

Sub ファイル名検索()

 Dim myObj As Object
 Dim myFileName As String
 Dim myDir As String

 Set myObj = CreateObject("Shell.Application"). _
 BrowseForFolder(0, "フォルダを選択してください", 0)

 If myObj Is Nothing Then Exit Sub

    myDir = myObj.Items.Item.Path & "\"
    myFileName = Dir(myDir & "*", vbHidden + vbSystem)

    Do
        Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = myFileName
        Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = myDir
        myFileName = Dir()
    Loop Until myFileName = vbNullString

    Range("A1").Value = "フォルダ名"
    Range("B1").Value = "ファイル名"
    Columns("A:B").AutoFit
 End Sub

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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.