匯出資料都為文本型，我想在匯出完成后，設定每列為數值型，并分別定義每列的小數位，請教大家該如何處理？
uj5u.com熱心網友回復：
找個dw2xls吧！uj5u.com熱心網友回復：
就是DW2XLS，DW中都為文本格式uj5u.com熱心網友回復：
可以設定cell的格式，具體的沒啥印象了，可以去vba編程里面找找。uj5u.com熱心網友回復：
具體是什么忘記了，你可在excel中運行巨集，看一下設定格式的方式，再呼叫到PB中。uj5u.com熱心網友回復：
運行→工具→宏→記錄新宏然后手動設定單元格格式（屬性），設定完后點擊停止記錄宏，分析記錄下來的代碼即可
//－－－－－－－－－create destory－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
OLEObject OLE_ExcelA
OLE_ExcelA = Create OLEObject
long ll_error = 0
ll_error = OLE_ExcelA.ConnectToNewObject("excel.Application")
If ll_error <> 0 Then
messagebox( gs_notice, '無法打開excel' )
return
Else
OLE_ExcelA.visible = false
// string ls_error // boolean lb_error // long ll_error
OLE_ExcelA.Workbooks.Open( is_path )
mle_2.text = mle_2.text + '成功打開 '+ sle_ea.text +char(13)+char(10)
End IF
OLE_ExcelA.activeworkbook.worksheets[1].cells(1,1).value = "這是第一張SHEET"
OLE_ExcelA.activeworkbook.worksheets[2].cells(1,1).value = "這是第二張SHEET"
OLE_ExcelA.activeworkbook.worksheets[3].cells(1,1).value = "這是第三張SHEET"
OLE_ExcelA.activeworkbook.saveas("c:\multisheet.xls",39)
OLE_ExcelA.ActiveWorkbook.save()
OLE_ExcelA.quit()
OLE_ExcelA.Workbooks.close
OLE_ExcelA.DisConnectObject()
destroy OLE_ExcelA
//－－－－－－－－－－－copy & paste－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
ls_2 = 'A'+string(ll_num)+':'+ls_ColA+string(ll_num)
OLE_ExcelA.ActiveSheet.Range(ls_2).Copy
OLE_ExcelA.Worksheets( ls_newsheet ).Activate
ls_1 = 'A'+string(ll_result)
OLE_ExcelA.ActiveSheet.Range(ls_1).PasteSpecial
//－－－－－－－－－add a new sheet & named it－－－－－－－－－－－－－－－－－－－－－－－－－
ll_sumSheet = OLE_ExcelA.Worksheets.count
If ll_sumSheet > 0 then
For ll_num = 1 to ll_sumsheet
If OLE_ExcelA.activeworkbook.worksheets[ll_num].name = ls_newsheet Then
Messagebox( '提示：', '已經存在相同的sheet名稱，請重新命名sheet' )
OLE_ExcelA.quit()
OLE_ExcelA.Workbooks.close
OLE_ExcelA.DisConnectObject()
destroy OLE_ExcelA;
return -1
End If
Next
OLE_ExcelA.Worksheets.Add( )
OLE_Excela.ActiveWorkbook.Activesheet.name = ls_newsheet
End If
//－－－－－－－－set ColumnWidth、set RowHeight－－－－－－－－－－－－－－－－－－－－－－－－－－－
OLE_Excela.ActiveSheet.Columns(2).ColumnWidth = 5
OLE_Excela.ActiveSheet.rows(2).RowHeight = 60
//－－－－－－－－select => merge、merge => unmerge－－－－－－－－－－－－－－－－－－－－
OLE_ExcelA.Range( 'B1:L1').Select
OLE_ExcelA.Range( 'B1:L1').Merge
OLE_ExcelA.Range( 'B1:L1').MergeCells = False //取消合并
//－－－－水平居中.垂直居中.自動折行.頂部畫線.底部畫線.背景顏色－－－－－－－－－－－－－－
OLE_ExcelA.ActiveSheet.range( ls_range ).HorizontalAlignment = 7
OLE_ExcelA.ActiveSheet.range( ls_range ).VerticalAlignment = 2
OLE_ExcelA.Range( ls_range ).WrapText = true
OLE_ExcelA.Range( ls_range ).Borders( 3 ).LineStyle = 1
OLE_ExcelA.Range( ls_range ).Borders( 3 ).Weight = 2
OLE_ExcelA.Range( ls_range ).Borders( 4 ).LineStyle = 1
OLE_ExcelA.Range( ls_range ).Borders( 4 ).Weight = 2
OLE_ExcelA.Range( 'A3:I3').Interior.Color = rgb( 128, 255, 255 )
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/104923.html
標籤：腳本語言