Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
39881 / 76732 ←次へ　｜　前へ→
【41955】Re:データの集計方法について教えて下さい
発言  Ned  - 06/8/26(土) 23:24 -
引用なし
パスワード
   ついでに、忘れ物^ ^
Sub adosample()
　　Dim rs As Object
　　Dim mysql As String
　　Dim i As Long
　　
　　If open_ado_excel(ThisWorkbook.FullName) = 0 Then
　　　　mysql = "Transform iif(isnull(sum(不良本数)),0,sum(不良本数)) " _
　　　　　　　 & "Select [ロット],[品名],sum([不良本数]) " _
　　　　　　　　& "From [Sheet1$] " _
　　　　　　　　 & "Group By [ロット],[品名] " _
　　　　　　　　　& "Pivot 不良内容;"
　　　　If get_exec_sql(mysql, rs) = 0 Then
　　　　　　With Sheets("Sheet2")
　　　　　　　　.UsedRange.ClearContents
　　　　　　　　.Range("A2").CopyFromRecordset rs
　　　　　　　　For i = 0 To rs.fields.Count - 1
　　　　　　　　　　.Cells(1, i + 1).Value = rs.fields(i).Name
　　　　　　　　Next i
　　　　　　End With
　　　　　　Call rs_close(rs)
　　　　Else
　　　　　　MsgBox "rs error"
　　　　End If
　　　　Call close_ado
　　Else
　　　　MsgBox "cn error"
　　End If
End Sub
これは、ありがとうございます。私も勉強させてもらいました。
ただ、自Bookに対して繰り返し処理を行う場合はメモリリークに気をつけなければならないようです。
照会元のデータ量が多い場合は特に。
『BUG: メモリ リークは、ActiveX Data Objects ( ADO )を使用すると...』
ttp://support.microsoft.com/kb/319998/ja
0 hits
▼ 【41860】データの集計方法について教えて下さい K.K 06/8/24(木) 15:42 質問
【41862】Re:データの集計方法について教えて下さい かみちゃん 06/8/24(木) 15:52 発言
【41863】Re:データの集計方法について教えて下さい K.K 06/8/24(木) 16:19 発言
【41864】Re:データの集計方法について教えて下さい K.K 06/8/24(木) 16:30 発言
【41865】Re:データの集計方法について教えて下さい かみちゃん 06/8/24(木) 16:34 回答
【41866】Re:データの集計方法について教えて下さい K.K 06/8/24(木) 17:07 お礼
【41868】Re:データの集計方法について教えて下さい かみちゃん 06/8/24(木) 17:42 発言
【41869】Re:データの集計方法について教えて下さい kazuo 06/8/24(木) 18:18 発言
【41873】Re:データの集計方法について教えて下さい かみちゃん 06/8/24(木) 19:53 回答
【41874】Re:データの集計方法について教えて下さい かみちゃん 06/8/24(木) 19:57 発言
【41871】Re:データの集計方法について教えて下さい Ned 06/8/24(木) 18:58 発言
【41875】Re:データの集計方法について教えて下さい かみちゃん 06/8/24(木) 19:59 発言
【41876】Re:データの集計方法について教えて下さい Ned 06/8/24(木) 20:32 発言
【41889】Re:データの集計方法について教えて下さい kobasan 06/8/24(木) 23:11 発言
【41892】Re:データの集計方法について教えて下さい k.k 06/8/25(金) 10:54 お礼
【41912】Re:データの集計方法について教えて下さい jun 06/8/26(土) 2:25 質問
【41913】Re:データの集計方法について教えて下さい Ned 06/8/26(土) 2:32 発言
【41914】Re:データの集計方法について教えて下さい jun 06/8/26(土) 2:41 発言
【41915】Re:データの集計方法について教えて下さい Ned 06/8/26(土) 4:06 発言
【41923】Re:データの集計方法について教えて下さい jun 06/8/26(土) 9:09 発言
【41924】Re:データの集計方法について教えて下さい かみちゃん 06/8/26(土) 9:22 発言
【41926】Re:データの集計方法について教えて下さい jun 06/8/26(土) 9:45 発言
【41931】Re:データの集計方法について教えて下さい Ned 06/8/26(土) 10:56 発言
【41932】Re:データの集計方法について教えて下さい jun 06/8/26(土) 11:15 お礼
【41952】Re:データの集計方法について教えて下さい Ned 06/8/26(土) 22:32 発言
【41955】Re:データの集計方法について教えて下さい Ned 06/8/26(土) 23:24 発言≪
【41969】Re:データの集計方法について教えて下さい ichinose 06/8/27(日) 11:53 発言
【41970】Re:データの集計方法について教えて下さい jun 06/8/27(日) 12:01 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
39881 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free