Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос данных в книгу .xlsx из других книг .xlsx и .csv - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных в книгу .xlsx из других книг .xlsx и .csv (Макросы/Sub)
Перенос данных в книгу .xlsx из других книг .xlsx и .csv
AVI Дата: Среда, 31.10.2018, 06:03 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 453
Репутация: 7 ±
Замечаний: 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)
 
Ответить
СообщениеДобрый день!
Помогите, пожалуйста, сделать следующую вещь
В одной папке с данным файлом есть две книги. Первый файл в формате csv и второй в формате xlsx, количество строк к которых может меняться.
Возможно ли сделать так, что бы информация из указанных файлов автоматом загружалась в данных файл таким образом: 8 первых столбцов (будет минимум 700 000 строк) с листа2 из файла 1.csv загружались в А1 на лист1 данной книги, а в А1 на лист2 - 22 первых столбца с листа4 из файла 1.xlsx (около 500 строк).

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

Автор - AVI
Дата добавления - 31.10.2018 в 06:03
sboy Дата: Среда, 31.10.2018, 09:05 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2190
Репутация: 624 ±
Замечаний: 0% ±

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

Автор - sboy
Дата добавления - 31.10.2018 в 09:05
AVI Дата: Среда, 31.10.2018, 15:38 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 453
Репутация: 7 ±
Замечаний: 0% ±

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

Автор - AVI
Дата добавления - 31.10.2018 в 15:38
AVI Дата: Среда, 31.10.2018, 16:34 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 453
Репутация: 7 ±
Замечаний: 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
 
Ответить
СообщениеОстался только один вопрос.
Сейчас открываются файлы из конкретной папки. А как указать макросу, что бы он эти файлы искал именно в той папке где лежит файл с макросом?

[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:34
_Boroda_ Дата: Среда, 31.10.2018, 16:39 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13502
Репутация: 5526 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Это будет путь к папке с файлом, в котором макрос
[vba]
Код
put_=ThisWorkbook.Path
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто будет путь к папке с файлом, в котором макрос
[vba]
Код
put_=ThisWorkbook.Path
[/vba]

Автор - _Boroda_
Дата добавления - 31.10.2018 в 16:39
AVI Дата: Среда, 31.10.2018, 16:47 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 453
Репутация: 7 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, Спасибо, получилось)
Что-то я по-старинке сразу сюда пишу, хотя сам уже могу сделать, если подумать...


Сообщение отредактировал AVI - Среда, 31.10.2018, 16:49
 
Ответить
Сообщение_Boroda_, Спасибо, получилось)
Что-то я по-старинке сразу сюда пишу, хотя сам уже могу сделать, если подумать...

Автор - AVI
Дата добавления - 31.10.2018 в 16:47
AVI Дата: Среда, 31.10.2018, 17:09 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 453
Репутация: 7 ±
Замечаний: 0% ±

Excel 2016
А еще вопрос. Вылетает вопрос о замене содержимого в ячейках. Как можно это сообщение игнорить или автоматом нажимать "ок"?
Чертова привычка


Сообщение отредактировал AVI - Среда, 31.10.2018, 17:11
 
Ответить
СообщениеА еще вопрос. Вылетает вопрос о замене содержимого в ячейках. Как можно это сообщение игнорить или автоматом нажимать "ок"?
Чертова привычка

Автор - AVI
Дата добавления - 31.10.2018 в 17:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных в книгу .xlsx из других книг .xlsx и .csv (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!