Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63218 / 76738

←次へ　｜　前へ→


	【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"、出力先が２番目のシートとしています。
EXCELのVersion等によっては動きませんが、接続情報を変えれば動作すると
思います。

参考まで＾＾

0 hits

▼

【18110】冗長なコードの簡略化について カド 04/9/15(水) 19:22