網頁 貼吧 文章 作者 工作  
網頁搜尋
 
 愛PO吧 >> 東方娃娃學園小遊戲區 >> 瀏覽文章
回覆 加入我的最愛 與好友分享

[C#] 使用C#產生Excel範例

本被文章 0 次, 共有回覆 2  
0
 
0
Excel.Application objExcel_App = new Excel.Application();
Excel.Workbook objExcel_WB = (Excel.Workbook) objExcel_App.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);
Excel.Worksheet objExcel_WS = objExcel_WB.Worksheets[1] as Excel.Worksheet;
Excel.Range objExcel_RG = null;

try
{
objExcel_WS.Name = "Test Report";// 設定第一列Excel內容
ArrayList alRow = new ArrayList();
object[] objRow = {"A","B","C","D"};
alRow.Add(objRow);

objExcel_RG = objExcel_WS.get_Range("A1","D1");
objExcel_RG.GetType().InvokeMember("Value",BindingFlags.SetProperty,null,objExcel_RG,
alRow.ToArray(typeof(object)) as object[]);


// 設定Excel格式
objExcel_RG.Font.Bold = true;
objExcel_RG.Font.Name = "Arial";
objExcel_RG.Font.Size = 10;objExcel_RG.Font.Color = 255; //字型顏色
objExcel_RG.Interior.Color =
System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Yellow); //背景顏色
objExcel_RG.VerticalAlignment = Excel.XlVAlign.xlVAlignTop; //垂直對齊
objExcel_RG.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;//水平對齊
objExcel_RG.EntireRow.AutoFit(); //自動調整列高
objExcel_RG.EntireColumn.AutoFit(); //自動調整欄寬

objExcel_WS.get_Range("A1", "B1").Merge(false); //設定A1:B1儲存格合併
objExcel_WS.get_Range("C:C",Type.Missing).NumberFormatLocal
= "@"; //設定C欄儲存格格式為文字
objExcel_WS.get_Range("D:D",Type.Missing).NumberFormatLocal
= "yyyy/MM/dd"; //設定C欄儲存格格式
Array.Clear(objColumnTemp,0,objColumnTemp.Length);

objExcel_WS.SaveAs(strFilePath,Type.Missing,Type.Missing,Type.Missing
,Type.Missing,Type.Missing,Type.Missing
,Type.Missing,Type.Missing);

objExcel_App.Workbooks.Close();

}
catch(Exception exp)
{
throw exp;
}
finally
{
objExcel_App.Quit();
System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel_RG);
System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel_WS);
System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel_WB);
System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel_App);
GC.Collect();
}objExcel_WS.get_Range(pricingUtil.ConvertToExcelColumn(iCol)+":"+pricingUtil.ConvertToExcelColumn(iCol),Type.Missing).NumberFormatLocal = "@";objExcel_WS.get_Range(pricingUtil.ConvertToExcelColumn(iCol)+":"+pricingUtil.ConvertToExcelColumn(iCol),Type.Missing).NumberFormatLocal = "@";

逛上一篇:   逛下一篇:

作者: uxnevznz
  (2009-12-24 23:01)
推薦文章: 將本文章推薦到【百度收藏】 將本文章推薦到【YouPush】 將本文章推薦到【udn共享書籤】 將本文章推薦到【Fiigo】書籤

 本文章共有回覆 2 篇,分 1 頁
 聲明:以上內容不代表本站立場,且內容由網友發表提供,若有爭議或違法由發表者承擔,本站將不負責連帶責任,謝謝。

 IPoBar  愛PK  愛遊戲  愛online
新手教學 客服中心 站務公告 交換連結 合作提案 關於我們
 
版權所有©ipobar Ltd., All Rights Reserved.
論壇內會員言論僅代表個人觀點,不代表本站同意其說法,本討論區不承擔由該言論所引起的法律責任