Загрузка файла .CSV, в табличную часть

[Galandets]

Здравствуйте, помогите пжт с екселем, суть задачи такова, после выгрузки данных формате .csv, необходимо загрузить в ексель, пример выгружаемого файл прилагаю, на второй странице пример листа для загрузки данных из файла.

[mad_lynx]

Sub Выгрузка()
   
    Set ImpRng = ActiveCell
    Open "C:\rep_1_5.txt" For Input As #1
    If Err <> 0 Then
    MsgBox "сообщение о ошибке" & Filename, vbCritical, "ОШИБКА"
    Exit Sub
    End If
    r = 0
    c = 0
    txt = " "
    Application.ScreenUpdating = False
    Do Until EOF(1)
        Line Input #1, Data
        For i = 1 To Len(Data)
            Char = Mid(Data, i, 1)
            If Char = vbTab Then
            ActiveCell.Offset(r, c) = txt
            c = c + 1
            txt = " "
        ElseIf i = Len(Data) Then txt = txt & Char
        ActiveCell.Offset(r, c) = txt
        txt = " "
    ElseIf Char <> Chr(34) Then
        txt = txt & Char
    End If
Next i
c = 0
r = r + 1
Loop
Close #1
end
txt заменить на csv,   также разделители в коде  поменять на такие как в файле csv

[Galandets]

Вот с разделителями не понял, код рабочий, можно на примере

[kuklp]

Вариант:

Код Выделить Развернуть

Sub www()
    Dim wb As Workbook
    ThisWorkbook.Sheets("Пример").UsedRange.Clear
    Set wb = Workbooks.Open("H:\post.csv", local:=True)
    wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Пример").[a3]
    wb.Close 0: Set wb = Nothing
End Sub