Sub CsvImport001Management02()'インポート CSV(UTF-8)'項目にカンマ・改行が含まれているデータ Dim i As Integer Dim ado_strem As New ADODB.Stream Dim strLine As String, strLine2 As String Dim tmp As Variant, tmp2 As Variant Dim canma As String Dim colName(20) As String 'File変数 Dim filePath As String filePath = "C:\Users\shiba…