投稿日 | : 2007/03/07(Wed) 13:08 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re^9: カンマ区切りのCSVファイルの読み込み |
> 「コンパイルエラー 変数が必要です。」
おっと失礼。こうかな。
Dim Cols() As String
Dim rawLineText As String
rawLineText = """2ABC,DEF,GHI"",""JKL,MNO"",""3ABC,DEG,GHI"""
Cols = Split(rawLineText, """,""")
If LBound(Cols) <= UBound(Cols) Then
Cols(LBound(Cols)) = Mid(Cols(LBound(Cols)), 2)
If Right(Cols(UBound(Cols)), 1) = """" Then
Cols(UBound(Cols)) = Left(Cols(UBound(Cols)), Len(Cols(UBound(Cols))) - 1)
End If
End If