【先着1,000名様！】1,000円分をプレゼント！

エクセルにフォルダー内のファイル名を取り込みたい。

解決済

  • 質問者：fbox2006
  • 質問日時：
  • 回答数：4件

WINDOWS XP を使用しております。
例えば、『Aフォルダ』に『文書１』『文書２』『文書３』というファイルがあったとします。これらのファイル名をエクセルのそれぞれのセルに一括で取り込みたいのですがどうすれば良いのでしょうか？
解説してある、HPがあればリンク先教えて下さい。
よろしくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「csv フリーソフト」に関するQ&A： csv ファイルを開けるフリーソフト

A 回答 (4件)

No.2ベストアンサー

  • 回答者： misatoanna
  • 回答日時：

名前の定義と関数だけでも可能です。



指定したディレクトリ内のファイル一覧表を作成します。
1.名前を定義します。
　　・名前：FL　（例です。実際は任意です。）　
　　・参照範囲：=INDEX(FILES(Sheet1!$A$1&"\*.xls"),ROW()-1)
2.セルA1に、検索対象のフォルダのフルパスを入力します。
　　例）C:\_MyFiles\Office_Misc\1_Excel
3.セルA2に　=FL　と入力して下方にコピーします。

これはExcelファイルだけ対象にした場合ですが、「参照範囲」の数式内の
拡張子を変えれば、どの種類でも扱えます。（\*.* も可）
    • good
    • 13
    • 件
通報する
この回答へのお礼

ありがとうございます。
早速、試してみます。

通報する
お礼日時：2007/10/25 23:40

No.4

マクロで書き出すのが標準的な解決方法だと思いますが、


単発の作業であれば、例えば下記のようなフリーソフトを用いて、

１．ファイル名の一覧をCSV形式で書き出し、
２．CSVファイルをExcelで開いて、
３．コピー⇒貼り付け

という手順の方が手軽かもしれません。

『ファイルリスト作成機』
http://www.vector.co.jp/soft/win95/util/se082901 …
    • good
    • 2
    • 件
通報する
この回答へのお礼

ありがとうございます。
早速、試してみます。

通報する
お礼日時：2007/10/25 23:41

No.3

  • 回答者： misatoanna
  • 回答日時：

＃２の補足です。



> WINDOWS XP を使用しております。
Excelのバージョンが不明ですが、2007ですとマクロ関数がサポートされて
いないようですので無効かもしれません。
その場合は回答を無視してください。
    • good
    • 3
    • 件
通報する

No.1

  • 回答者： n-jun
  • 回答日時：

ファイルの一覧を取得する


http://www.officetanaka.net/excel/vba/file/file0 …
こちらが参考になるかもです。
    • good
    • 1
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

関連するQ&A

関連するカテゴリからQ&Aを探す

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qフォルダ名やファイル名、テキストドキュメント名のタイトルだけコピーする方法？

前から面倒でタイトルのようにフォルダ名やファイル名をコピーする方法
がないのかなと思っていたのですが、なにか良い方法はないでしょうか？
またテキストドキュメントもよく利用するのですが、そのままテキストドキュメントの
コピーではなくタイトルだけコピーして、別のテキストドキュメントのタイトルにタイトルだけ
コピーする方法はないのでしょうか？

よく、一部だけ変更して別のテキストドキュメントに保存するのですが
そうするとタイトルが長くなり、タイトルつけるだけでも結構面倒に
なるので、タイトルだけコピーしてタイトルを一部変更して
保存できれば楽だなと思ったのですが、なにか良い方法は
ないでしょうか？

つまり、新規テキストドキュメント＞タイトル消す＞別に作成したテキストドキュメントから
タイトルだけコピー＞さっき消した新規テキストドキュメントのタイトルに貼り付け＞
＞タイトル一部変更保存＞という流れでやりたいのですが。

応用してフォルダ名だけコピーファイル名だけコピーとかできれば面倒でなくなるのですが。

説明がわかりづらいと思いますが良い方法があれば回答よろしくお願いします。

前から面倒でタイトルのようにフォルダ名やファイル名をコピーする方法
がないのかなと思っていたのですが、なにか良い方法はないでしょうか？
またテキストドキュメントもよく利用するのですが、そのままテキストドキュメントの
コピーではなくタイトルだけコピーして、別のテキストドキュメントのタイトルにタイトルだけ
コピーする方法はないのでしょうか？

よく、一部だけ変更して別のテキストドキュメントに保存するのですが
そうするとタイトルが長くなり、タイトルつけるだけでも結構面倒に
なる...続きを読む

