Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67226 / 76807

←次へ　｜　前へ→


	【14140】Re:複数のEXCELファィルのデータをひとつに...

IROC - 04/5/21(金) 18:21 -


	引用なし

	パスワード

>1.新規ファィルを作成し、一行目に項目名A,B,C,D,E・・・設定する
マクロの自動記録でできます。

>2.ファィルを開く・・開かなくて可能でしょうか？
開く必要がありますが、開いた後に非表示にすることができます。
開く処理は、マクロの自動記録でできます。

しかし、指定したフォルダのファイル名をdir関数で取得し、
そのファイルを開く。
これを、そのフォルダ内のxlsファイル数だけ、
Do～Loop等によりループ処理する事になります。

>3.指定セルの値を、新規ファィルの指定項目の２行目に送る、これを30回繰り返す
「指定セル」の範囲は、どこになりますか？シート名は？

最下行は、Range("A65536").End(xlup).Offset(1).Row で取得できます。
（セルA65536　で ctrl + ↑ して、ジャンプしたセルの１個下）

>4.ファィルを閉じる
マクロの自動記録でできます。

>6.新規ファィルに名前を付けて保存する
マクロの自動記録でできます。

1 hits

▼

【14134】複数のEXCELファィルのデータをひとつに... fryday 04/5/21(金) 17:54