To All
Does anyone have an example on how to create an Excel .csv comma delimited useing TOleAuto() ??
Many Thanks
Rick Lipkin
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour How to create an Excel .csv
#define xlCSV 6
FUNCTION MAIN()
LOCAL oExcel := CREATEOBJECT( "Excel.Application" )
LOCAL oSheet
oExcel:WorkBooks:Add()
oSheet = oExcel:ActiveSheet
oSheet:Cells( 1, 1 ):Value = "This is a test 1"
oSheet:Cells( 1, 2 ):Value = "This is a test 2"
oSheet:Cells( 1, 3 ):Value = "This is a test 3"
oExcel:ActiveWorkBook:SaveAs( "E:\XHARBOUR\SAVED.CSV", xlCSV )
oExcel:ActiveWorkBook:Close( 0 )
oExcel:Quit()
RETURN NILEMG