ADOでCSVの読み込み（SQL）｜VBAサンプル集
Sub ReadCsv() Dim objCn As New ADODB.Connection Dim objRS As ADODB.Recordset Dim i As Long Dim strSQL As String 'CSVへのコネクション With objCn .Provider = "Microsoft.ACE.OLEDB.12.0" .Properties("Extended Properties") = "Text;HDR=Yes;FMT=Delimited" .Open ThisWorkbook.Path & "\" End With 'SQL文作成 strSQL = "" strSQL = strSQL & " SELECT *" strSQL = strSQL & " FROM" strSQL = strSQL & " [csvtest.csv]" strSQL =
ADOでマスタ付加と集計（SQL）｜VBAサンプル集
シート「集計表」 手作業ですと、結構大変です、どのようにやれば良いでしょうか。 シート「データ」にVLOOKUPでマスタから名称を付加し、 その後に、ピボットを使うとかになりますでしょうか。 または、シート「データ」から、支店番号、顧客番号の重複を除いて、他シートに抽出し、 VLOOKUPとSUMIFS(SUMPRODUCT)とかでしょうか。 マクロでやるにしても、上記操作の再現とかになるでしょう。 以下のプログラムでは、ADOを使い、SQL文でこれを実現しています。 Sub test() Dim objCn As New ADODB.Connection Dim objRS As ADODB.Recordset Dim GYO As Long, COL As Long Dim strSQL As String With objCn .Provider = "Microsoft.Jet.O
CSVの読み込み方法｜VBAサンプル集
公開日：2013年5月以前 最終更新日：2021-10-21 CSVの読み込み方法 エクセルのマクロVBAでのCSVの読込方法としては。 ・テキストファイルとして読み込む ・ワークブックとして読み込む ・クエリーテーブルを使う ・ADOを使う ・Power Queryを使う 大別するとこのようになります。 この記事を書いた当初は、 エクセルのマクロVBAでCSVの読み込みについてネットで検索したところ、これなら、というのがなかなか見つかりませんでした。 そこで、エクセルのマクロVBAでのCSVの読み込みについて、ここにまとめて解説することにしました。 昨今は他システムとの連携も増えてきたこともあるのでしょう、VBAでのCSV読み込みの記事も大分増えてきました。 しかし、それぞれに一長一短もあり、正しく読めていないものも多数存在しています。 まず、ネットですぐ見つかるものから順次解説していき
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
