【delphi】匯出excel時(shí),excel單元格格式設(shè)置(附delphi操作excel方法)

1、【Delphi】匯出Excel時(shí)，Excel單元格格式設(shè)置（附Delphi操作Excel方法）一個(gè)例子：excelwksheet1.Cells.Item[row3].numberfmatlocal:=$###0.00[紅色]$###0.00excelwksheet1.Cells.Item[row3].Fmula:==SUM(R[inttostr(rowrowflag1)]C:R[1]C)excelwksheet1.Cells.Item[

2、row3].Bders[3].LineStyle:=xlContinuousexcelwksheet1.Cells.Item[row3].Bders[4].LineStyle:=xlDoubleexcelwksheet1.Cells.Item[row4].Bders[3].LineStyle:=xlContinuousexcelwksheet1.Cells.Item[row4].Bders[4].LineStyle:=xlDoublee

3、xcelwksheet1.Cells.Item[row4].Fmula:==R[1]C注：不知道公式及格式，均可通過(guò)錄制宏找出對(duì)應(yīng)公式及格式。效果如下圖：資料來(lái)自網(wǎng)絡(luò)資料來(lái)自網(wǎng)絡(luò)單元格設(shè)置1.設(shè)置單元格線框Excel.ActiveSheet.Range[B10:C13].Bders[N].LineStyle:=xlNoneExcel.ActiveSheet.Range[B10:C13].Bders[N].Weight:=xlThinEx

4、cel.WkSheets[1].Rows[8].PageBreak:=1(0為刪除)6.清除第一行第四列單元格公式：Excel.ActiveSheet.Cells[14].ClearContents7.從數(shù)字類型轉(zhuǎn)換成文本類型(不知道格式化字符串，請(qǐng)錄制宏，抽出宏中格式化字符串。)excelwksheet1.Cells.Item[row10].numberfmatlocal:=@excelwksheet1.Cells.Item[row1

5、0].NumberFmat:=hh:mm:ssexcelwksheet1.Cells.Item[row9].numberfmatlocal:=$###0.00[紅色]$###0.008.加公式(不知道公式格式，請(qǐng)錄制宏，抽出宏中公式格式。)excelwksheet1.Cells.Item[row10].Fmula:==R[1]CRC[1]ExApp.cells[9iLoop6].value:==SUM(Ginttostr(9iLoop)

6、:Hinttostr(9iLoop))附：附：Delphi操作操作Excel方法方法(一)使用動(dòng)態(tài)創(chuàng)建的方法(二)使用Delphi控件方法一)使用動(dòng)態(tài)創(chuàng)建的方法首先創(chuàng)建Excel對(duì)象，使用ComObj:varExcelApp:VariantExcelApp:=CreateOleObject(Excel.Application)1)顯示當(dāng)前窗口：ExcelApp.Visible:=True2)更改Excel標(biāo)題欄：ExcelApp.Cap

7、tion:=應(yīng)用程序調(diào)用MicrosoftExcel3)添加新工作簿：ExcelApp.WkBooks.Add4)打開已存在的工作簿：ExcelApp.WkBooks.Open(C:ExcelDemo.xls)5)設(shè)置第2個(gè)工作表為活動(dòng)工作表：ExcelApp.WkSheets[2].Activate或ExcelApp.WksSheets[Sheet2].Activate6)給單元格賦值：ExcelApp.Cells[14].Value