Конференция VBStreets

**Nazar** » 13.04.2005 (Ср) 10:13

1. Есть 4 файла Excel, требуется выташить из каждого файла по однму листу и вставить в новый файл Excel каждый лист отдельно для дальнейшей обработки макросом. Как это сделать макросом?

Спасибо.

**uhm** » 13.04.2005 (Ср) 10:21

Например, так:

1. Создать книгу (Workbooks.Add)
2. Открыть нужный файл (Workbooks.Open)
3. Сделать нужному листу Sheets(лист).Copy After:=лист_новой_книги
4. Повторить п. 2-3 четыре раза
5. Сохранить книгу (Workbooks.Save)

Надеюсь, код напишешь сам :wink:

**Nazar** » 13.04.2005 (Ср) 13:24

Спасибо, код написал. Как теперь при закрытии файла (закрываю программно) убрать вопрос "В буфере обмена находится большой объем данных. Сохранить эти данные для последующей вставки в другую программу?"

**uhm** » 13.04.2005 (Ср) 14:13

Я не помню, в каких случаях это сообщение выскакивает... По-моему, если у тебя осталось много выделенных ячеек. Если да, тогда перед выходом из файла выполни команду
Applcation.CutCopyMode=False

Это очистит выделение ячеек.

**Nazar** » 13.04.2005 (Ср) 14:24

Спасибо, немного неправильно вначале сделал. Подумал, переделал, теперь все ОК.
Еще раз спасибо.

**Igor_123** » 13.04.2005 (Ср) 16:34

Можно было и макрос записать и посмотреть

**Rombo** » 13.04.2005 (Ср) 22:07

угу, этот хинт бы в правила добавить...
прежде чем писать howto
1. записать макрос
2. поискать на форуме

Конференция VBStreets

Экспорт данных

Экспорт данных

Снова вопрос

Справился

Кто сейчас на конференции