同一フォルダの中に、あるアンケートに対する回答の"Book01"~"BookXXX"のエクセルファイルと、その回答を一覧に並べるための"集計用ファイル"がります。このアンケートの回答ファイルは日々数が追加されて行くので、毎日"集計用ファイル"に回答を得た分を転記し日付の名前でもつけて保存して行きたいのです。エクセルマクロを使用して、この"Book1"~"BookXXX"のA1からZ1に入力されている数値を"集計用ファイル"のA~Zまでに1行目から下へ下へと転記したいと考えています。
■質問
上記のケースで、フォルダ内の名前の異なるファイルすべてを対象に転記の作業を行う場合、どのようにマクロを作成すれば良いのかご指導頂くか、簡潔に説明しているサイト等ありましたら教えて頂けませんでしょうか。
■補足
技量不足でフォルダ内にある名前の異なるファイル全てをを対象に転記を行うマクロを組むことができません。(フォルダ内のファイル名が特定できていれば独力でマクロを記録することはできます。)
過去の質問や、書籍も調べたのですが方法がわからなかったので投稿させて頂きました。よろしくお願いいたします。
No.4ベストアンサー
- 回答日時:
Sub test()
Dim fil_name As String
Dim fil_path As String
fil_path = "c:\"
fil_name = Dir(fil_path, vbNormal)
Do While fil_name <> ""
Cells(65536, 1).End(xlUp).Offset(1, 0) = fil_name
fil_name = Dir
Loop
End Sub
シートに書き出します
ご回答ありがとうございます。
ただ、下記のメッセージを返してきました。
AUTOEXEC.BAT
CONFIG.SYS
教えていただいた内容は、私の環境で手を加えないとそのままは使えないのでしょうか?
No.5
- 回答日時:
>教えていただいた内容は、私の環境で手を加えないとそのままは使えないのでしょうか?
質問の何処にフォルダ名が書かれているのでしょうか?
提示されていないものは指定でませんので
"C:\"としました、説明が足らず申し訳ありません
"C:\"に目的のフォルダ名をドライブ名から指定してください
アクティブシートに指定フォルダ内のファイル名が表示されます
>フォルダ内のファイル名が特定できていれば独力でマクロを記録することはできます。
との事なので、ファイル名の取得までです
参考にしてください
No.3
- 回答日時:
#2です。
検索:ExcelVBA Dir関数
http://www.google.co.jp/search?sourceid=navclien …
ご参考まで。
興味がありましたら、FileSystemObjectオブジェクトも調べてみては如何でしょうか。
No.2
- 回答日時:
>このアンケートの回答ファイルは日々数が追加されて行くので、毎日"集計用ファイル"に
>回答を得た分を転記し日付の名前でもつけて保存して行きたいのです。
日々回答ファイルが増えていくのですか?
それとも1ファイルの中に行数が増えるのですか?
集計したファイルは、日付毎に名前を変えてファイリングしていくのですか?
どのようなデータをどのように集め、どのように記録するのか作業手順が不明確な感じがします。
No.1
- 回答日時:
一例です
Bookのシート名は、"Sheet1"にしました
Sub test()
Dim i As Integer
Dim MyPath As String
Dim MyName As String
Dim k As Variant
MyPath = ThisWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
i = 1
Application.ScreenUpdating = False
Do Until MyName = ""
If MyName <> ThisWorkbook.Name Then
Workbooks.Open MyPath & "\" & MyName
Sheets("Sheet1").Select
k = Range("A1:Z1").Value
ActiveWorkbook.Close
Range(Cells(i, 1), Cells(i, 26)).Value = k
i = i + 1
End If
MyName = Dir()
Loop
Application.ScreenUpdating = True
End Sub
ご回答、ありがとうございます。
教えて頂いた上記の内容を試したのですが、アンケートのファイルに入力されている値ではなく、集計用のファイルの行をコピーしていってしまうようなのですが、私の設定が悪いのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) Excel使用前提 同じフォルダ内にあるファイルの集約等をマクロでできますか 4 2022/09/06 19:03
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルのシートの数を数えた...
-
エクセルマクロで不特定なファ...
-
vlookup関数の引数を変数で指定...
-
Accessのaccdbファイルを起動で...
-
フォルダ内のexcelファイルを順...
-
VBAでワークブックの名前を変数...
-
【Excel VBA】ファイル名が一...
-
Excelのマクロについてご教授く...
-
フォルダ内のブック全部にパス...
-
VBA ふたつの同じ様式シートの...
-
エクセル(マクロ)のファイル...
-
EXCELが終了できません
-
Excelファイルがマクロを含むか...
-
エクセルマクロ 異なるファイ...
-
ワード2007で複数ファイル自動...
-
エクセルのxls形式からxlsx形式...
-
vba dirにおけるフォルダ内にあ...
-
リンク切れチェックを行うマクロ
-
Excelで漢字人名が勝手に並び変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
VBAでワークブックの名前を変数...
-
フォルダ内のexcelファイルを順...
-
エクセルのxls形式からxlsx形式...
-
エクセル 複数ファイルの一括...
-
エクセルのシートの数を数えた...
-
accessフォルダを移動したらフ...
-
vlookup関数の引数を変数で指定...
-
Accessのaccdbファイルを起動で...
-
ファイルを開かずにマクロを実行
-
【Excel VBA】ファイル名が一...
-
EXCELマクロを無効にして開く方法
-
エクセル(マクロ)のファイル...
-
ACCESS VBAでファイルを開くダ...
-
Excel VBA でファイルが開かれ...
-
ファイルの保存場所を変えたら...
-
vba初心者です。 質問です。 毎...
-
フォルダ内のブック全部にパス...
-
エクセルマクロ 異なるファイ...
おすすめ情報