- ベストアンサー
エクセルで複数ファイルのシートから一つのシートへ結合したい
WWolfの回答
- WWolf
- ベストアンサー率26% (51/192)
ブック内にあるデータ形式にもよりますが、もし質問者様のエクセルが外部データ参照の機能をアドイン出来る又はインストールできるなら、それから最終を取得することもデータを取得することも出来ますよ。
noname#29107
- noname#29107
- noname#29107
- noname#29107
- noname#29107
- noname#29107
関連するQ&A
- エクセルマクロでファイルを開かず行をしらべたい
こんにちは！ エクセルマクロでファイルを開かず一番下の行を調べたいのですが、どうしたらよいでしょうか？ 色々試行錯誤して、下記を組んでみましたが、上手くできませんでした。 test1のエクセルに下記のマクロを入れてあります。 C直下のtestフォルダの中のtest2.xlsのsheet1のファイルを読み込みたいです。 Dim line As Long Dim names As String names = "C:\test\[test2.xls]sheet1" line = ExecuteExcel4Macro("'" & names & "'!R1C1").End(xlUp).Row 「ファイルを開かず一番下の行を調べる」ことができれば、上記のマクロを動くようにするでも、別のマクロを提示するでも構いませんので、アドバイスのほどよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- フォルダ内の複数ファイルを1つのシートしたい
フォルダに入っている同じFMTファイルから同じシート名のファイルの9行目からデータが入力されてる行までをコピーして別ファイルの指定シートにペーストしたいです。 50シートくらいありデータを下につなげていきたいのですが、どうしたらよいでしょうか？ よろしくお願い致します。
- ベストアンサー
- Visual Basic
- ブックを閉じたエクセルファイルの最終行を検索
・フォルダ内に複数のエクセルファイル（xlsx）がある ・それぞれのファイルに記載されている内容や量は異なる （少ないと２００行。多いものだと３０００行以上） これに対して以下の作業を行う方法は無いでしょうか？ (1)ファイルを開かずに、それぞれのファイル内のデータがある最終行を調べる 例：book1のデータが300行あるのなら、「300」を返すような (2)フォルダ内にあるエクセルファイルに一括で(1)を行う 自分でもマクロなりでこれらのファイルの情報を取得しようと試行錯誤しております。 ExecuteExcel4Macroなど自分でも試してみたのですが、全くうまくできません。 マクロに限らず、これが出来るのであればツールややり方は問いません。 (1)、(2)の片方だけでも問題ございませんので、どなたかご教示頂けないでしょうか。
- ベストアンサー
- Excel（エクセル）
- エクセルvbaに関する質問です
ExecuteExcel4Macroを使った際について質問があります。 別ブックのセルを参照したいために、ExecuteExcel4Macroを使いました。 1つ目のmsgboxではパスを変数で、二つ目のmsgboxではパスを直書きしています。 下記のサンプルプログラムで2つとも同じものを表示させたいのですが、別の結果が表示されます。 =====サンプルプログラム＝＝＝＝＝ Sub Sample1() Dim name As String Dim path As String Dim sheet As String path = "C:\Users\USER\Desktop\シフト表\新しいフォルダ\" name = "book1.xls" sheet = "Sheet1" Application.DisplayAlerts = False MsgBox ExecuteExcel4Macro("'" & path & "[" & name & "]" & sheet & "'!R1C1") MsgBox ExecuteExcel4Macro("'C:\Users\USER\Desktop\シフト表\新しいフォルダー\[book1.xls]Sheet1'!R1C1") Application.DisplayAlerts = True End Sub ＝＝＝ここまで＝＝＝＝＝ 実際のbook1.xlsのA1セルには「1」が入っているのですが、変数で書いた場合のみ「aaaaaa」が表示されます。 どうかご教授いただけたら幸いです。
- 締切済み
- Visual Basic
- エクセルの各シートに複数のテキストファイルを取り込むには？
はじめまして。データの整理で困っています。 お力をお借りできたらと思います。 複数のテキストファイルがあります。 これらをエクセルのシートに取り込み、 各シート名を取り込んだファイル名としたいのですが、 何か良い方法はないでしょうか？ 例えば、 No1_1001_1.txt、No1_1001_2.txt、No1_1002_1.txt、... というファイル群を Data_No1.xls のSheet1 <- No1_1001_1.txt Data_No1.xls のSheet2 <- No1_1001_2.txt Data_No1.xls のSheet3 <- No1_1001_3.txt ... というようにしたいのですが。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数のExcelファイルにある同名シートを１つのシートに一括でまとめるには？
フォルダの中に複数のExcelファイルがあり、それぞれのExcelファイルには「All」という名前のシートが存在します。そこで、複数ファイルにあるこのシートのデータをすべて１つのシートにまとめたいと思います。具体的には、「合体.xls」というExcelファイルからマクロを実行し、「合体.xls」に存在する「pAll」という名前のシートにシート「All」の全データを入れたいです。どのようにすれば実現できますか？
- ベストアンサー
- オフィス系ソフト
- Excel VBA別ブックのシートをコピーするには
Excel2010のVBAで別ブックのシートをコピーしてくる方法 Excelファイル(C:\test\BOOK2.xls)のシート名が TESTというシートを自分のExcelファイル(C:\doc\BOOK1.xls)に コピーするにはどのように記述すればよいのでしょうか。 ・コピー先:自分のExcelファイル(C:\doc\BOOK1.xls) VBAのコードがあるファイルです ・コピー元:C:\test\BOOK2.xlsのTESTシート なお、TESTシートを持つ同じ名前(BOOK2.xls)のファイルが 別フォルダにもあります Workbooks( )の引数にファイル名(BOOK2.xls)は指定できるのですが、 フルパス名(C:\test\BOOK2.xls)で指定できないので困っています。
- ベストアンサー
- Visual Basic
- エクセルのファイルを絶対参照したい
各ファイルを1つのファイルにリンクさせたいのですがファイル名を絶対参照ってできるのですか？ (例) A1=[BOOK1.xls]sheet1'!$A1 B1=[BOOK2.xls]sheet1'!$A1… A1=[BOOK1.xls]sheet1'!$A2 B1=[BOOK2.xls]sheet1'!$A2… A1=[BOOK1.xls]sheet1'!$A3 B1=[BOOK2.xls]sheet1'!$A3… ： ： ： ：
- ベストアンサー
- オフィス系ソフト
- 複数ファイルを一つのシートにまとめるには？
まずは少しでも勉強してから質問しろよって感じですが、そんなのは承知のうえでどなたかご教示いただけると大変ありがたいです。 一つのフォルダ（フォルダ名：精算用）に４０ファイル（それぞれ異なる会社の名前がついています）が１シートずつ存在します。 それぞれのファイルのデータを一つのシートにまとめて、データの合計数を出したいのです。 過去の回答などを参考にしてみたのですが、新しいBOOKが空白のままただ出来るだけでした。 全てのファイルは３行目からデータが入っています。 本当に初心者なので、手取り足取り教えていただけると幸いです。 よろしくお願いいたします。
- 締切済み
- その他（ビジネス・キャリア）
- エクセルVBAで他Bookを閉じたまま参照・訂正
Cells(1, 1) = Application.ExecuteExcel4Macro _ ("'C:\My Documents\[Book2.xls]Sheet1'!R1C1") でBook2を開かずにセルを参照できますが、 １．別の記述方法があるのでしょうか。 ２．逆に、閉じたBook2のセルに対し、値を訂正できないでしょうか。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
ご回答ありがとうございます。 ブック内のデータは文字列です。 外部データ参照機能を追加インストールできました。 ヘルプを見た限りでは、他のアプリのデータを参照するような事を書いてありましたが、エクセル同士でも使うものなのですか？ どのように使えばよいか、よかったら教えてください。 自分でも調べてみます！