Memo/2004-04-26 のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Memo/2004-04-26 へ行く。
- 1 (2010-02-27 (土) 14:18:56)
- 2 (2010-03-10 (水) 06:12:07)
- 3 (2010-03-15 (月) 17:40:43)

Excel 関連情報
- ADOによるExcelシート連結

Excel 関連情報 †

ADOによるExcelシート連結 †

マージ前

[E:\home\edu\excel\tmp\data\book1.xls].[Sheet1]
Field1 Field2 Field3
------ ------ ------
aaa       123 AAA
bbb       456 BBB
ccc       789 CCC

[E:\home\edu\excel\tmp\data\book2.xls].[Sheet1]
Field1 Field2 Field3
------ ------ ------
ddd       111 DDD
eee       222 EEE
fff       333 FFF

[E:\home\edu\excel\tmp\data\book3.xls].[Sheet1]
Field1 Field2 Field3
------ ------ ------
ggg       444 GGG
hhh       555 HHH
iii       666 III

[E:\home\edu\excel\tmp\marge.xls].[Sheet1]
Field1 Field2 Field3
------ ------ ------

マージ後

[E:\home\edu\excel\tmp\marge.xls].[Sheet1]
Field1 Field2 Field3
------ ------ ------
aaa       123 AAA
bbb       456 BBB
ccc       789 CCC
ddd       111 DDD
eee       222 EEE
fff       333 FFF
ggg       444 GGG
hhh       555 HHH
iii       666 III

ExcelMarge.vbs

' ExcelMarge.vbs
' Usage : CScript ExcelMarge.vbs
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

excel_marge.zip

■ excel_marge.zip ファイルの詳細

D:\HOME\EDU\EXCEL\EXCEL_MARGE
│  macro.vbs … XLSマージスクリプト（VBScriptバージョン）
│  macro.xls … XLSマージスクリプト（Excel/VBAバージョン）
│  marge.xls … マージ先のファイル
│  
└─data      … マージ対象ファイル
        aaa.xls
        bbb.xls
        ccc.xls

はてな
- http://www.hatena.ne.jp/1082980300