Доброго дня Всем! Подскажите пожалуйста, у меня есть 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]
Доброго дня Всем! Подскажите пожалуйста, у меня есть 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