Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
jonik81
0 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 15
1

Копировать данные из одного файла xls в другой

17.12.2015, 13:59. Просмотров 1299. Ответов 4
Метки нет (Все метки)

Доброго времени суток,


прошу помощи: с макросами работаю чуть больше недели, не могу решить одну задачку (хотя она не очень сложная), написал макрос, который копирует данные из одного файла с именем 1.xls и вставляет их в другой файл, после чего файл 1.xls удаляется, проблема заключается в том, что подобную операцию нужно проделать с несколькими файлами с именами 1,2,3,4 и т.д (конечное количество не известно), не получается прописать цикл (искал примеры макросов, читал в книгах, но не получилось)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
' выделяем диапазон в открывшейся книге
    Workbooks.Open Filename:="C:\Users\Desktop\Планы производства\1.xls"
    Worksheets("TDSheet").Range("A2:G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy   ' копируем диапазон
    'активируем нужную книгу
    Workbooks("План_по_цехам.xls").Activate
    'выделяем и вставляем нужные данные в пустую ячейку
       Dim iLastRow As Long
       iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
       Cells(iLastRow + 1, 1).Select
       ActiveSheet.Paste
       'Очистка буфера обмена
     Application.CutCopyMode = False
    'закрываем книгу,из которой скопировали данные
    Workbooks("1.xls").Close
    Kill "C:\Users\Desktop\Планы производства\1.xls"
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2015, 13:59
Ответы с готовыми решениями:

Копирование из одного файла xls в другой
Здравствуйте! Помогите, пожалуйста, написать процедуру копирования данных из одного файла в...

Вставить данные из одного Excel файла в другой
Помогите пожалуйста!! Нужно объединить таблицы с одинаковым форматированием (находящиеся в одной...

Копировать таблицу с одного листа на другой
В MS Excel c помощью макроса выполнить следующие действия: 1.Копировать таблицу с 1 листа на 2....

Копировать значение строки с одного листа на другой
Нужно скопировать выделенную строку ( в ней 3 столбца) с листа1 на лист2, на листе2 надо в первую...

Копировать ячейки с красным шрифтом с одного листа на другой
Добрый День! Есть задача копировать с листа3 на лист1 ячейки(всего их 30) с красным шрифтом....

4
Shersh
Заблокирован
17.12.2015, 14:31 2
Попробуйте -
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
do while dir("C:\Users\Desktop\Планы производства\" & (I+1) & ".xls")<>""
  i=i+1
  Workbooks.Open Filename:="C:\Users\Desktop\Планы производства\" & I & ".xls"
 
    Worksheets("TDSheet").Range("A2:G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy   ' копируем диапазон
    'активируем нужную книгу
    Workbooks("План_по_цехам.xls").Activate
    'выделяем и вставляем нужные данные в пустую ячейку
       Dim iLastRow As Long
       iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
       Cells(iLastRow + 1, 1).Select
       ActiveSheet.Paste
       'Очистка буфера обмена
     Application.CutCopyMode = False
    'закрываем книгу,из которой скопировали данные
    Workbooks(I & ".xls").Close
    Kill "C:\Users\Desktop\Планы производства\" & I & ".xls"
loop
0
jonik81
0 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 15
17.12.2015, 14:40  [ТС] 3
Shersh, спасибо большое, сработал так, как надо
0
Hugo121
6415 / 2478 / 445
Регистрация: 19.10.2012
Сообщений: 7,387
18.12.2015, 00:05 4
Я бы не торопился убивать источник пока не сохранён получатель. Да вообще куда торопиться - переносите файл в архив, а убить можно через пару месяцев, когда уж точно файл не понадобится. Да хоть этим же макросом, заодно с переносом нового убиваем старый.
0
jonik81
0 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 15
18.12.2015, 05:53  [ТС] 5
Hugo 121 согласен, действие рискованное, подправлю макрос, сначала сохранюсь, а в удалении пока есть необходимость, спасибо
0
18.12.2015, 05:53
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2015, 05:53

Как копировать текст с одного листа в другой через макрос VBA
Помогите пожалуйста создать макрос. Задача такая. Существует Книга Excel, в ней 2 листа. При...

Как найти в xls-файле слово и скопировать его в другой xls?
Если кто может... HELP!!! Надо из book1.xls найти слово test и перекинуть его в book2.xls

Перенести данные из одного листа на другой
Здравствуйте! Ребята, сломала себе уже голову, форум облазила весь, инет перерыла, помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru