CSVの読み込み方法
エクセルのマクロVBAでのCSVの読込方法としては。
・テキストファイルとして読み込む
・ワークブックとして読み込む
・クエリーテーブルを使う
・ADOを使う
・Power Queryを使う
大別するとこのようになります。
エクセルのマクロVBAでCSVの読み込みについてネットで検索したところ、これなら、というのがなかなか見つかりませんでした。
そこで、エクセルのマクロVBAでのCSVの読み込みについて、ここにまとめて解説することにしました。
しかし、それぞれに一長一短もあり、正しく読めていないものも多数存在しています。
まず、ネットですぐ見つかるものから順次解説していきます。
もっとも簡単かつ良くあるCSV読み込みVBAコード
Sub CSV入力1()
Dim varFileName As Variant
Dim intFree As Integer
Dim strRec As String
Dim strSplit() As String
Dim i As Long, j As Long
varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
Title:="CSVファイルの選択")
If varFileName = False Then
Exit Sub
End If
intFree = FreeFile '空番号を取得
Open varFileName For Input As #intFree 'CSVファィルをオープン
i = 0
Do Until EOF(intFree)
Line Input #intFree, strRec '1行読み込み
i = i + 1
strSplit = Split(strRec, ",") 'カンマ区切りで配列へ
For j = 0 To UBound(strSplit)
Cells(i, j + 1) = strSplit(j)
Next
'配列をそのまま入れる方法も、ただし全て文字列として入力される
'Range(Cells(i, 1), Cells(i, UBound(strSplit) + 1)) = strSplit
Loop
Close #intFree
End Sub
・ダイアログを表示する
・CSVファイルをオープンする
・1行ずつ読み込む
・「,」で区切って配列にする
・セルに入れる
このような流れとなっています。
セルに入れる際に、配列をまとめて入れた場合は、全て文字列として入ります。
どちらが良いかは、ケースバイケースでしょう。
また、
「Line Input」
ではなく、
「Input」
で、列数分の変数を指定しているものも見かけます。
列数が決まっている場合は、その方法も有効です。
しかし、いずれにしても不都合があります。
データの入っているエクセルをCSV出力して、
上記プログラムで取り込みしてみて下さい。
どうでしょう、同じ表が再現されたでしょうか。
もし何も問題がなかったとしたら、かなり幸運です。
「,」も「"」も、データ中に存在していなかったということです。
「,」「"」に対応したCSV読み込みVBAコード
では、これらに対処したプログラムが以下になります。
Sub CSV入力2()
Dim varFileName As Variant
Dim intFree As Integer
Dim strRec As String
Dim strSplit() As String
Dim i As Long, j As Long, k As Long
Dim lngQuote As Long
Dim strCell As String
varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
Title:="CSVファイルの選択")
If varFileName = False Then
Exit Sub
End If
intFree = FreeFile '空番号を取得
Open varFileName For Input As #intFree 'CSVファィルをオープン
i = 0
Do Until EOF(intFree)
Line Input #intFree, strRec '1行読み込み
i = i + 1
j = 0
lngQuote = 0
strCell = ""
For k = 1 To Len(strRec)
Select Case Mid(strRec, k, 1)
Case "," '「"」が偶数なら区切り、奇数ならただの文字
If lngQuote Mod 2 = 0 Then
Call PutCell(i, j, strCell, lngQuote)
Else
strCell = strCell & Mid(strRec, k, 1)
End If
Case """" '「"」のカウントをとる
lngQuote = lngQuote + 1
strCell = strCell & Mid(strRec, k, 1)
Case Else
strCell = strCell & Mid(strRec, k, 1)
End Select
Next
'最終列の処理
Call PutCell(i, j, strCell, lngQuote)
Loop
Close #intFree
End Sub
Sub PutCell(ByRef i As Long, ByRef j As Long, ByRef strCell As String, ByRef lngQuote As Long)
j = j + 1
'「""」を「"」で置換
strCell = Replace(strCell, """""", """")
'前後の「"」を削除
If strCell = """" Then
strCell = ""
ElseIf Left(strCell, 1) = """" And Right(strCell, 1) = """" Then
strCell = Mid(strCell, 2, Len(strCell) - 2)
End If
Cells(i, j) = strCell
strCell = ""
lngQuote = 0
End Sub
かなり、長いですね。
これでもかなり整理して短くしています。
これなら、ほぼCSVを正確に取り込めるはずです。
詳しい説明は省略します。
このプログラムを見て、理解できない場合は、使用しないほうがよいでしょう。
きわめて簡単で、間違いがない方法です。
CSVをExcelブックとして開くVBA
ほとんどの方のPCでは、CSVをダブルクリックすれば、エクセルが起動されるはずです。
CSVはエクセルでそのまま開くことが可能です。
Sub CSV入力3()
Dim varFileName As Variant
varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
Title:="CSVファイルの選択")
If varFileName = False Then
Exit Sub
End If
Workbooks.Open Filename:=varFileName
ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Cells
ActiveWorkbook.Close SaveChanges:=False
End Sub
CSVをブックとして読み込み、シート全体をコピーしています。
これなら、簡単ですし、間違いなく正しく読み込めます。
入門としては、これが最もお勧めです。
この方法で一番問題となるのは、数値の頭0が消えてしまう事です。
CSVの中が、
001
だとしても、セルには
1
として入力されてしまう事です。
逆の見方をすれば、数値の頭0が消えて問題ないのなら、これで十分だという事です。
そして多くの場合、数値の頭0が消えることに問題はないでしょう。
しかし、このような場合は、IDコードの桁数は一定であることが多いので、
後からVBAまたは関数で桁数をそろえるように頭に0を埋めてやれば済むことになります。
クエリーテーブルを使ったCSV読み込みVBAコード
Sub CSV入力4()
Dim varFileName As Variant
varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
Title:="CSVファイルの選択")
If varFileName = False Then
Exit Sub
End If
With ActiveSheet.QueryTables.Add(Connection:="text;" & varFileName, Destination:=Range("A11"))
' .Name = "temp"
' .FieldNames = True
' .RowNumbers = False
' .FillAdjacentFormulas = False
' .PreserveFormatting = True
' .RefreshOnFileOpen = False
' .RefreshStyle = xlInsertDeleteCells
' .SavePassword = False
' .SaveData = True
' .AdjustColumnWidth = True
' .RefreshPeriod = 0
' .TextFilePromptOnRefresh = False
.TextFilePlatform = 932 'Shift_Jis
' .TextFileStartRow = 1
' .TextFileParseType = xlDelimited
' .TextFileTextQualifier = xlTextQualifierDoubleQuote
' .TextFileConsecutiveDelimiter = False
' .TextFileTabDelimiter = False
' .TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
' .TextFileSpaceDelimiter = False
' .TextFileColumnDataTypes = Array(1, 1, 1)
' .TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub
コメント行が大量にありますが、これは、CSVを読み込むだけなら、
指定の必要が無いと思われるプロパティです。
出力先のシートにデータがある場合は、
そのデータは消されずに、セル位置が移動されますので、注意してください。
このように、932の代わりに65001を指定してください。
その他のCSV読み込み方法
ただ、エクセルは標準でCSVを扱えますので、
ブックとして、読み込んでから処理する方法が、最もお勧めです。
何か特殊な事情があり、この方法が使えない場合のみ他の方法を考えましょう。
ただ、読み込むCSVに、「,」も「"」がないのなら、
最初のプログラムは融通が利いて、扱いやすいと思います。
以下のページでは、
上記の「CSV入力2」のVBAサンプルをさらに改造したバージョンや他の方法も紹介しています。
・改行がLF(10)にも対応したバージョン
・文字コードUTF-8にも対応したバージョン
・ADOを使用した方法
これらに対応したCSV読み込み方法について参考にしてください。
同じテーマ「マクロVBAサンプル集」の記事
VBAでのCSVの扱い方まとめ
CSVの読み込み方法
CSVの読み込み方法(改)
CSVの読み込み方法(改の改)
CSVの読み込み方法(ジャグ配列)
CSVの読み込み方法(ジャグ配列)(改)
CSVの出力(書き出し)方法
UTF-8でCSVの読み書き(ADODB.Stream)
ADOでマスタ付加と集計(SQL)
ADOでマスタ更新(SQL)
ADOでCSVの読み込み(SQL)
新着記事NEW ・・・新着記事一覧を見る
新旧マスタの差異比較|Power Query(M言語)入門(2023-02-28)
有効な最新単価の取得|Power Query(M言語)入門(2023-02-26)
有効な最新単価の取得|Power Query(M言語)入門(2023-02-21)
グルーブ内の最小・最大|Power Query(M言語)入門(2023-02-17)
2つのテーブルのマージ|Power Query(M言語)入門(2023-02-15)
「売上」が数値の行のみ取り込む|Power Query(M言語)入門(2023-02-13)
A列のヘッダー名を変更する|Power Query(M言語)入門(2023-02-11)
CSVのA列が日付の行だけを取り込む|Power Query(M言語)入門(2023-02-10)
列数不定のCSVの取り込み|Power Query(M言語)入門(2023-02-09)
別ブックの最終シートの取り込み|Power Query(M言語)入門(2023-02-08)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.ひらがな⇔カタカナの変換|エクセル基本操作
6.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
7.マクロって何?VBAって何?|VBA入門
8.Excelショートカットキー一覧|Excelリファレンス
9.並べ替え(Sort)|VBA入門
10.エクセルVBAでのシート指定方法|VBA技術解説
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- CSVの読み込み方法
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。