| 投稿日 | ： 2007/06/27(Wed) 14:30 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: データに二重引用符が含まれているcsvファイルの読み込み方 |
今回のような問題なら下記でもOKかと。
Private Sub Command1_Click()
Dim AddDat As Variant
Dim myString As String
Dim i As Long
myString = """002""" & "," & """佐藤""ボブ""隆 """ & _
"," & "500.00" & "," & """留学生 """
Debug.Print myString
AddDat = Split(myString, ",")
For i = LBound(AddDat) To UBound(AddDat)
If Left$(AddDat(i), 1) = Chr(34) And Right$(AddDat(i), 1) = Chr(34) Then
AddDat(i) = Mid$(AddDat(i), 2, Len(AddDat(i)) - 2)
End If
Debug.Print AddDat(i)
Next i
End S