Aベストアンサー

[名前を付けて保存]ダイアログで、既存のファイルから[ファイル名]を
コピーしたいのですね。
以下で説明する私が使っている方法でよければ試してみてください。

[名前を付けて保存]→[名前を付けて保存]ダイアログにて保存をしたい
フォルダが開いた状態にする→[ファイル名]でカーソルが点滅した状態
でコピーしたいファイル名を右クリック→[ファイル名]に名前がコピー
されたら一部を変更して[保存]。

上記手順で右クリックしたときに右クリックメニューが表示されますが
そのまま[ファイル名]のところをクリックすれば消えますので変更する
部分だけ追加などをします。

他の回答も見る

Qフォルダ内のファイル名を取得する

windows 7なのですが、フォルダ内にあるファイル名をテキストとしてすべて一括で取得する方法はないでしょうか？　また、フォルダの中にさらに複数のフォルダがあっても、上の階層のフォルダからすべてファイル名を取得する方法はないでしょうか？　よろしくお願いいたします。

Aベストアンサー

[メモ]フォルダ内のファイル名一覧をテキストにする方法
http://anond.hatelabo.jp/20081019044429

他の回答も見る

Qフォルダにあるファイル名一括抽出方法

あるフォルダAに1000枚の写真ファイルが入っています。この1000枚のファイルに対して画像編集を行いBというフォルダに別名保存（ファイル名は全く同じ）しています。ファイル名はランダムな数値になっています。画像を編集して全てのファイルの画像加工をしたかと思ったのですが、ファイル数を見ると980枚程度しか編集していなく、どのファイルが編集したか、していないかわからなくなりました。

そこでフォルダのファイル名のみを抽出してExcelに貼り付けて、どのファイルを編集していて、していないかをチェックしたいのですが、何かフリーのツール、もしくはウィンドウズコマンド、解決方法はないでしょうか？

Aベストアンサー

下のURLにあるソフトでファイル名をテキストとして取得できます。それをエクセルで読み込めばOKです。
http://www.vector.co.jp/soft/win95/util/se392002.html

ちなみに、エクセルで、AフォルダとBフォルダのファイル名を、同じ列に並べ、重複削除機能を使えば、まだ編集していないファイル名がわかります。

他の回答も見る

QEXCEL VBA　で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

＞現在開いているブックのファイル名
　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

　しかし、
＞VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

他の回答も見る

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列>　<B列>　<C列>
7/1　りんご　100円
7/2　ぶどう　200円
7/2　すいか　300円
7/3　みかん　100円

このような表があって、100円を含む行をそのままの形で、
別のセル（同じシート内）に抜き出したいのですが。

7/1　りんご　100円
7/3　みかん　100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は５００行までとしていますが、必要に応じて変更して下さい

他の回答も見る

QエクセルのＩＦ関数で、文字が入力されていたならば～

エクセルのＩＦ関数で文字が入力されていたならば～、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またＩＦ関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか？

他の回答も見る

Qフォルダに入っているファイル名称を一括で取得する方法

Windowsのフォルダに入れたファイルの数々のファイル名称を
一括で取得する方法をご存知でしたら教えてください。
テキストでも良いので文字列を落としたいのですが。

イメージ

☆マイドキュメント
AAAAA.xls
AAAABB.xls
CCCCC.doc
EEEEEE.doc
PPPPPP.mdp

Aベストアンサー

1.メモ帳に以下のように1行だけを記述します。

DIR > FILES.TXT

2.メモ帳で名前を付けて保存します。ファイル名は

FILES.BAT

と付けてください。
保存場所はどこでもかまいません。

3.作ったファイルFILES(MS-DOSバッチファイルと表示されます)を
　一覧の欲しいフォルダにコピーします。

4.コピー先のフォルダでFILESを開きます。
　FILE(テキスト文書)ができていますので、これを開くと
　ファイルの一覧が得られます。

他の回答も見る

Q複数のエクセルファイルからデータ抽出とまとめる方法について。

500のエクセルファイルがあり、それぞれのエクセルデータのＡ２からＦ２までのデータのをまとめた一覧表（１行目は、１枚目のエクセルファイルのＡ２－Ｆ２、２行目は２枚目のエクセルファイルの・・・、という感じでです）のを、新しいエクセルファイルもしくはテキストなどにでも手早く作れる方法をご存知の方、ご教授ください。コピペでやっていますが嫌になってしまいました。。マクロも触っては見たのですが、２枚目のエクセルファイルを２行目に、３枚目のエクセルファイルを３行目になどの方法の解決は思いつかず、挫折しました。よろしくお願いいたします

