[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ファイル名』(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
過去のマクロで出来ました。
今まで行なっていた作業がうそのように・・また確実に・・完璧で感謝です。
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.