Алгоритм копирования листа.

Пользователь

Сообщений: 277 Регистрация: 08.01.2013

07.07.2011 13:40:02

Задача, в принципе, несложная.Код на VBA я и сам написать могу,лучше алгоритмом подскажите.

Есть открытый файл (скажем c:\111\test.xls). По нажатию кнопки нужно скопировать activesheet в другой файл (скажем c:\222\test.xls). Затык в том что Excel не дает открыть два файла с одним именем. Приходить копировать лист в темповую книгу, закрывать c:\111\test.xls , и только потом копировать нужный лист в книгу назначения (c:\222\test.xls). Потом закрываем книгу назначения и открываем источник(c:\111\test.xls). "Долго,муторно и не интересно" , особенно если книги по размеру более 50мб...

Подскажите, как сделать реализацию попроще ?

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

07.07.2011 14:14:51

Два файла с одинаковым именем можно открыть одновременно - но в разных копиях Excel.
Отсюда - вариант 1: Открываем файл-получатель в новой копии Excel - копируем туда лист - закрываем файл-источник вместе с приложением. (остаётся открытым Excel, который с файлом-получателем)

Есть второй вариант:
Поскольку файл-источник надо закрывать БЕЗ сохранения, то ничто не мешает сохранить его во временной папке под случайным именем (любым другим), и после этого произвести копирование листа.

PS: Учитывая объём файлов - я бы использовал копирование через промежуточную книгу.
Сначала - activesheet.Copy
потом - activeworkbook.worksheets(1).move Workbook2.worksheets(1)

Метод Move вместо Copy - чтобы временная книга сразу исчезала.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest Гость	#3 08.07.2011 10:41:01 "Два файла с одинаковым именем можно открыть одновременно - но в разных копиях Excel." - это я знал, но предполагал , что excel не умеет копировать листы между разными экземплярами excel. После Вашего совета попробовал сделать программно - ни в какую (ошибка 1004 method failed). Может приведете рабочий пример как это сделать на VBA? Второй предложенный вариант не подходит, поскольку файл источник нужен именно с сохранениеи. ps/ А вообще решил сделать так(если кому-то интересно). С помощью Scripting.FileSystemObject переименовываем файл-приемник. Открываем его,копируем лист,закрываем. Переименовываем обратно.

Читают тему