複数のExcelブックをまとめるソフトを探しています
- セキュリティの制限がある環境で使える、複数のExcelブックをまとめるソフトを探しています。VBAやインストールが必要なソフトは使用できず、バッチファイルも試していません。必要な機能は、複数のブックのシートをまとめて1つのファイルにすることで、シート名はファイル名と同じになります。xls形式とxlsx形式が混在しても良く、マクロを使っていないためインストール不要です。
- セキュリティの制限がある環境で使用できるExcelブックの結合ソフトを探しています。VBAやインストールが必要なソフトは利用できず、バッチファイルも試していません。必要な機能は、複数のブックのシートを結合して1つのファイルにすることで、シート名はファイル名と同じになります。xls形式とxlsx形式が混在しても問題ありませんし、マクロを使用していないためインストール不要です。
- セキュリティの制限がある環境で使用可能なExcelブックのまとめるソフトを探しています。VBAやインストールが必要なソフトは使用できず、バッチファイルも試していません。必要な機能は、複数のブックのシートを1つのファイルにまとめることで、シート名はファイル名と同じになります。xls形式とxlsx形式が混在していても問題ありませんし、マクロを使用していないためインストール不要です。
- ベストアンサー
複数のExcelブックをまとめるソフト
中を見ていただき、ありがとうございます。 現在、一つのフォルダの中にある複数のエクセルファイルを、一つにまとめるソフトを探しています。 いくつか探してみましたのが、使っている環境のセキュリティが厳しいので、VBAを使う方法や、インストールが必要なソフトは使えず、困っております(管理者に頼んでセキュリティを外してもらうことはできません)。バッチファイルは試していません。 機能としては以下のものを備えている必要があります。 ・複数のブックのシートだけを1つにまとめる(各ファイルは、1シートでできています) ・シート名が、ファイル名と同じになる ・まとめるファイルは、xls形式とxlsx形式とが混在していても良い ・マクロを使っていない ・インストールしなくても使える もしご存知でしたら、お教えいただけますと大変助かります。
- Caryo_t
- お礼率87% (131/150)
- その他MS Office製品
- 回答数2
- ありがとう数5
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
> VBAを使う方法や、インストールが必要なソフトは使えず、困っております このVBAを使う方法がダメというのはVBAが入ったエクセルをVBA有効で開くことができないということですか? ならば、一回きりのことですから、マクロを使う方法ですがこうしてみませんか? 新規にエクセルのファイルを一つ作ります。(保存はしません) その新しいエクセルのファイル(BOOK)にマクロをコピペします。 そのマクロはそとから持ち込んだものでないので多分実行できるはずです。 マクロを実行すると、フォルダーを聞いてきますから、そこでフォルダーを指定すると、ご要望の「一つのフォルダの中にある複数のエクセルファイルを、一つにまとめたデータ」が出来上がります。 そのまとまった複数のシートを選択して新しいくエクセルのファイルに保存してください。 マクロを書いたファイルは保存しないで終了してください。 手順は以下のとおりです。簡単ですよ。 1.新しいBOOKを開き、AltキーとF11キー同時に押し(以下Alt+F11キーと記述)て Visual Basic Editor を呼び出します。 2.Visual Basic Editor のメニューから「挿入」、「標準モジュール」で出てきたコードウィンド(右側の白い広い部分)に以下のコード(Sub~End Sub)をコピペします。 '********これより下********** Sub TEST01() Dim myObj As Object Dim myDir As String, myFle As String Dim ws As Worksheet, mb As Workbook, wb As Workbook Set myObj = CreateObject("Shell.Application"). _ BrowseForFolder(0, "フォルダを選択してください", 0) If myObj Is Nothing Then Exit Sub If myObj = "デスクトップ" Then myDir = CreateObject("WScript.Shell").SpecialFolders("Desktop") Else myDir = myObj.Items.Item.Path End If Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook myFle = Dir(myDir & "\*.xls*") 'フォルダ内のExcelブックを検索 Do Until myFle = Empty '全て検索 If myFle <> ThisWorkbook.Name Then 'ブック名がこのブックの名前でなければ Set wb = Workbooks.Open(myDir & "\" & myFle) 'そのブックを開きwbとする。 wb.Worksheets(1).Copy After:=mb.Sheets(mb.Sheets.Count) '1枚目のシートをコピー Set ws = mb.Sheets(mb.Sheets.Count) ws.Name = wb.Name '名前をwbのBook名に wb.Close (False) 'wbを保存しないで閉じる End If myFle = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す Application.ScreenUpdating = True '画面更新一時停止を解除 End Sub '********これより上********** 3.Alt+F11キーでワークシートへもどります。 4.Alt+F8キーで出てきたマクロ名(test01)を選択して実行します。
その他の回答 (1)
- layy
- ベストアンサー率23% (292/1222)
データの形式を確認ですが。 すべてCSVファイルに書き出すとかアクセス使うとかでも良ければ、なんか出来そうですし、1回限りの作業なら悩むより手作業のが早い可能性あり。
お礼
ご回答ありがとうございました。 マクロで行なってみることにいたします。
関連するQ&A
- 複数のブックのデータを一つのブックにまとめたい
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page1.htm ↑の 7. 指定したフォルダ内にあるExcelファイルを検索して開く の部分のマクロを利用して、集計.xlsというブックで、複数のブックを開くようにしましたが、そのブックを開いた時にそのブックのSheet2の中のデータのみコピーして、集計.xlsに貼り付けたいのですが、どのようにすればよいのか困っています。 指定したフォルダの中には、回答01.xls 回答02.xls ・・・と16個のブックがあります。順番に開いてコピーをするときに、どのようにブック名とシート名を指定すればよいのかわからず困っています。 何か参考になるものがあれば教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel; 複数シート → 複数ブックの作成
一つのブックの複数シートを一度に複数のブック(xlsファイル)にする方法はございますか? 宜しくお願い致します。
- ベストアンサー
- その他(プログラミング・開発)
- 複数エクセルブックを一つにするマクロが知りたいです
フォルダ内に「01.xlsx」「02.xlsx」…「10.xlsx」という10個のブックがあります。 各ブックの中には、ブック名に対応した形で「01」「02」…「10」というシート名のシートが一つだけ入っています。 同フォルダ内に「matome.xlsx」というブックを用意して、マクロ処理をかけることで、「matome.xlsx」の中に「01」「02」…「10」のみの10個のシートが入った状態にしたいです。 マクロ処理をかける前の「matome.xlsx」のシートには、「sheet1」という、シートが一つだけ入っている状態です。 仕事のデータをまとめるのに、困っています。。。 何かいい方法はありますでしょうか。 マクロに詳しい方、お教えいただければ幸いですm(_ _)m
- ベストアンサー
- オフィス系ソフト
- Excel2010マクロ有効ブックを開く際のエラー
いつもお世話になっています。 ちょっと長いご相談ですがよろしくお願いいたします。 Office2003、2007、2010をインストールしているPCで Excel2010でマクロ有効ブック(.xlsm)を開く際にエラーが表示されてしまいます。 インストールは下位バージョンから順に入れました。 3バージョンをインストール後、数時間は普通に使えていたのですが、 保存されているブックをダブルクリックで開くと、デフォルト2007で開くようになってしまったので ファイルの関連付けを手動で修正したところ Excel(.xlsx)を開く際に下記エラーが表示されるようになってしまいました。 「C:¥Documents.xlsが見つかりません」 →[OK]をクリック→さらに次のメッセージが表示 「and.xlsが見つかりません」 →[OK]をクリック→さらに次のメッセージが表示 「Settings\(ユーザー名)¥My.xlsが見つかりません」 →[OK]をクリック→さらに次のメッセージが表示 「Documents¥(ファイル名).xlsが見つかりません」 マイクロソフトのサポートに事例があったので、参考にレジストリキーを修正しました。 (ファイルの種類の [開く] アクションに意図的に %1 を追加した場合、レジストリ キーに %1 が追加され、%1 を [開く] アクションのエントリから削除してもレジストリ キーは変更されず、手動で編集する必要があるそうです) http://support.microsoft.com/kb/207574 レジストリキーは「HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\command」とありますが2010のため「Excel.Sheet.12」を修正しました。 マクロが含まれていないブック(.xlsx)はエラーは表示されなくなり、 デフォルト2010で開くようになったのですが マクロ有効ブック(.xlsm)を開く際、上記エラーが表示されてしまいます。 マイクロソフトのサポートページでは、マクロブックには触れておらず どうしたらよいのかわからずにいます。 同じような現象をご存知の方いらっしゃいましたら解決策を教えてください。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- 他のブックファイルのセルの参照が上手く行きません
こんにちはよろしくお願いいたします。 エクセルのブックファイル(Book1.xlsx)に,他のブックファイル(Book2.xls)のセルの値を参照しようと思い”=”を入力し参照するブックファイルのセルをクリックし,「 =[Book2]Sheet1!$A$1 」のような参照を行いました。こうしてきちんと表示されました。 しかし,この参照の式を「 =[Book3]Sheet1!$A$1 」のように,他のブックファイル(Book3.xls)のセルに変更したところ,参照できなくなりました。ブックファイル(Book1.xlsx)には,「 =[Book3]Sheet1!$A$1 」という式そのものが表示された状態となっています。式は,キーボードを使って変更しました。もちろん,(Book3.xls)は,(Book2.xls)と同様のシート形式をもち,データも入力されています。 このような状態になると,先に挙げたように,”=”を入力して参照するブックファイル(Book3.xls)のセルをクリックしても,ブックファイル(Book1.xlsx)には,「 =[Book3]Sheet1!$A$1 」という式そのものが表示された状態となったままで,(Book3.xls)のデータは表示されません。 (Book2.xls)と(Book3.xls)のセルのデータは,文字列です。 気になるのは,(Book1.xlsx)はoffice2010で作成されたファイルであること,(Book2.xls)と(Book3.xls)は,互換モードと表示されるファイルであること,また表示されているファイルを見ると,フルパスで参照している点です。「 ='C:\aaa\bbb\・・・・・[Book3]Sheet1'!$A$1 」という参照式になっています。3つのファイルはすべて同一ファイルに入っています。 何が,参照を阻んでいるのでしょうか?教えてください。よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルのxls形式からxlsx形式の一括変換
エクセルのxls形式からxlsx形式の一括変換、その逆もできますか? いつもお世話になっております。 職場でのパソコンがOffice2003、2007、2010と混在しており、保存されているファイルも拡張子が「*.xls」と「*.xlsx」が混在しています。 ファイルを開いて、「*.xls」形式を「*.xlsx」形式に形式を選択し、保存しなおししたり、その逆もすることが多いのですが、多くの手間がかかります。(例えば、20個程度のファイルなら20回) 複数のファイルを一括して変換することはできませんか。
- ベストアンサー
- オフィス系ソフト
- 複数のExcelブックから特定シートのセル範囲抽出
同一フォルダ内にある複数のExcelブックから特定シートの特定セル範囲を抽出して一覧表にまとめるExcel マクロ(VBA)を教えてください。 このサイトで殆どよく似た回答を読んだのですがうまくいきません。VBA初心者です。 よろしくお願いします。 【前提】 ・実行する端末のOSはWindows 10 ExcelはOffice365 ProPlus ・対象フォルダはネットワーク接続フォルダ この中に、複数のExcelブック(xlsx、xlsm)があります。 ・抽出したい対象は、各ブック内の「台帳」シートの「A3:Cの最終行」で 複数のブックの中には「台帳」シートが含まれていないブックも混在しています。 【抽出一覧作成イメージ】 ・「集約.xlsm」ブックの「集計」シートの2行目から抽出した結果を一覧表示する。 ・「集約.xlsm」ブックにマクロは登録する ・表示はA列に抽出元ブック名(=ファイル名)、B列からD列に抽出元「A3:Cの最終行」セルの値。 ・「A3:Cの最終行」セルの値を「集約.xlsm」ブックの「集計」に貼り付ける際には「値で貼り付ける」が望ましい。
- ベストアンサー
- Windows 10
- エクセル:複数ブックから任意のシートを選んで結合
お世話になります。 複数のブックをひとつにまとめるという質問は過去にもたくさんあったのですが次の場合の対処がわかりませんでしたので教えてください。 なお手動でやるのではなく、マクロやフリーソフトなどで自動化したいと思っています。 1つのフォルダに複数のブックがあり、各ブックには複数のシートがあります。各ブックの先頭シート(一番左のシート)だけを1つのブックにまとめたいのです。 現在、各ブックの先頭シート(一番左のシート)の名前には「人の名前」が入っています。 1つにまとめるブックを 全員.xls として、このブックの各シートに各ブックの先頭シート(一番左のシート)の名前(人の名前)をつけて保存したいのです。 結合する際に「人の名前」のようにシート名が違うことが問題になるならば、すべてのブックのSheet1だけをまとめるというやり方でも構いません。 この場合、全員.xlsの各シート名は適当でも良い。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【Excel 2003】複数のブックのシートを一つのブックにコピーにしたい
お世話になっております。 【Excel 2003】を使っております。 複数のブックには、複数のシートがありまして、 複数のシートを一つのブックにコピーしたいのですが、 手作業ですと、大変時間がかかります。 現在は、一つ一つブックをあけて、シートのコピーで 一つの新しいブックにいれてます。 なにか、これを簡単にできる方法は、ありませんでしょうか? フリーのソフトでも、マクロでも、教えていただけたら 助かります。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 複数のエクセルブックをひとつのブックにまとめる方法
同一フォルダに複数のエクセルブック(100個以上)が入っています。 その中のSheet1だけ(Sheet1~3まですべてのブックにあります)を一つのエクセルにまとめたいです。 ブックの中にSheet1、Sheet1(1)、Sheet1(2)・・・ みたいになればいいです。 Sheet名がブック名になるのが理想ですが。。 どのようにすればよろしいでしょうか?
- 締切済み
- Visual Basic
お礼
ご回答ありがとうございました。 また、御礼が大変遅くなり、申し訳ございませんでした。 ご教授いただいた方法で、望どおりの結果を得ることができました。食わず嫌いと申しますか、マクロとセキュリティのことに関して無知だったと申しますか、とにかく蒙昧を啓いていただき、ありがとうございました。