Corectie - e in "Rapoarte si generatoare de rapoarte".

http://www.profox.ro/Forum/tabid/55/forumid/24/threadid/8462/scope/posts/Default.aspx

lcOldError = On("ERROR")

On Error XLSHEET= .Null.

XLSHEET= Getobject(, "Excel.Application")

On Error &lcOldError

If Isnull(XLSHEET)

XLSHEET= Createobject( "Excel.Application" )

XLSHEET.Workbooks.Add

XLSHEET.activesheet.name="RON"

XLSHEET.visible=.t.

XLSHEET.Range("a1:y66").FONT.name="arial"

XLSHEET.Range("a1:y66").FONT.size=11

XLSHEET.Range("a1:a66").FONT.bold=.t.

XLSHEET.Range("a2:y2").FONT.bold=.t.

XLSHEET.Range("b4:y66").NumberFormat = "#,##0.00_ ;[Red]-#,##0.00"

xlsheet.range("a2:a66").borders.LineStyle=12

xlsheet.range("b4:y66").borders.LineStyle=1

xlsheet.range("c4:c66").borders(10).LineStyle=12

xlsheet.range("e4:e66").borders(10).LineStyle=12

xlsheet.range("g4:g66").borders(10).LineStyle=12

xlsheet.range("i4:i66").borders(10).LineStyle=12

xlsheet.range("k4:k66").borders(10).LineStyle=12

xlsheet.range("m4:m66").borders(10).LineStyle=12

xlsheet.range("o4:o66").borders(10).LineStyle=12

xlsheet.range("q4:q66").borders(10).LineStyle=12

xlsheet.range("s4:s66").borders(10).LineStyle=12

xlsheet.range("u4:u66").borders(10).LineStyle=12

xlsheet.range("w4:w66").borders(10).LineStyle=12

xlsheet.range("y4:y66").borders(10).LineStyle=12

xlsheet.range("a2:y2").interior.colorindex=52

XLSHEET.Range("a2:y2").FONT.color=RGB(255,255,255)

xlsheet.range("c4:c66").interior.colorindex=35

xlsheet.range("e4:e66").interior.colorindex=35

xlsheet.range("g4:g66").interior.colorindex=35

xlsheet.range("i4:i66").interior.colorindex=35

xlsheet.range("k4:k66").interior.colorindex=35

xlsheet.range("m4:m66").interior.colorindex=35

xlsheet.range("o4:o66").interior.colorindex=35

xlsheet.range("q4:q66").interior.colorindex=35

xlsheet.range("s4:s66").interior.colorindex=35

xlsheet.range("u4:u66").interior.colorindex=35

xlsheet.range("W4:W66").interior.colorindex=35

xlsheet.range("Y4:Y66").interior.colorindex=35

xlsheet.range("b4:b66").interior.colorindex=19

xlsheet.range("d4:d66").interior.colorindex=19

xlsheet.range("f4:f66").interior.colorindex=19

xlsheet.range("h4:h66").interior.colorindex=19

xlsheet.range("j4:j66").interior.colorindex=19

xlsheet.range("l4:l66").interior.colorindex=19

xlsheet.range("n4:n66").interior.colorindex=19

xlsheet.range("p4:p66").interior.colorindex=19

xlsheet.range("r4:r66").interior.colorindex=19

xlsheet.range("t4:t66").interior.colorindex=19

xlsheet.range("V4:V66").interior.colorindex=19

xlsheet.range("X4:X66").interior.colorindex=19

xlsheet.range("a10:y10").interior.colorindex=15

xlsheet.range("a12:y12").interior.colorindex=15

xlsheet.range("a17:y17").interior.colorindex=15

xlsheet.range("a19:y19").interior.colorindex=15

xlsheet.range("a57:y57").interior.colorindex=15

xlsheet.range("a60:y60").interior.colorindex=15

xlsheet.range("a61:y61").interior.colorindex=15

xlsheet.range("a66:y66").interior.colorindex=15

xlsheet.range("a10:y10").font.bold=.t.

xlsheet.range("a12:y12").font.bold=.t.

xlsheet.range("a17:y17").font.bold=.t.

xlsheet.range("a19:y19").font.bold=.t.

xlsheet.range("a57:y57").font.bold=.t.

xlsheet.range("a60:y60").font.bold=.t.

xlsheet.range("a61:y61").font.bold=.t.

xlsheet.range("a66:y66").font.bold=.t.

xlsheet.range("b4:y4").borders(8).LineStyle=12

xlsheet.range("b66:y66").borders(9).LineStyle=12

XLSheet.cells(3,1).Value = "poti sa pui orice variabila "

XLSheet.cells(2,2).Value = "vom 01.01. - 31.01."

XLSheet.cells(2,4).Value = "vom 01.02. - 28.02."

XLSheet.cells(2,6).Value = "vom 01.03. - 31.03."

XLSheet.cells(2,8).Value = "vom 01.04. - 30.04."

XLSheet.cells(2,10).Value = "vom 01.05. - 31.05."

XLSheet.cells(2,12).Value = "vom 01.06. - 30.06."

XLSheet.cells(2,14).Value = "vom 01.07. - 31.07."

XLSheet.cells(2,16).Value = "vom 01.08. - 31.08."

XLSheet.cells(2,18).Value = "vom 01.09. - 30.09."

XLSheet.cells(2,20).Value = "vom 01.10. - 31.10."

XLSheet.cells(2,22).Value = "vom 01.11. - 30.11."

XLSheet.cells(2,24).Value = "vom 01.12. - 31.12."

XLSheet.range("b10:Y10").formula="=SUM(B4:B9)"

XLSheet.range("b12:Y12").formula="=B10-B11"

XLSheet.range("b17:Y17").formula="=SUM(b13:b16)"

XLSheet.range("b57:Y57").formula="=SUM(B20:B56)"

XLSheet.range("b60:Y60").formula="=SUM(b58:b59)"

XLSheet.range("b61:Y61").formula="=B12-B17-B18-B57-B60"

XLSheet.range("b66:Y66").formula="=B61-B62-B63-B64-B65"

XLSHEET.Columns("a").columnwidth=26.50

XLSHEET.Range("a1:a66").wraptext=.t.

XLSHEET.Columns("b:y").EntireColumn.AutoFit