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

1、【Delphi】匯出Excel時，Excel單元格格式設置（附Delphi操作Excel方法）一個例子：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注：不知道公式及格式，均可通過錄制宏找出對應公式及格式。效果如下圖：資料來自網(wǎng)絡資料來自網(wǎng)絡單元格設置1.設置單元格線框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ù)字類型轉換成文本類型(不知道格式化字符串，請錄制宏，抽出宏中格式化字符串。)excelwksheet1.Cells.Item[row10].numberfmatlocal:=@excelwksheet1.Cells.Item[row1

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

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

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