tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル ADOでのCSVの読込
投稿日: 2010/10/28(Thu) 15:46
投稿者IMA
あるCSVファイルをADOにて開こうとしています

    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & sPath & ";" & _
                    "Extended Properties='Text;HDR=YES;FMT=Delimited'"
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM [" & sFileName & "];", cn
    Set DataGrid1.DataSource = rs

ここで問題なのは、下記のようなデータがあると
PA9632が空白となってしまいます。

123456,伊藤博文
234567,吉田茂
345678,大隈重信
PA9632,Henry.R

項目全てを引用符で囲むとOKなのですが、上記のような単なるカンマ区切りでも
接続文字列指定などを変えることで、そのまま正しく読み込みたいのですが・・

追加コメント:
 有るDBが吐き出したCSVファイルは全ての項目が引用符で囲んでありますが、
 データを修正するためにEXCELに読込み列の入れ替えや等を行っています。

 これをEXCELでCSV出力すると引用符が無い状態で出力されます。
 → 仕様ですね。

 EXCELのマクロや、エディタで引用符で囲む事は可能ですが、少し面倒なので・・・

 ADOの仕様でNGで有れば、CSVファイルをVB内で引用符付加すれば良いだけですが・・・

よろしくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。