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

公開日：2021-08-04　最終更新日：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の読み込み方法（改）

実施したいこと・ファイル名を指定し、形式をカンマ区切り、文字列で開く、その際、改行コードLF、CRLF、CRいずれにも対応、セル内の","や改行についてはカラムで区切らない。掲示板で上記のリクエストを頂きました。ということで、対応ロジックを書いてみました。

CSVの読み込み方法（改の改）

・CSVの形式について・CSV読み込みVBAコード・配列を使ってシートにまとめて出力する場合・QueryTablesを使ったCSV読み込みVBAコード・本サイトにあるCSV関連記事一覧

CSVの読み込み方法（ジャグ配列）

・CSVの読み込み方法（改の改）での予告・CSV読み込みでのジャグ配列の使いどころ・CSV読み込みVBAコード：ジャグ配列バージョン・最後に・本サイトにあるCSV関連記事一覧

CSVの読み込み方法（ジャグ配列）（改）

・CSV読み込みVBAコード：CSVの読み込み方法（ジャグ配列）（改）・CSVの読み込み方法（ジャグ配列）（改）の使用例・本サイトにあるCSV関連記事一覧

CSVの出力（書き出し）方法

・エクセルの機能をそのまま利用します・直接CSVを出力・本サイトにあるCSV関連記事一覧

UTF-8でCSVの読み書き（ADODB.Stream）

・アクティブシートの内容をUTF-8でCSV出力します・UTF-8のCSVを読込、シートに出力します・ADODB.Streamのメソッドとプロパティ・本サイトにあるCSV関連記事一覧

ADOでマスタ付加と集計（SQL）

VBAでADOを使用し、マスターデータよりデータ付加します。ADOではSQL文が必要になりますが、ここではSQL文の詳細については説明を料略します。自身の他シートから、マスタ情報を付加し、さらに、集計をします。

ADOでマスタ更新（SQL）

VBAでADOを使用し、マスターデータを更新します。ADOではSQL文が必要になりますが、ここではSQL文の詳細については説明を料略します。自身のブックの、他シートを更新します。シート「顧客マスタ」の、A列が顧客番号、B列が顧客名で、1行目が見出しになっているものとします。

ADOでCSVの読み込み（SQL）

ADOでテキストデータを集計する
Excelファイルを開かずにシート名を取得

Excelファイルを開くときは、ファイルサイズに比して、とても遅い場合があります、ファイルを開かずに、Excelの情報を取得したいという要望は少なからずあるようです、そこで、処理の基本となるシート名を取得する方法になります。もちろん、開かないと言っても、厳密には必ず開いているわけですが、Excelのブックとして開か…

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.ブック・シートの選択（Select,Activate）｜VBA入門

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

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

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

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