Excel CSVの読み込みと書き込み

（対象）Excel　VBA

（確認）Excel2003（多分2010でも使える）

今回はCSVの読み込み及び書き込みについてを書いていこうと思います。

データがCSVになっている、データをCSVに出力したいということは

意外に多いです。

それこそ色々やり方がありそうなものですが、

とりあえずここでは標準的なものを挙げてみます。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

（前提）

　１．DontLookやOKLookなどを使用→詳しくはこちら

（プログラム　読み込み）

　　'==========================================================

　　' 読み込んだCSVをシートに展開

　　'==========================================================

　　Sub ReadCSV()

　　　　Dim FileNo　　 As Integer

　　　　Dim MyStr　　  As String

　　　　Dim StrBox()　 As String

　　　　Dim WH1　　　  As Worksheet

　　　　Dim I As Long, J As Integer, K As Integer

　　　　DontLook

　　　　'■読込先を初期化

　　　　Set WH1 = Worksheets("作業用")

　　　　WH1.Cells.Delete

　　　　'■読み込み→写し

　　　　FileNo = FreeFile　　’(※1←↓)

　　　　Open ThisWorkbook.Path & "\テスト用データ.csv" For Input As #FileNo

　　　　MyStr = "": I = 1

　　　　Do Until EOF(FileNo)　'(※2)

　　　　　　'△一行分読み込み

　　　　　　Line Input #FileNo, MyStr　　'(※3)

　　　　　　'△区切り文字（この場合は「,」）を探す（※4）

　　　　　　StrBox = Split(MyStr, ",")

　　　　　　For J = 0 to Ubound(StrBox)

　　　　　　  WH1.Cells(I, J + 1).Value = StrBox(J)

　　　　　　Next

　　　　　　I = I + 1

　　　　Loop

　　　　'■閉じる

　　　　Close #FileNo

　　　　OKLook

　　End Sub

（解説）

　※1

　　＝指定したCSVを開く

　　★「変数 = FreeFile」

　　　　＝　変数に空いているファイル番号（FreeFile）を格納

　　★「Open　ファイル名　For 処理モード As #ファイル番号」

　　　　＝指定したファイルを指定したファイル番号で、指定した

　　　　　処理モードで開く

　　　　　※処理モード

　　　　　　・・・Input　：　入力モード（読み込み）

　　　　　　・・・Output　：　出力モード（書き込み）

　　　　　　・・・Append　：　追加モード（書き込み）

　　　　　　・・・Random　：　ランダムアクセスモード（読み込み/書き込み）

　　　　　　・・・Binary　：　バイナリモード（読み込み/書き込み）

　※2

　　＝「Do Until EOF(ファイル番号)」

　　　　指定したファイルを読み終わるまで

　※3

　　＝「Line Input #ファイル番号, 変数」

　　　　ファイルの内容を1行読み込み、その内容を変数に格納する

　※4

　　＝区切り文字で値を区切り、配列変数に格納

　　　→データをシート上に展開

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

（プログラム　書き込み）

　　'=========================================================

　　' CSVに出力する

　　'=========================================================

　　Sub OutPutCSV()

　　　　Dim WH1     As Worksheet

　　　　Dim I As Long, J As Long, K As Integer

　　　　'■読込先を初期化

　　　　Set WH1 = Worksheets("作業用")

　　　　'■CSV作成

　　　　WH1.Copy

　　　　ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\aaa", _

　　　　　　　　　　　　　　　FileFormat:=xlCSV

　　　　ActiveWindow.Close False

　　　　MsgBox "CSVファイルが作成されました" & vbCrLf, vbInformation, "終了報告"

　　End Sub

（解説）

　★CSVの作成

　　１．CSVにしたいシートをコピー

　　２．名前をつけて形式を選択して保存

　　　　「ブック.SaveAs FileName:=パス\ファイル名, FileFormat:=xlCSV」

　　　　※FileFormatで指定出来るファイル　：　参照URL（http://www.officepro.jp/excelvba/book_new/index9.html）

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

以上がCSVの読み込みと書き込みについてです。

もっとスマートなやり方やそれぞれの細かい内容については

グーグル先生にお尋ねくださいませ。

では、今回はこの辺りで。