Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

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

Автор Galandets, 13.06.2012, 20:50

« назад - далее »

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

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771