|
こんにちは。かみちゃん です。
横から失礼します。
>イメージがわかないので、お手数ですがサンプルを
>記述してもらえないでしょうか?
私も似たことをしているのですが、以下のような感じでいかがでしょうか?
Sub Macro1()
Dim strFileName As String
Dim strTextLine As String
Dim vntData As Variant
Dim lngRow As Long
strFileName = Application.GetOpenFilename("CSVファイル,*.csv")
Open strFileName For Input As #1
Do While Not EOF(1)
Line Input #1, strTextLine
lngRow = lngRow + 1
vntData = Split(Replace(Mid(strTextLine, 3), ",=""", ","""), """,""")
Cells(lngRow, 1).Resize(, UBound(vntData)).Value = vntData
Erase vntData
Loop
Close #1
MsgBox "終了しました"
End Sub
|
|