エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
複数のエクセルファイルからデータ抽出とまとめる方法について。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
複数のエクセルファイルからデータ抽出とまとめる方法について。
対象のフォルダをcドライブの「sample」とした場合で回答します。 新規エクセルブックのシート名タブを... 対象のフォルダを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)).