エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
複数のエクセルファイルからデータ抽出とまとめる方法について。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
複数のエクセルファイルからデータ抽出とまとめる方法について。
対象のフォルダを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)).