Search  
Thursday, May 24, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Office Automation  formatare excel...
 formatare excel
 
 2/18/2007 7:48:04 PM
User is offlinecristitodi
5 posts


formatare excel
 (N/A)

buna seara,

am si eu nevoie sa formatez un fisier excel (inclusiv subtotaluri), sunt la inceput in acesta problema si nu stiu unde sa caut solutii

ma puteti ajuta?

 

multumesc
 2/19/2007 7:17:59 AM
User is offlinenae racaru
714 posts
www.rarom.ro
1st




Re: formatare excel
 (Romania) Modified By nae racaru on 2/19/2007 8:21:44 AM)
Un exemplu:
oExcel=CreateObject("Excel.Application")
oExcel.Visible=.T.
oExcel.Workbooks.Add
oExcel.Range("A1:A1")=1
oExcel.Range("A2:A2")=2
oExcel.Range("A3:A3")=3
oExcel.Range("A4:A4")="=SUM(A1:A3)"

Sau altul:

OleApp=CreateObject("Excel.Application")
OleApp.Visible = .T.
OleApp.WorkBooks.Add

OleApp.Cells(2,5).Value = "My Excel File Test"
OleApp.Cells(2,5).Font.Underline = .T.
OleApp.Cells(2,5).Font.Name = "Thaoma"
OleApp.Cells(2,5).Font.Size = (20)
OleApp.Cells(2,5).Font.Bold = .T.

Sau unul mai complicat, care foloseste constante excel, gasit pe http://www.foxite.com/forum/ :
#define xlEdgeTop         8
#define xlEdgeLeft        7
#define xlEdgeBottom      9
#define xlEdgeRight      10
#define xlInsideVertical 11
#define xlInsideHorizontal 12

#define xlDiagonalDown 5
#define xlDiagonalUp   6
#define xlNone         -4142
#define xlContinuous   1
#define xlThin         2

 OleApp=CreateObject("Excel.Application")
 OleApp.Visible = .T.
 OleApp.WorkBooks.Add

 OleApp.Cells(2,5).Value = "My Excel File Test"
 OleApp.Cells(2,5).Font.Underline = .T.
 OleApp.Cells(2,5).Font.Name = "Thaoma" 
 OleApp.Cells(2,5).Font.Size = (20) 
 OleApp.Cells(2,5).Font.Bold = .T. 

oleApp.Range("A1:O1").Select
oleApp.Selection.Merge
oleApp.Range("B2:F5").Select
oleApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
oleApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With oleApp.Selection.Borders(xlEdgeLeft)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
EndWith
With oleApp.Selection.Borders(xlEdgeTop)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
EndWith
With oleApp.Selection.Borders(xlEdgeBottom)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
EndWith
WITH oleApp.Selection.Borders(xlEdgeRight)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
EndWith
WITH oleApp.Selection.Borders(xlInsideVertical)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
EndWith
With oleApp.Selection.Borders(xlInsideHorizontal)
     .LineStyle = xlContinuous
     .ColorIndex = 0
     .TintAndShade = 0
     .Weight = xlThin
EndWith

VFP 6 si 9 + Oracle
 2/19/2007 7:49:13 AM
User is offlinecristitodi
5 posts


Re: formatare excel
 (Romania)

ok, multumesc mult

am sa incerc si sper sa ii dau de cap
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Office Automation  formatare excel...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement