Alguns Comandos muito úteis para manipulação do Excel Código: Open Excel CREATE "Excel.Application" vchExcel. n/a Show/Hide Excel vchExcel:VISIBLE = [TRUE/FALSE] Y Adding a Workbook vchWorkBook = vchExcel:WorkBooks:ADD() Y Selecting a Sheet vchWorkSheet = vchExcel:Sheets:ITEM(1) Y Adding data to a cell vchWorkSheet:Range("A1"):VALUE = 123 vchWorkSheet:Range("A1"):VALUE = "this is a test" Y Bold on/off vchWorkSheet:Range("A1"):FONT:Bold = [TRUE/FALSE] Y Merge cells vchWorkSheet:Range("A1:I1"):Merge N Left align vchWorkSheet:Range("A1"):HorizontalAlignment = 3 Y Right align vchWorkSheet:Range("A1"):HorizontalAlignment = 4 Y Top align vchWorkSheet:Range("A1"):VerticalAlignment = 1 Y Auto size column vchWorkSheet:Range("A1"):EntireColumn:AutoFit N Auto size row vchWorkSheet:Range("A1"):EntireRow:AutoFit N Set column width vchWorkSheet:Range("A1"):ColumnWidth = 90 Y Number format vchWorkSheet:Range("A1"):NumberFormat = "###,###,##0.00;[Red]-###,###,##0.00" You can change the number of decimals places by adding more 0's, use a comma or not, and add more #'s for a bigger number. Y Save As vchWorkBook:SaveAs("c:\tmp\ttst.xls",,,,,,,) There are 7 comma's and I've always had to use them. N
