ADOでテキストデータを集計する

最終更新日：2021-08-04

ADOでテキストデータを集計する

テキストデータの文字を頻出順に求めるコードについて、ツイッターでかきこみがありました。
#助けてVBA　のタグもついていたので、これに回答した時のコードをここに残します。
テキストファイルの読み込みで、ADOを使いSQLで集計しています。

#助けてVBA の元ツイート

https://twitter.com/toshi81350036/status/1422352656824115218

解答したツイート

https://twitter.com/yamaoka_ss/status/1422457520078024704

https://twitter.com/yamaoka_ss/status/1422459100277874692

ADOとSQLの解説

ADOについて

ADO(ActiveX Data Objects)の使い方の要点

・データベースの種類・SQL（SQL:Structured Query Language）・ADOを使う準備・ADOでのDB接続方法・ADODB.Recordsetの取得方法・ADODBのレコードセットの扱い方・ADODBのトランザクション処理・ADODB.Commandの使い方・VBA100本ノックでの実践例・最後に注意点等

ADOでCSV読み込み（SQL）

・CSVテストデータ・ADOでCSV読込のVBA ・ADO使用時の注意点・ADOレコードセットをCSV出力・ADOでTSVの読み込み・ADOでCSVの読み込みについて・本サイトにあるCSV関連記事一覧

SQLについて

VBAでのSQLの基礎（SQL:Structured Query Language）

・SQL文・SELECT文・SQLの学習について・実践例

SQL入門：VBAでデータベースを使う

・DBとはSQLとは・SQL入門の目次・SQLを使った既存サンプル

VBAコード


  
    
      Sub sample()

      　　Dim objCn As New ADODB.Connection

      　　Dim objRS As New ADODB.Recordset

      　　Dim strSQL As String


      　　With objCn

      　　　　.Provider = "Microsoft.ACE.OLEDB.12.0"

      　　　　.Properties("Extended Properties") = "Text;HDR=No"

      　　　　.Open ThisWorkbook.Path & "\"

      　　End With

      　　

      　　strSQL = "SELECT F1,COUNT(F1) FROM [aaa.txt] GROUP BY F1 ORDER BY
      COUNT(F1) DESC"

      　　Set objRS = objCn.Execute(strSQL)

      　

      　　With ActiveSheet

      　　　　.UsedRange.ClearContents

      　　　　.Range("A1").CopyFromRecordset objRS

      　　End With

      　　

      　　objCn.Close

      　　Set objRS = Nothing

      　　Set objCn = Nothing

      End Sub

上記では、VBEで参照設定しています。
Microsoft ActiveX Data Objects 2.X Library
または
Microsoft ActiveX Data Objects 6.1 Library

解説

サンプルのテキストデータにはヘッダーがないので、
HDR=No
としています。

SQLは、
SELECT F1,COUNT(F1) FROM [aaa.txt] GROUP BY F1 ORDER BY COUNT(F1) DESC
ヘッダーがないのでフィールド名はF1,F2,F3,…となります。

1列目でグループ化して、COUNT(F1)で件数を求めています。
件数の多い順にするので、
ORDER BY COUNT(F1) DESC
としています。

同じテーマ「マクロVBAサンプル集」の記事

CSVの読み込み方法（改）
CSVの読み込み方法（改の改）
CSVの読み込み方法（ジャグ配列）
CSVの読み込み方法（ジャグ配列）（改）
CSVの出力（書き出し）方法
 UTF-8でCSVの読み書き（ADODB.Stream）
ADOでマスタ付加と集計（SQL）
ADOでマスタ更新（SQL）
ADOでCSVの読み込み（SQL）
ADOでテキストデータを集計する
Excelファイルを開かずにシート名を取得

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.マクロとは？VBAとは？VBAでできること｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
10.条件分岐（IF）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
ADOでテキストデータを集計する

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBAサンプル集
ADOでテキストデータを集計する