Memo/2004-06-28 のバックアップ差分(No.5)

追加された行はこの色です。
削除された行はこの色です。
*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};
-User friendly site with quality content.   <a href="http://porngonzo-movies.giqesu.net/">porngonzo-movies about</a> online    <a href="http://sex-met-katara.giqesu.net/">sex-met-katara info</a> site    <a href="http://only-lesbions.giqesu.net/">only-lesbions site</a> blog    <a href="http://cekc-photo.giqesu.net/">cekc-photo about</a> info    <a href="http://sixysamira-de.giqesu.net/">sixysamira-de info</a> blog    <a href="http://nextdoorbuddy.giqesu.net/">nextdoorbuddy blog</a> about     <a href="http://tube-live-mature.giqesu.net/">tube-live-mature about</a> site    <a href="http://bbw-tales.giqesu.net/">bbw-tales blog</a> online    <a href="http://www-seks-tv.giqesu.net/">www-seks-tv</a> about     <a href="http://orgyental-tube.giqesu.net/">orgyental-tube</a> site     -- [[bbw-tales site]] &new{2008-11-21 (金) 05:25:50};
-User friendly site with quality content.   <a href="http://voyeurmax-com.hubasi.net/">voyeurmax-com blog</a> about     <a href="http://hosted-by-ync-com.hubasi.net/">hosted-by-ync-com site</a> info    <a href="http://baylee-nude.hubasi.net/">baylee-nude info</a> site    <a href="http://www-blackbooty-com.hubasi.net/">www-blackbooty-com site</a> site    <a href="http://mom-and-boy-tube.hubasi.net/">mom-and-boy-tube</a> online    <a href="http://elitexxxpass-com.hubasi.net/">elitexxxpass-com blog</a> online    <a href="http://www-vedeosz-com.hubasi.net/">www-vedeosz-com blog</a> online    <a href="http://sexe-grany.hubasi.net/">sexe-grany site</a> blog    <a href="http://zooo-porno-com.hubasi.net/">zooo-porno-com blog</a> blog    <a href="http://heeljob-transsexual.hubasi.net/">heeljob-transsexual site</a> about      -- [[sexe-grany blog]] &new{2008-11-21 (金) 09:21:07};
-Thank you for the good work.   <a href="http://www-bangross-com.hyjima.net/">www-bangross-com site</a> online    <a href="http://www-frenchgirls.hyjima.net/">www-frenchgirls blog</a> online    <a href="http://niurka-nude-tube.hyjima.net/">niurka-nude-tube site</a> about     <a href="http://rika-nishimura-nude.hyjima.net/">rika-nishimura-nude site</a> site    <a href="http://shemal.hyjima.net/">shemal blog</a> site    <a href="http://stilproject.hyjima.net/">stilproject about</a> online    <a href="http://tram-pararam.hyjima.net/">tram-pararam info</a> blog    <a href="http://shota-con-porno.hyjima.net/">shota-con-porno site</a> about     <a href="http://wwwcam-com.hyjima.net/">wwwcam-com info</a> info    <a href="http://qmov-free-passwords.hyjima.net/">qmov-free-passwords</a> about      -- [[tram-pararam info]] &new{2008-11-21 (金) 09:27:27};

#comment