人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

複数のEXCELファイルを自動でマージするマクロか、ソフトが掲載されているサイト、もしくは、やりかたを教えてください。
<条件>
1.EXCELは、97か2000
2.ファイルは、一つのフォルダにあり、データ形式は一緒。
3.ファイル数は100個以上
4.ファイル名の規則性はなし
5.一つのシートにデータをマージ
6.一つのファイルの容量は、80KBから100KB

●質問者: aqua99
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel サイト ソフト データ データ形式
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● cx20
●30ポイント

http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.php?Memo%2F200...

[hondarer-soft] to [cx20.main.jp]

試しにコードを書いてみました。

’ ExcelMarge.vbs

’ Usage : CScript ExcelMarge.xls

Const DIR = ”E:¥home¥edu¥excel¥tmp¥data” ’ 対象データ

Const XLS = ”E:¥home¥edu¥excel¥tmp¥marge.xls” ’ マージ先のファイル

Marge

Sub Marge

Dim cn

Dim rs

Set cn = CreateObject(”ADODB.Connection”)

cn.Open ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & XLS & ”;Extended Properties=Excel 8.0”

Dim fs

Set fs = CreateObject(”Scripting.FileSystemObject”)

Dim folder

Set folder = fs.GetFolder( DIR )

Dim file

For Each file In folder.Files

cn.Execute ”INSERT INTO [Sheet1$] SELECT * FROM [Excel 8.0;database=” & file & ”].[Sheet1$]”

Next

End Sub

◎質問者からの返答

検証してみます。ありがとうございます。


2 ● mitu_hisa
●30ポイント

http://www.vector.co.jp/soft/win95/business/se208276.html

これはいかがですか?

◎質問者からの返答

やってみます。ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