Сильное увеличение размера файла после копирования листов

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сильное увеличение размера файла после копирования листов (Макросы/Sub)

vdekameron

Дата: Четверг, 26.01.2017, 12:54 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 177

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

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

Excel 2010

Добрый день. Есть книга с одним листом(весит 1мб) там фоновая картинка, небольшая табличка и примерно 10 фигур в качестве кнопок.
На одной из кнопок скриптик для копирования этого листа
[vba]

Код

Sub Copy_ActiveSheet()
    Dim num
    Dim i

    num = Range("BL6")
    If Not IsNumeric(num) Then
        MsgBox "Geben Sie die Anzahl der!"
    Exit Sub
    End If

    For i = 1 To num
        ActiveSheet.Copy After:=Sheets(ActiveSheet.Index)
    Next i

    'MsgBox (num)
End Sub

[/vba]
После того как я добавляю 10 листов размер файла становится окола 40мб

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

PS Весит ведь файл 1мб с одним листом! а почему с 11 листами весит уже 40мб?? странно

Ответить

K-SerJC

Дата: Четверг, 26.01.2017, 13:26 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

скорее всего из за картинки
а если сохранить как двоичная книга?

Благими намерениями выстелена дорога в АД.

Ответить

vdekameron

Дата: Четверг, 26.01.2017, 13:37 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 177

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

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

Excel 2010

K-SerJC, Не помогло

. Вряд ли из-за картинки. Я же говорю весит файл(1лист) 1мб а при добавлении скриптом еще 10 таких листов становится 40мб, было бы логично если бы размер стал 11мб но не 40

Ответить

vdekameron

Дата: Четверг, 26.01.2017, 13:44 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 177

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

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

Excel 2010

K-SerJC,

Только что ради эксперемента:
-Добавил 10 листов макросом
-удалил вручную подложку с этих 10 листов, сохранил.....вуаля размер 1.4мб!!!
-снова добавил вручную и сохранил...размер стал чуть больше 1.6мб.....значит дело в скрипте, видимо какой-то алгоритм выполнения копирования у него особенный.