Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


63213 / 76733 ←次へ | 前へ→

【18119】Re:冗長なコードの簡略化について
回答  禰宜  - 04/9/16(木) 1:56 -

引用なし
パスワード
   失礼いたします。

ADOを使ってこんなコードでも可能ですね^^

Sub ADO_TEST()
    
    Set CN = CreateObject("ADODB.Connection")
    
    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & ThisWorkbook.FullName & ";" & _
        "Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"""

    CN.Open
    
    Set RS = CreateObject("ADODB.Recordset")
    
    Set RS = CN.Execute _
    ("SELECT F1,F2,SUM(F3) FROM [Sheet1$A1:C65536] GROUP BY F1,F2")
    
    Sheets(2).Range("A1").CopyFromRecordset RS
    
    RS.Close
    CN.Close
    Set RS = Nothing
    Set CN = Nothing

End Sub

データのあるシート名が"Sheet1"、出力先が2番目のシートとしています。
EXCELのVersion等によっては動きませんが、接続情報を変えれば動作すると
思います。

参考まで^^
0 hits

【18110】冗長なコードの簡略化について カド 04/9/15(水) 19:22 質問
【18111】Re:冗長なコードの簡略化について IROC 04/9/15(水) 19:56 回答
【18113】Re:冗長なコードの簡略化について カド 04/9/15(水) 21:01 お礼
【18112】Re:冗長なコードの簡略化について Hirofumi 04/9/15(水) 20:37 回答
【18114】Re:冗長なコードの簡略化について カド 04/9/15(水) 21:10 質問
【18115】Re:冗長なコードの簡略化について Hirofumi 04/9/15(水) 22:20 回答
【18116】Re:冗長なコードの簡略化について カド 04/9/15(水) 22:43 質問
【18117】Re:冗長なコードの簡略化について Kein 04/9/16(木) 1:30 回答
【18118】Re:冗長なコードの簡略化について Kein 04/9/16(木) 1:32 発言
【18149】Re:冗長なコードの簡略化について カド 04/9/16(木) 15:09 お礼
【18119】Re:冗長なコードの簡略化について 禰宜 04/9/16(木) 1:56 回答
【18150】Re:冗長なコードの簡略化について カド 04/9/16(木) 15:11 お礼
【18153】Re:冗長なコードの簡略化について 禰宜 04/9/16(木) 16:03 発言

63213 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free