Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Автор Тема: Загрузка файла .CSV, в табличную часть  (Прочитано 1484 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Galandets

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 8

Здравствуйте, помогите пжт с екселем, суть задачи такова, после выгрузки данных формате .csv, необходимо загрузить в ексель, пример выгружаемого файл прилагаю, на второй странице пример листа для загрузки данных из файла.
« Последнее редактирование: 13.06.2012, 20:53:04 от Galandets »
Записан

mad_lynx

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 2

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

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 8

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

kuklp

  • Ветеран
  • *****
  • Уважение: +116/-5
  • Оффлайн Оффлайн
  • Сообщений: 1 012

Вариант:
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
 



Темы без ответов

09.08.2019 14:09 Макрос для заполнения таблиц через форму 4999
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4414
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5973
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3117
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 4917
15.03.2017 15:45 автозамена картинок PowerPoint 3838
11.03.2017 13:43 Изменить нумерацию страниц 3765
07.02.2017 18:43 Блокировка ячеек по наступлению даты 2880
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3379
07.08.2016 17:33 Определить нумерацию как элемент стиля 3594





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.097 секунд. Запросов: 99.