Buna ziua. Am urmatoarea problema - ori ca scriu in Excel sau word prin automation, la simpla schimbare a proprietatilor textului fata de cele implicite ale documentului/paragrafului/cuvintului (etc.), executia devine sensibil mai greoaie. Ex. - schimb culoare background pentru un cuvint. Problema e ca nici continutul documentului nu e unitar, deci nu pot sa schimb aceeasi proprietate pentru mai multe obiecte odata.

Are cineva vreo idee? Aparent singura solutie ar fi sa nu mai umblu cu automation si sa fac totul din macrouri in cadrul unui template, dar poate mai merge si altfel.

Gabriel Popa

P.S.

As mai avea o problema - avind continutul ecranului copiat in clipboard, cum il salvez intr-o imagine (de preferinta jpeg)?

Am facut si eu un modul de export in Excel si mergea foarte greu.

Imi amintesc insa ca am citit prin documentatie recomandarea ca, in loc de

oExcel.worksheets(1).cells.item(1,1).font.bold = .t.

oExcel.worksheets(1).cells.item(1,1).font.size = 11

oExcel.worksheets(1).cells.item(1,1).HorizontalAlignment = 3

sa foloseste

with oExcel.worksheets(1).cells.item(1,1)

   .font.bold = .t.

   .font.size = 11

   .HorizontalAlignment = 3

endwith

Am testat urmatorul cod, pe un sistem cu win xp prof+office 2003+vis.fox 6.0:

rele all
clear all
clear
cale=SYS(5)+CURDIR()
oExcel = CREATEOBJECT("Excel.Application")
obook=Oexcel.Workbooks.Open("&cale"+"&numef")
for i=1 to 1000
   CCEL='B'+ALLTR(STR(I))
   obook.ActiveSheet.Range("&CCEL").value='TEST'+ALLTR(STR(I))
   if mod(i,2)=0
       obook.ActiveSheet.Range("&CCEL").font.bold =.F.
       obook.ActiveSheet.Range("&CCEL").font.size = 11
   else
       obook.ActiveSheet.Range("&CCEL").font.bold =.t.
       obook.ActiveSheet.Range("&CCEL").font.size = 14
   endif
endfor
oExcel.Visible = .T.

Executia a durat 20 de secunde, cred ca ar trebui sa dai mai multe informatii  despre codul pe care il folosesti, numar de inregistrari si  caracteristicele  sistemului pe care rulezi.

                     Toate cele bune,

                     Dan Vasiloiu