中を見ていただき、ありがとうございます。
現在、一つのフォルダの中にある複数のエクセルファイルを、一つにまとめるソフトを探しています。
いくつか探してみましたのが、使っている環境のセキュリティが厳しいので、VBAを使う方法や、インストールが必要なソフトは使えず、困っております(管理者に頼んでセキュリティを外してもらうことはできません)。バッチファイルは試していません。
機能としては以下のものを備えている必要があります。
・複数のブックのシートだけを1つにまとめる(各ファイルは、1シートでできています)
・シート名が、ファイル名と同じになる
・まとめるファイルは、xls形式とxlsx形式とが混在していても良い
・マクロを使っていない
・インストールしなくても使える
もしご存知でしたら、お教えいただけますと大変助かります。
No.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)を選択して実行します。
ご回答ありがとうございました。
また、御礼が大変遅くなり、申し訳ございませんでした。
ご教授いただいた方法で、望どおりの結果を得ることができました。食わず嫌いと申しますか、マクロとセキュリティのことに関して無知だったと申しますか、とにかく蒙昧を啓いていただき、ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
EXCELブックが勝手に開いて困っ...
-
エクセル;相対パスを絶対パスへ...
-
マクロの保存先、開いてるすべ...
-
エクセルVBAで作成した別ブック...
-
[フィルターオプションの設定]...
-
EXcelのマクロで相対パスでファ...
-
【Excel】マクロの保存先について
-
EXCELのボタンによるマクロの登...
-
【Excel】特定セルの内容をテキ...
-
【Excel】他ブックからOpenされ...
-
複数のExcelファイルの印刷設定...
-
エクセルVBA 個人用マクロブッ...
-
Excel:VBAブック保存時にマクロ...
-
複数のbookから特定のセル(行...
-
excelで直前に参照していたブッ...
-
エクセルでメッセージボックス...
-
ファイル名変更後も、マクロを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
マクロの保存先、開いてるすべ...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
excelで直前に参照していたブッ...
-
EXcelのマクロで相対パスでファ...
-
エクセルVBAで作成した別ブック...
-
【マクロ】必要な項目(列)の...
-
複数のExcelファイルの印刷設定...
-
エクセルのvbaにて thisworkboo...
-
エクセルで未保存に対するメッ...
-
名前の変わるブックをアクティ...
-
ファイル名変更後も、マクロを...
-
エクセルVBA 個人用マクロブッ...
-
EXCELのボタンによるマクロの登...
-
個人用マクロブックが消えました
-
【Excel】特定セルの内容をテキ...
-
【マクロ】マクロが保存されて...
おすすめ情報