*Excel 関連情報 [#i886b393] **サンプルコード [#d1615f0f] ***ADO を使ってシートを連結する方法 [#za42638b] -複数シート/複数ファイルをマージするサンプル(merge_sheet.vbs) Option Explicit Dim g_strDIR Dim g_strMergeData ' マージ対象のデータフォルダ Dim g_strNewFile ' マージ先のファイル名 Dim g_strNewSheet ' マージ先のシート名 Main ' メイン プロシージャ Sub Main() g_strDIR = "D:\home\edu\hatena\merge_sheet\" ' このマクロがある場所 g_strMergeData = g_strDIR & ".\data" ' マージ対象のデータフォルダ g_strNewFile = g_strDIR & ".\merge.xls" ' マージ先のファイル名 g_strNewSheet = "[Sheet1$]" ' マージ先のシート名 ' 各シートをマージする MergeSheets End Sub ' 各シートをマージする Sub MergeSheets() Dim cn Dim rs Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & g_strNewFile & ";Extended Properties=Excel 8.0" Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim folder Set folder = fs.GetFolder(g_strMergeData) Dim file Dim sheet Dim sheets() ' ファイルの数だけ処理を行う For Each file In folder.Files GetSheetNames file, sheets ' ファイル内の各シートを新しいシートに挿入する For Each sheet In sheets Dim strSQL strSQL = "INSERT INTO " & g_strNewSheet & " SELECT * FROM " & sheet ' INSERT 文を実行 cn.Execute strSQL Next Next End Sub ' 指定したファイルのシート名(複数シート名)を取得する Function GetSheetNames(ByVal file, ByRef sheets()) Dim app Set app = CreateObject("Excel.Application") app.Workbooks.Open file Dim i Dim nSheets nSheets = app.Worksheets.Count ReDim sheets(nSheets - 1) For i = 0 To nSheets - 1 ' "シート名"+"$" を配列に格納 sheets(i) = "[Excel 8.0;database=" & file & "].[" & app.Worksheets(i + 1).Name & "$]" Next app.Workbooks.Close Set app = Nothing End Function -ダウンロード #ref(merge_sheet.zip); ■ フォルダ構成 D:\HOME\EDU\HATENA\MERGE_SHEET │ macro.vbs … XLSマージスクリプト(VBScriptバージョン) │ macro.xls … XLSマージスクリプト(Excel/VBAバージョン) │ merge.xls … マージ先のファイル │ readme.txt … このファイル │ └─data … マージ対象ファイル aaa.xls bbb.xls ccc.xls -制限事項 --マージ対象の Excel ファイルは、すべてのシートにデータが入っている必要があります。 --空のシートがあるとエラーになります。ご注意下さい。 -はてな --http://www.hatena.ne.jp/1088413798 ---終わってしまったけど。 -Thanks for the good site. [URL=http://tiffanys.schadez.info]tiffanys[/URL] tiffanys [URL=http://venus-swimwear.zeiter.info]venus swimwear[/URL] venus swimwear <a href="http://weightwatchers.schadez.info">weightwatchers</a> weightwatchers <a href="http://annualcreditreport.zeiter.info">annualcreditreport</a> annualcreditreport <a href="http://citimortgage.zeiter.info">citimortgage</a> citimortgage http://orlando-sentinal.schadez.info orlando sentinal http://gieco.zeiter.info gieco http://peapod.zeiter.info peapod http://thrifty-nickel.zeiter.info thrifty nickel http://bamboozle.zeiter.info bamboozle -- [[tiffanys]] &new{2008-11-19 (水) 14:48:58}; -Hello, you did a great work on your site <a href="http://eva-mendez-pussy.bamygy.net/">eva-mendez-pussy site</a> info <a href="http://tube-scat-sex.bamygy.net/">tube-scat-sex info</a> about <a href="http://free-ilovethebeach.bamygy.net/">free-ilovethebeach info</a> info <a href="http://arpasuyu-porno.bamygy.net/">arpasuyu-porno about</a> blog <a href="http://lesbian-shit-tube.bamygy.net/">lesbian-shit-tube info</a> online <a href="http://free-purn-sites.bamygy.net/">free-purn-sites info</a> info <a href="http://free-poren-home.bamygy.net/">free-poren-home info</a> blog <a href="http://preeteens-on-beach.bamygy.net/">preeteens-on-beach blog</a> about <a href="http://welcome-gyno-clinic.bamygy.net/">welcome-gyno-clinic info</a> info <a href="http://tube1-video.bamygy.net/">tube1-video info</a> online -- [[eva-mendez-pussy info]] &new{2008-11-21 (金) 00:47:47}; -User friendly site with quality content. <a href="http://welcome-gyno-clinic.cuqaku.com/">welcome-gyno-clinic info</a> online <a href="http://preeteens-on-beach.cuqaku.com/">preeteens-on-beach</a> info <a href="http://arpasuyu-porno.cuqaku.com/">arpasuyu-porno</a> blog <a href="http://tube1-video.cuqaku.com/">tube1-video</a> site <a href="http://lesbian-shit-tube.cuqaku.com/">lesbian-shit-tube site</a> info <a href="http://free-poren-home.cuqaku.com/">free-poren-home info</a> online <a href="http://tube-scat-sex.cuqaku.com/">tube-scat-sex site</a> about <a href="http://free-ilovethebeach.cuqaku.com/">free-ilovethebeach blog</a> site <a href="http://eva-mendez-pussy.cuqaku.com/">eva-mendez-pussy about</a> blog <a href="http://free-purn-sites.cuqaku.com/">free-purn-sites site</a> info -- [[lesbian-shit-tube site]] &new{2008-11-21 (金) 00:56:09}; -User friendly site with quality content. <a href="http://welcome-gyno-clinic.cuqaku.com/">welcome-gyno-clinic info</a> online <a href="http://preeteens-on-beach.cuqaku.com/">preeteens-on-beach</a> info <a href="http://arpasuyu-porno.cuqaku.com/">arpasuyu-porno</a> blog <a href="http://tube1-video.cuqaku.com/">tube1-video</a> site <a href="http://lesbian-shit-tube.cuqaku.com/">lesbian-shit-tube site</a> info <a href="http://free-poren-home.cuqaku.com/">free-poren-home info</a> online <a href="http://tube-scat-sex.cuqaku.com/">tube-scat-sex site</a> about <a href="http://free-ilovethebeach.cuqaku.com/">free-ilovethebeach blog</a> site <a href="http://eva-mendez-pussy.cuqaku.com/">eva-mendez-pussy about</a> blog <a href="http://free-purn-sites.cuqaku.com/">free-purn-sites site</a> info -- [[lesbian-shit-tube site]] &new{2008-11-21 (金) 00:56:47}; #comment