CSVファイルを読み込む

CSVファイルを読み込む場合は、既存ブックを開く場合と同様に、Workbooksオブジェクト
のOpenメソッドを使用する(厳密さに欠けるが...) :

Set Workbook変数 = Workbooksオブジェクト.Open(Filename, _ 
                                                                               [Format], _
                                                                               [Delimiter])

ファイルの区切り文字を指定するFormat引数に設定する値は下記のいずれか :

1  :  タブ
2  :  カンマ(,)
3  :  スペース
4  :  セミコロン(;)
5  :  なし(なし、って何?)
6  :  ユーザーが独自の区切り文字を指定する場合

Format引数に6を指定した場合に限り、Delimiter引数を設定する必要がある。

カンマ区切りCSVを読み込むサンプルコードを以下に記す :

Sub SampleOpenCSV1()
     Dim bk As Workbook
     Set bk = Application.Workbooks.Open(Filename:="D:\Sample1.csv", _
                                                             Format:=2)
End Sub

文字列"++"で区切られたCSVを読み込むサンプルコードは以下の通り :

Sub SampleOpenCSV2()
     Dim bk As Workbook
     Set bk = Application.Workbooks.Open(Filename:="D:\Sample2.csv", _
                                                             Format:=6, _
                                                             Delimiter="++")
End Sub