Excel 関連情報

サンプルコード

指定データを抽出する方法

  • サンプルコード
    ' MatchData.vbs
    ' Usage : CScript MatchData.vbs
    Const strFileName1 = "D:\home\edu\hatena\20040915\db1.xls" ' table1 として利用
    Const strFileName2 = "D:\home\edu\hatena\20040915\db2.xls" ' table2 として利用
    Const strFileName3 = "D:\home\edu\hatena\20040915\db3.xls" ' table3 として利用
    
    MatchData
    
    Sub MatchData
        Dim cn
        Set cn = CreateObject("ADODB.Connection")
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFileName3 & ";Extended Properties=Excel 8.0"
        Dim strSQL
        strSQL = "INSERT INTO [Sheet1$]" & _
          " SELECT t2.c1, t2.c2, t2.c3, t2.c4, t2.c5" & _
          " FROM [Excel 8.0;database=" & strFileName1 & "].[Sheet1$] AS t1" & _
          " INNER JOIN [Excel 8.0;database=" & strFileName2 & "].[Sheet1$] AS t2" & _
          " ON (t1.c3 = t2.c3) AND (t1.c2 = t2.c2) AND (t1.c1 = t2.c1)"
        cn.Execute strSQL
    End Sub
  • 解説
    [table1]
    c1  c2  c3  c4  c5
    あ  い  う  ※  △
    か  き  く  ○  ◆
    さ  し  す  ×  ◇
    
    [table2]
    c1  c2  c3  c4  c5
    あ  い  う  ×  ○
    か  き  く  を  ■
    さ  し  す  ヾ  〒
    た  ち  つ  ‖  〆
    な  に  ぬ  仝  ±
    
    [table3]
    c1  c2  c3  c4  c5
    
    [結果]
    c1  c2  c3  c4  c5
    あ  い  う  ×  ○
    か  き  く  を  ■
    さ  し  す  ヾ  〒
    
    INSERT INTO
      table3
    SELECT 
      table2.c1, 
      table2.c2, 
      table2.c3, 
      table2.c4, 
      table2.c5
    FROM 
      table1
    INNER JOIN
      table2 
    ON
        (table1.c3 = table2.c3) 
    AND (table1.c2 = table2.c2) 
    AND (table1.c1 = table2.c1);
table1_20040915.jpg
table2_20040915.jpg
table3_20040915.jpg
query1_20040915.jpg
query1_sql_20040915.jpg
table3_result_20040915.jpg

添付ファイル: filetable3_result_20040915.jpg 356件 [詳細] filetable3_20040915.jpg 364件 [詳細] filetable2_20040915.jpg 365件 [詳細] filetable1_20040915.jpg 358件 [詳細] filequery1_sql_20040915.jpg 394件 [詳細] filequery1_20040915.jpg 378件 [詳細] file20040915.zip 422件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2021-07-13 (火) 21:56:15 (102d)