Excel VBAで改行コードがLFでセル内に改行が含まれるCSVファイルをインポートしたい

##やりたいこと
以下のCSVファイルをVBAでExcelにインポートしたい。

文字コードはShift_JIS
改行コードはLF
データ内にLF改行が含まれる
「"」で囲まれているデータと囲まれていないデータがある
「案内日」のデータを「yyyy年mm月dd日」形式から「yyyy/mm/dd」形式に変更したい

##インポートしたいCSVサンプル

CSV
1ID,姓,名,"登録日時",連絡事項,案内日,種別
21111,姓テスト,名テスト,"2021年04月15日 17時16分58秒","テストです。
3テストです。
4テストです。",2021年04月20日,オンライン
52222,せいテスト,めいテスト,"2021年04月16日 19時52分05秒","てすと。
6てすと。",2021年04月23日,オンライン

##試したコード

VBA
1Sub Import()
2    Dim buf(6) As String
3    Dim i As Long
4
5    Open ActiveWorkbook.Path & "\download_lf.csv" For Input As #1
6        Do Until EOF(1)
7            Input #1, buf(0), buf(1), buf(2), buf(3), buf(4), buf(5), buf(6)
8            i = i + 1
9            Cells(i, 1).Resize(1, 7).Value = buf
10        Loop
11    Close #1
12End Sub

##結果

##参考サイト
https://www.moug.net/tech/exvba/0060089.html

CSV の最後の項目後のLF改行で改行がされないようです。
どのようにしたら解決するのか教えていただけますと幸いです。

行動規範の内容に同意します

回答2件

ベストアンサー

かなり無理やり作ってみた。

VBA
1Sub Import()
2    
3    Open ActiveWorkbook.Path & "\download_lf.csv" For Binary As #1
4    ReDim buf(1 To LOF(1)) As Byte
5    Get #1, , buf
6    Close #1
7    
8    Dim wLine, wCell, wBuf
9    Dim dic As Scripting.Dictionary
10    Set dic = CreateObject("Scripting.Dictionary")
11    
12    For Each wLine In Split(StrConv(buf, vbUnicode), vbLf)
13        For Each wCell In Split(wLine, ",")
14            If Left(wCell, 1) = """" Then
15                wBuf = wCell
16            ElseIf wBuf <> "" Then
17                wBuf = wBuf & vbLf & wCell
18            End If
19            
20            If wBuf = "" Then
21                dic.Add dic.Count, wCell
22                
23            ElseIf Right(wBuf, 1) = """" Then
24                dic.Add dic.Count, Mid(wBuf, 2, Len(wBuf) - 2)
25                wBuf = ""
26            End If
27        Next
28    Next
29    
30    Dim i As Long, rng As Range
31    i = 0
32    For Each rng In ActiveSheet.Cells.Resize(dic.Count / 7, 7)
33        rng.Value = dic(i)
34        i = i + 1
35    Next
36
37End Sub
38
39
40

投稿2021/04/25 04:26

jinoji

総合スコア4592

singlestroke

2021/04/26 23:03

ありがとうございました。改変すればやりたいことができそうです。

singlestroke

2021/04/28 00:05

エラー 5「プロシージャの呼び出し、または引数が不正です。」と表示されてしまうのですが、どんな原因が考えられるのでしょうか。

jinoji

2021/04/28 00:43

そのエラーはどの行で発生しましたか？

singlestroke

2021/04/28 23:57

エラーの行は分かりませんが、CSVファイルに以下のような行があると出るようです。「"」で囲まれている、LF改行を含むデータの最後に、さらにLF改行がある場合に上記エラーが出るようです。 1111,姓テスト,名テスト,"2021年04月15日 17時16分58秒","テストです。テストです。テストです。 ",2021年04月20日,オンライン

jinoji

2021/04/29 04:33

ああ、そのケースは考慮できてませんね。いまのままだと、処理中に、wBuf に " がひとつだけ入る場合があり、 Mid(wBuf, 2, Len(wBuf) - 2) のところで文字列の長さにマイナスを指定してしまうというのがエラーの直接の原因な気がします。ですので、If文が並ぶところを、もう一度考え直す必要がありますね。

singlestroke

2021/04/29 06:48

If の部分、こんな感じでいけた気がします。 If Left(wCell, 1) = """" Then If Left(wCell, 2) = """" Then wBuf = wBuf & vbLf & wCell Else wBuf = wCell End If

行動規範の内容に同意します