Hello,
I am using the great example provided by Milan and I need add the following functionality.
1) Perform Save As without dialog box
2) Change font color
3) Change cell shading
Can anyone help?
Sincerely,
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Excel and FWH (Save As, Font Color, Cell shading)
This is a working sample:
EMG
FUNCTION MAIN()
LOCAL oExcel := CREATEOBJECT( "Excel.Application" )
LOCAL oWorkBook := oExcel:WorkBooks:Add()
LOCAL oSheet := oExcel:ActiveSheet
oSheet:Cells( 1, 1 ):Value = "This is a test"
oSheet:Cells( 1, 1 ):Font:Color = 255
oSheet:Cells( 1, 1 ):Interior:Color = 11184810
oSheet:Cells( 1, 1 ):Font:Shadow = .T.
oWorkBook:SaveAs( "c:\xharbour\newfile.xls" )
oExcel:Quit()
RETURN NILEMG
Thank you Enrico. Where can I find a table with the numerical values of the colors?
Sincerely,
Paint, Colors, Modify colors, Custom colors. Then look at the three color numeric components.
EMG