Memo/2004-04-26
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*Excel 関連情報 [#l826ede2]
**ADOによるExcelシート連結 [#t47247cf]
-マージ前
[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 Sourc...
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 ...
Next
End Sub
#ref(http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.ph...
■ 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
//#comment
終了行:
#contents
*Excel 関連情報 [#l826ede2]
**ADOによるExcelシート連結 [#t47247cf]
-マージ前
[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 Sourc...
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 ...
Next
End Sub
#ref(http://www.hondarer-soft.com/cx/pukiwiki/pukiwiki.ph...
■ 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
//#comment
ページ名: