Код рабочий, но случайным образом Эксель глючит при сохранении. Где ошибка7

[grenles]

Итак, как Эксель ел память, так он ее и есть, но при этом макрос делает свое дело. По логике мне по фигу - у меня еще и виртуальная память есть. Хотя с 23 метров в памяти во время работы на самом большом файле Эксель вырос до 42 метро. Почти в два раза.

Итак, мои ошибки

1. Я убрал лишний код активации окна

'Application.Workbooks(SHB_file).Activate

на фиг это надо, если это окно потом и так закрывается.

2. Самая прикольно, где и возникала ошибка. Зачем делать СОХРАНИТЬ КАК, и тут же потмо СОХРАНИТЬ?

Application.Workbooks(SHB_file).SaveAs Filename:=symbol, _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

'ActiveWorkbook.Save

Во - первых медленне, после оставления только первого сохранения - прога условно говоря - полетела.
Во - вторых макрос первый раз сработал без вопросов о памяти и сохранении левого имени файла типа ERFDR34345.xls

3. Я услышал советы и использовал

Option Explicit

- кстати он помог мне увидеть, что в первоначальном коде было две схожих переменных str_Zero и str_Sero - так что нужна штука для приучения следить за "базаром".

Вообщем всем спасибо. Может не оптимально, но я задачу решил. Хотя вопрос - почему Эксель жрет память остался. но пока так и не нашел ответа. По моей логике - закрыл книгу и освободи ресурс, а он растет с каждой открытой книгой....

И еще прикол - вынеся объявления переменных за код процедуры я слегка уменьшил рост памяти, так и не поняв с чем это связано. Но, грубо говоря, с переменными внутри память росла на 400-500 кб, без них на 100-220 кб.
Странно, однако....

[Teslenko_EA]

Здравствуйте grenles.
небольшая деталь, такое объявление и VB(A):
Dim WorkBookMy, SHB_path, SHB_file, SHB_sheet, ISU_path, ISU_file, ISU_sheet As String
задает тип String только последней переменной ISU_sheet, все остальные будут иметь тип Viriant, исправляется так:
Dim WorkBookMy As String, SHB_path As String, SHB_file As String,...
Евгений.

[grenles]

Сообщение от Teslenko_EA

Здравствуйте grenles.
небольшая деталь, такое объявление и VB(A):
Dim WorkBookMy, SHB_path, SHB_file, SHB_sheet, ISU_path, ISU_file, ISU_sheet As String
задает тип String только последней переменной ISU_sheet, все остальные будут иметь тип Viriant, исправляется так:
Dim WorkBookMy As String, SHB_path As String, SHB_file As String,...
Евгений.

ОПа... Вот спасибо, а я то думал, я умный )))))))))))))