Перенос данных в книгу .xlsx из других книг .xlsx и .csv

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Перенос данных в книгу .xlsx из других книг .xlsx и .csv (Макросы/Sub)

AVI

Дата: Среда, 31.10.2018, 06:03 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Добрый день!
Помогите, пожалуйста, сделать следующую вещь
В одной папке с данным файлом есть две книги. Первый файл в формате csv и второй в формате xlsx, количество строк к которых может меняться.
Возможно ли сделать так, что бы информация из указанных файлов автоматом загружалась в данных файл таким образом: 8 первых столбцов (будет минимум 700 000 строк) с листа2 из файла 1.csv загружались в А1 на лист1 данной книги, а в А1 на лист2 - 22 первых столбца с листа4 из файла 1.xlsx (около 500 строк).

Третий файл не дает прикрепить.

К сообщению приложен файл: up.xlsm (14.1 Kb) · 0269832.csv (0.9 Kb)

Ответить

sboy

Дата: Среда, 31.10.2018, 09:05 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Загружайте с помощью Power Query (запрос из файла), там же и отрегулируйте нужные столбцы для выгрузки.

Яндекс: 410016850021169

Ответить

AVI

Дата: Среда, 31.10.2018, 15:38 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

sboy, это часть кода по обработке таблиц. Нужно что бы само подругжалось, но спасибо за совет.

Ответить

AVI

Дата: Среда, 31.10.2018, 16:34 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Остался только один вопрос.
Сейчас открываются файлы из конкретной папки. А как указать макросу, что бы он эти файлы искал именно в той папке где лежит файл с макросом?

[vba]

Код

Sub Перенос()

    Workbooks.Open Filename:="C:\Users\Администратор\Desktop\Новая папка\1.csv"
    Columns("A:H").Copy Workbooks("up.xlsm").Worksheets("Лист1").Range("A1")
    Workbooks("1.csv").Close

    Workbooks("up.xlsm").Worksheets("Лист1").Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
    Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True

    Workbooks.Open Filename:="C:\Users\Администратор\Desktop\Новая папка\2.xlsx"
    Columns("A:V").Copy Workbooks("up.xlsm").Worksheets("Лист2").Cells
    Workbooks("2.xlsx").Close
End Sub

[/vba]

Сообщение отредактировал AVI - Среда, 31.10.2018, 16:37

Ответить

_Boroda_

Дата: Среда, 31.10.2018, 16:39 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Это будет путь к папке с файлом, в котором макрос
[vba]

Код

put_=ThisWorkbook.Path

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995