скопировать дание с одной книги в другую

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

скопировать дание с одной книги в другую (Макросы/Sub)

sergey1978

Дата: Среда, 23.12.2015, 14:09 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 21

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

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

Excel 2010

Добрий день!

Помогите с макросом.
Нужно скопировать дание с закритой книги Дание.xls из Листа1 с формулами в откритую книгу Отчет.xls на Лист2
В книге Отчет.xls уже существуют ссилки на Лист2

К сообщению приложен файл: 9833861.xls (25.0 Kb) · 1866086.xls (25.0 Kb)

Ответить

SLAVICK

Дата: Среда, 23.12.2015, 14:39 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

Так ?
[vba]

Код

Sub d()
Dim awb As Workbook, wb As Workbook
Set awb = ActiveWorkbook
awb.Sheets("Лист2").Cells.Clear
Set wb = Workbooks.Open("C:\Дание.xls")
wb.Sheets("Лист1").UsedRange.Copy
awb.Activate
awb.Sheets("Лист2").Cells(1, 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
wb.Close False
End Sub

[/vba]

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

Иногда все проще чем кажется с первого взгляда.

Ответить

Roman777

Дата: Среда, 23.12.2015, 17:25 | Сообщение № 3

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

SLAVICK, подскажите, пожалуйста, зачем тут Application.CutCopyMode = False используется? без неё можно-нет?

Много чего не знаю!!!!

Ответить

_Boroda_

Дата: Среда, 23.12.2015, 17:31 | Сообщение № 4

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

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

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Application.CutCopyMode = False снимает выделение при копировании. Если закрывать книгу с большим количеством скопированных ячеек, то Excel начинает спрашивать - как со скопированным диапазоном дальше быть.
Если точнее, то Excel начинает задавать вопросы при количестве скопированных ячеек, большем 100.

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

Ответить

Roman777

Дата: Среда, 23.12.2015, 17:32 | Сообщение № 5

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

_Boroda_, ааа ясно) Спасибо.

Много чего не знаю!!!!

Ответить

SLAVICK

Дата: Среда, 23.12.2015, 17:48 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

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

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

2019

Цитата Roman777, 23.12.2015 в 17:25, в сообщении № 3

без неё можно-нет?

В принципе _Boroda_, уже все описал - добавлю только. Можно и без него обойтись.
просто скопировав любую ячейку - я когда то давно так делал(пока не узнал про это)

Иногда все проще чем кажется с первого взгляда.

Ответить

sergey1978

Дата: Среда, 23.12.2015, 19:39 | Сообщение № 7

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

Ранг: Новичок

Сообщений: 21

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

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

Excel 2010

спасибо. все работает

Ответить

скопировать дание с одной книги в другую (Макросы/Sub)

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