複数のエクセルブックをひとつのブックにまとめる方法

複数のExcelブックのSheet1だけを一つの
Excelブックにまとめて
ブックの中のシートには
それぞれのSheet1が並び
Sheet名は元のブック名にする方法

メモ帳で以下をコピペして
拡張子を「vbs」にして実行するだけ

VBScriptなのでWinしか動きません


Option Explicit

' 統合したブックの保存名 パスは各自の設定に
Dim margedBookPath
margedBookPath = "C:\Desktop\tougouBook.xlsx"

' 対象ブック群が保存されているパス
Dim targetPath
targetPath = "C:\Desktop"

' 対象ブックの拡張子 cvsとかも設定可能
Dim targetExtension
targetExtension = "xlsx"

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

' 対象ブックが保存されているパスを参照
Dim targetFolder
Set targetFolder = fso.GetFolder(targetPath)

' Excel 起動
Dim xlApp
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

' 統合ブックを新規作成
Dim margedBook
Set margedBook = xlApp.Workbooks.Add

' 統合ブックの初期シート数を記憶しておく
Dim initialSheetsCount
initialSheetsCount = margedBook.Worksheets.Count

Dim targetBook

スポンサーリンク

' 対象ブックが保存されているフォルダー内の全てのファイルを精査
Dim f
For Each f In targetFolder.Files
Dim targetSheet ' 対象ブック内のコピー対象シート
Dim copiedSheet ' 統合ブック内のコピーされてきたシート

' ファイルの拡張子が合致すれば
If fso.GetExtensionName(f.Name) = targetExtension Then
' 対象ブックを開き、1枚目のシートを統合ブックにコピーする (右端にコピー)
Set targetBook = xlApp.Workbooks.Open(f.Path, 0, True)
Set targetSheet = targetBook.Worksheets(1)
Call targetSheet.Copy(, margedBook.Worksheets(margedBook.Worksheets.Count))

' コピーされたシートの名前を変更
Set copiedSheet = margedBook.Worksheets(margedBook.Worksheets.Count)
copiedSheet.Name = fso.GetBaseName(targetBook.Name)

' 対象ブックを閉じる
Set targetSheet = Nothing
call targetBook.Close(False)
Set targetBook = Nothing
End If
Next

xlApp.DisplayAlerts = False

' 統合ブックから初期シートを削除する (左端の数枚)
Dim i
For i = 1 To initialSheetsCount
margedBook.Worksheets(1).Delete
Next

' 統合ブックを保存して閉じる
Call margedBook.SaveAs(margedBookPath)
Call margedBook.Close(False)

xlApp.DisplayAlerts = True
xlApp.Quit
Set xlApp = Nothing

一緒に稼ぎませんか?

一般販売されていない
3ヶ月で資金を倍にした自動売買ソフトや
投資方法、好きな事をして稼ぐ方法など
 

メルマガで無料で紹介して
読者さんと一緒に稼いでいます。
 

濃い情報等はメルマガ限定で配信中です。
いつでも配信解除できますので
お気軽に下記フォームから登録してくださいね。

氏名 
メールアドレス 

※Gmailやプロバイダーメールは届きやすいようです。5分経ってもメールが届かない場合は、迷惑メールフォルダーを確認してください。
※それでも届いていない場合は別のメールアドレスを登録してくださいね。

 

・毎月5万円給料以外に収入源が欲しい!
・投資やお金に興味がある!
・アニメや萌えが好き!

そんな方は下の画像↓をクリックしてメルマガの詳細を確認してね
今だけ誰でも5万円稼げちゃう方法をプレゼント中

おすすめ記事