Excel VBA質問箱 IV

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

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


56907 / 76736 ←次へ | 前へ→

【24570】Re:アクセスデータの集計
回答  小僧  - 05/4/26(火) 19:42 -

引用なし
パスワード
   ▼さつき さん:
こんばんは。

あまり上手なコードではありませんが、
参考になれば幸いです。

Sub 集計()
Dim SQLCode As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim dbName As String
Dim Kiten As Range
Dim Cnt As Long
  
  dbName = "C:週報.mdb"
  Set Kiten = Range("A1")
  SQLCode = "SELECT 累計.店名, 累計.契約者名, " _
      & "Count(累計.品名) AS 品名のカウント " _
      & "FROM 累計 " _
      & "GROUP BY 累計.店名, 累計.契約者名;"
  
  Set cnn = New ADODB.Connection
  cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
             & "Data Source=" & dbName
  cnn.Open
  
  Set rst = New Recordset
  rst.Open SQLCode, cnn
  Range("A1").CopyFromRecordset rst
  rst.Close

  For Cnt = Kiten.Row To Kiten.End(xlDown).Row
    SQLCode = "SELECT 累計.品名 " _
        & "FROM 累計 " _
        & "WHERE 店名 = '" & Cells(Cnt, 1) _
        & "' AND 契約者名 = '" & Cells(Cnt, 2) & "'"
    
    rst.Open SQLCode, cnn
      Do Until rst.EOF
        Cells(Cnt, 4) = Cells(Cnt, 4) & " " & rst![品名]
        rst.MoveNext
      Loop
    rst.Close
  Next
  
  Set rst = Nothing
  cnn.Close
  Set cnn = Nothing
End Sub

0 hits

【24563】アクセスデータの集計 さつき 05/4/26(火) 15:29 質問
【24570】Re:アクセスデータの集計 小僧 05/4/26(火) 19:42 回答
【24582】Re:アクセスデータの集計 さつき 05/4/27(水) 13:55 お礼
【24675】Re:アクセスデータの集計 さつき 05/5/2(月) 15:29 質問
【24676】Re:アクセスデータの集計 m2m10 05/5/2(月) 16:42 発言
【24721】Re:アクセスデータの集計 さつき 05/5/6(金) 10:51 お礼
【24771】Re:アクセスデータの集計 さつき 05/5/9(月) 18:59 質問
【24776】Re:アクセスデータの集計 小僧 05/5/10(火) 9:31 回答
【24780】Re:アクセスデータの集計 さつき 05/5/10(火) 11:19 質問
【24787】Re:アクセスデータの集計 小僧 05/5/10(火) 16:15 回答
【24868】Re:アクセスデータの集計 さつき 05/5/12(木) 9:43 お礼
【24879】Re:アクセスデータの集計 小僧 05/5/12(木) 13:26 回答
【24897】Re:アクセスデータの集計 さつき 05/5/12(木) 20:14 お礼
【24903】Re:アクセスデータの集計 小僧 05/5/13(金) 10:19 回答
【24974】Re:アクセスデータの集計 さつき 05/5/16(月) 15:06 お礼
【24573】Re:アクセスデータの集計 kazu 05/4/26(火) 21:02 発言
【24583】Re:アクセスデータの集計 さつき 05/4/27(水) 13:56 お礼
【24576】Re:アクセスデータの集計 ichinose 05/4/26(火) 23:43 発言
【24584】Re:アクセスデータの集計 さつき 05/4/27(水) 13:58 お礼

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