Проблема открытия Exel.application
20.08.2004
15:27
#1
При выгрузке в Exel необходимо создавать копию существующего листа в открытой книге. Дописала макрос в personal.xls, но из-под 1с он не открывается, пришлось писать макрос в книгу. Екселевский файл обновляется, макрос теряется, пользователя нервничают. Подскажите, как создать копию листа или открыть Exel с personal.xls. Спасибо
20.08.2004
16:19
#2
"1.
Эксель.run("c:\modules\modul.xls!Имя макроса");
2.
//макрос пишется прямо в текущую книгу, затем выполняется.
//Чтобы потом при открытии файла не спрашивал про макросы
//надо удалить макрос программно
// Этот кусок позволяет установить свойство Zoom класса PageSetup
ОкноЕхс=ExcelApp;
Зн =1+ОкноЕхс.VBE.ActiveVBProject.VBComponents.Count();
ОкноЕхс.VBE.ActiveVBProject.VBComponents.Add(1);
ОкноЕхс.VBE.ActiveVBProject.VBComponents(Зн).CodeModule.InsertLines (1, "Sub Zoom(S)");
ОкноЕхс.VBE.ActiveVBProject.VBComponents(Зн).CodeModule.InsertLines (2, "Worksheets(S).PageSetup.Zoom= False");
ОкноЕхс.VBE.ActiveVBProject.VBComponents(Зн).CodeModule.InsertLines (3, "End Sub");
ОкноЕхс.Application.Run ("Zoom(1)");
Module=ОкноЕхс.VBE.ActiveVBProject.VBComponents(Зн);
ОкноЕхс.VBE.ActiveVBProject.VBComponents.Remove(Module);
"
Эксель.run("c:\modules\modul.xls!Имя макроса");
2.
//макрос пишется прямо в текущую книгу, затем выполняется.
//Чтобы потом при открытии файла не спрашивал про макросы
//надо удалить макрос программно
// Этот кусок позволяет установить свойство Zoom класса PageSetup
ОкноЕхс=ExcelApp;
Зн =1+ОкноЕхс.VBE.ActiveVBProject.VBComponents.Count();
ОкноЕхс.VBE.ActiveVBProject.VBComponents.Add(1);
ОкноЕхс.VBE.ActiveVBProject.VBComponents(Зн).CodeModule.InsertLines (1, "Sub Zoom(S)");
ОкноЕхс.VBE.ActiveVBProject.VBComponents(Зн).CodeModule.InsertLines (2, "Worksheets(S).PageSetup.Zoom= False");
ОкноЕхс.VBE.ActiveVBProject.VBComponents(Зн).CodeModule.InsertLines (3, "End Sub");
ОкноЕхс.Application.Run ("Zoom(1)");
Module=ОкноЕхс.VBE.ActiveVBProject.VBComponents(Зн);
ОкноЕхс.VBE.ActiveVBProject.VBComponents.Remove(Module);
"
Читают тему
(гостей: 1)