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

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

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

A 回答 (4件)

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



指定したディレクトリ内のファイル一覧表を作成します。
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

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


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

1.ファイル名の一覧をCSV形式で書き出し、
2.CSVファイルをExcelで開いて、
3.コピー⇒貼り付け

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

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

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

お礼日時:2007/10/25 23:41

#2の補足です。



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

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


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

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

この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)),"")

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

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

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

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

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

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

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

宜しくお願いします。

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のエクセルファイルがあり、それぞれのエクセルデータのA2からF2までのデータのをまとめた一覧表(1行目は、1枚目のエクセルファイルのA2-F2、2行目は2枚目のエクセルファイルの・・・、という感じでです)のを、新しいエクセルファイルもしくはテキストなどにでも手早く作れる方法をご存知の方、ご教授ください。コピペでやっていますが嫌になってしまいました。。マクロも触っては見たのですが、2枚目のエクセルファイルを2行目に、3枚目のエクセルファイルを3行目になどの方法の解決は思いつかず、挫折しました。よろしくお願いいたします

Aベストアンサー

対象のフォルダをcドライブの「sample」とした場合で回答します。
新規エクセルブックのシート名タブを右クリックし「コードの表示」
右側のエディタエリアに下記コードを貼り付け、実行して下さい。
G列にファイル名が入るようになっています。不要であれば
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

対象のフォルダをcドライブの「sample」とした場合で回答します。
新規エクセルブックのシート名タブを右クリックし「コードの表示」
右側のエディタエリアに下記コードを貼り付け、実行して下さい。
G列にファイル名が入るようになっています。不要であれば
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列に日付 B列に企業名このデータが300件ほどあります。

 Å列      B列
1月 1日    AAAA社
1月 4日   BBBB社
1月 8日   CCCC社
2月 1日   BBBB社
2月20日    DDDD社
3月 2日   AAAA社

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

Aベストアンサー

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


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