oSheet2.Cells(1, xx).NumberFormat = "##,##0.00_);[Red](##,##0.00)"and I have even gone to the trouble of filling the first data row with the value 0.01 before doing the "Save As".
lcXLS = getfile('XLS') lcConn = "Driver={Microsoft Excel Driver (*.xls)};"+; "DriverId=790;Dbq="+m.lcXLS+; ";DefaultDir="+JustPath(m.lcXLS)+";" lnHandle = SQLStringConnect(lcConn) SQLTables(lnHandle,"", "SheetNames") Scan lcTableName = Trim(SheetNames.Table_Name) lcOutput = Chrtran(m.lcTableName,' $','_') SQLExec(m.lnHandle,'select * from ['+m.lcTableName+']',m.lcOutput ) endscan SQLDisconnect(m.lnHandle)Cetin