Aベストアンサー

対象のフォルダをｃドライブの「sample」とした場合で回答します。
新規エクセルブックのシート名タブを右クリックし「コードの表示」
右側のエディタエリアに下記コードを貼り付け、実行して下さい。
Ｇ列にファイル名が入るようになっています。不要であれば
Cells(rIdx, 7).Value = fName
を削除して下さい。


Sub getA_F()
Const myPath As String = "c:\sample\"
Dim rIdx As Long
Dim fName As String
fName = Dir(myPath & "*.xls")
Do Until fName = ""
Workbooks.Open Filename:=myPath & fName
rIdx = rIdx + 1
Me.Range(Cells(rIdx, 1), Cells(rIdx, 6)).Value = ActiveSheet.Range("A2:F2").Value
Cells(rIdx, 7).Value = fName
Windows(fName).Close
fName = Dir
Loop
End Sub

対象のフォルダをｃドライブの「sample」とした場合で回答します。
新規エクセルブックのシート名タブを右クリックし「コードの表示」
右側のエディタエリアに下記コードを貼り付け、実行して下さい。
Ｇ列にファイル名が入るようになっています。不要であれば
Cells(rIdx, 7).Value = fName
を削除して下さい。


Sub getA_F()
Const myPath As String = "c:\sample\"
Dim rIdx As Long
Dim fName As String
fName = Dir(myPath & "*.xls")
Do Until fName = ""
Workbooks.Open ...続きを読む

他の回答も見る

QEXCEL VBAマクロ作成で、他のEXCELからデータを取り込みたい

メインプログラム(EXCEL VBA)より、
他のフォルダーにあるEXCELの項目の内容を取り込みたいです。
たとえば他のフォルダーのEXCELのRange("A2:A3").ValueをメインプログラムのRange("C2:C3").Valueにセットしたい時です。

・コマンドボタン押したら、どこのEXCELから取り込むかのポップアップ(？)は、表示はできてます。
・作業者が選んだパスとブックもMsgBoxで表示できてるので、もらう相手の場所も取得できてます。

・となると次はOPEN,INPUTですか？
テキストデータの取り込みですと、Inputでそのバッファを定義してるのですが、なんか違うような。。。

よろしくお願いします！

Aベストアンサー

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Cells(2, 2).Value ' 相手シートの B2 の値を自分自身の A1 に書き込む

readBook.Close False ' 相手ブックを閉じる
Set readSheet = Nothing
Set readBook = Nothing

私がやる方法です。

Dim writeSheet As Worksheet ' 自分自身の書き出し先シート
Set writeSheet = ThisWorkbook.Worksheets(1) ' Sheet1 を参照

Dim readBook As Workbook ' 相手ブック
Set readBook = Workbooks.Open(filename) ' 相手ブックを開いて参照
Dim readSheet As WorkSheet ' 相手シート
Set readSheet = readBook.Worksheets("sheetName") ' 相手シートを参照
' または Set readSheet = readBook.Worksheets(sheetIndex)

' 例えば
writeSheet.Cells(1, 1).Value = readSheet.Ce...続きを読む

他の回答も見る

Qエクセルで重複しているデータの抽出のしかたを教えてください。

エクセルで重複しているデータを抽出したいのですが・・。なにぶん初心者なもので簡単な方法があればよいのですが・・。
Ａ列に日付　Ｂ列に企業名このデータが３００件ほどあります。

　Å列　　　　　　Ｂ列
１月　１日 　　 ＡＡＡＡ社
１月　４日　　　ＢＢＢＢ社
１月　８日　　　ＣＣＣＣ社
２月　１日　　　ＢＢＢＢ社
２月２０日　 　 ＤＤＤＤ社
３月　２日　　　ＡＡＡＡ社

と、あるとしてＢ列の企業名が重複しているものを抽出したいのですが・・・。この場合　ＡＡＡＡ社とＢＢＢＢ社ですが。
これを簡単に抽出する方法はないでしょうか？
教えてください　お願いいたします。

Aベストアンサー

企業名がセルＢ２からセルＢ３００まで入力されていると仮定します。
セルＣ２に　IF(COUNTIF($B$2:B2,B2)>1,"*","") を入力し、セルＣ３００までコピーして下さい。すると重複したデータの二番目以降に "*" のマークが付きます。
(注) 数式を下のセルまでコピーするため、COUNTIF($B$2 は絶対参照にして下さい。

他の回答も見る
ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報