Макрос копирования столбцов из одного файла excel в другой

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос копирования столбцов из одного файла excel в другой (Формулы/Formulas)

Ruslan72

Дата: Четверг, 04.06.2015, 07:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Excel 2010

Доброго дня Всем!
Подскажите пожалуйста, у меня есть 2 файла (таблици) excel 2010,
одна пустая а другая выгрузка из БД около 7600 строк и пару десятков столбцов,
у этих таблиц есть одинаковые столбци, можно ли написать макрос который например
при нажитии кнопки в пустой таблице загрузит данные из файла с БД определенные столбци с данными в пустую таблицу.
Я нашол в интернете макрос который при нажатии кнопки из файла БД копирует выделенные столбци в пустую таблицу и открывает его.
Мне нужно чтобы было наоборот макрос выкладываю и файлики.
За ранее благодарю за помощь.
Вот макрос сам макрос:
Sub Copy_Cells_to_EXT_file() скопировать ячейки во внешний файл
Dim DST_lr& ' последняя занятая строка накопителя

Dim cnt As Long
Dim cell As Range

MsgBox "Ты выбрал диапазон:" & Selection.Address
If Selection.Cells.Count = 1 Then
If MsgBox("Копируем всего одну ячейеку? о_О", vbYesNo, "Warning") = vbNo Then Exit Sub
End If
cnt = 0
For Each cell In Selection
If Not IsEmpty(cell) Then
cnt = cnt + 1
End If
Next
If cnt = 0 Then
If MsgBox("А в ячейках то пусто! Продолжишь?!", vbYesNo, "Warning") = vbNo Then
Exit Sub
End If
End If
'ActiveSheet.UsedRange.Select
Selection.Copy
Workbooks.Open ("C:\Users\Documents\Файл_пустой.xlsm")
Sheets(1).Range("A2:B2:C2:D2:H2:I2:J2:K2:L2:M2:N2:O2:P2:Q2")..PasteSpecial xlPasteAll
End Sub
[moder]Тема закрыта. Причина: задвоение[/moder]

К сообщению приложен файл: 3312618.xls (26.0 Kb)

Сообщение отредактировал Manyasha - Четверг, 04.06.2015, 07:34

Ответить

СообщениеДоброго дня Всем!
Подскажите пожалуйста, у меня есть 2 файла (таблици) excel 2010,
одна пустая а другая выгрузка из БД около 7600 строк и пару десятков столбцов,
у этих таблиц есть одинаковые столбци, можно ли написать макрос который например
при нажитии кнопки в пустой таблице загрузит данные из файла с БД определенные столбци с данными в пустую таблицу.
Я нашол в интернете макрос который при нажатии кнопки из файла БД копирует выделенные столбци в пустую таблицу и открывает его.
Мне нужно чтобы было наоборот макрос выкладываю и файлики.
За ранее благодарю за помощь.
Вот макрос сам макрос:
Sub Copy_Cells_to_EXT_file() скопировать ячейки во внешний файл
Dim DST_lr& ' последняя занятая строка накопителя

Dim cnt As Long
Dim cell As Range

MsgBox "Ты выбрал диапазон:" & Selection.Address
If Selection.Cells.Count = 1 Then
If MsgBox("Копируем всего одну ячейеку? о_О", vbYesNo, "Warning") = vbNo Then Exit Sub
End If
cnt = 0
For Each cell In Selection
If Not IsEmpty(cell) Then
cnt = cnt + 1
End If
Next
If cnt = 0 Then
If MsgBox("А в ячейках то пусто! Продолжишь?!", vbYesNo, "Warning") = vbNo Then
Exit Sub
End If
End If
'ActiveSheet.UsedRange.Select
Selection.Copy
Workbooks.Open ("C:\Users\Documents\Файл_пустой.xlsm")
Sheets(1).Range("A2:B2:C2:D2:H2:I2:J2:K2:L2:M2:N2:O2:P2:Q2")..PasteSpecial xlPasteAll
End Sub
[moder]Тема закрыта. Причина: задвоение[/moder]

Автор - Ruslan72
Дата добавления - 04.06.2015 в 07:23

Страница 1 из 1
1