1.常见用法
????????? using Microsoft.Office.Interop.Excel;
1)新建一个Excel
ApplicationClass ExcelApp = New ApplicationClass(); ??? Microsoft.Office.Interop.Excel.Workbook book = ExcelApp.Workbooks.Add(); ?? ??2) 更改 Excel 标题栏: ?? ExcelApp.Caption := '应用程序调用 Microsoft Excel'; ??3) 添加新工作簿: ?? ExcelApp.WorkBooks.Add; ??4) 打开已存在的工作簿: ?? ExcelApp.WorkBooks.Open( 'C:ExcelDemo.xls' ); ??5) 设置第2个工作表为活动工作表: ?? ExcelApp.WorkSheets[2].Activate; 或 ?? ExcelApp.WorksSheets[ 'Sheet2' ].Activate; ??6) 给单元格赋值: ?? ExcelApp.Cells[1,4].Value := '第一行第四列'; ??7) 设置指定列的宽度(单位:字符个数),以第一列为例: ?? ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5; ??8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例: ?? ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 ??9) 在第8行之前插入分页符: ?? ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1; ??10) 在第8列之前删除分页符: ?? ExcelApp.ActiveSheet.Columns[4].PageBreak := 0; ??11) 指定边框线宽度: ?? ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; ?? 1-左 2-右 3-顶 4-底 5-斜( ) 6-斜( / ) ??12) 清除第一行第四列单元格公式: ?? ExcelApp.ActiveSheet.Cells[1,4].ClearContents; ??13) 设置第一行字体属性: ?? ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书'; ?? ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue; ?? ExcelApp.ActiveSheet.Rows[1].Font.Bold := True; ?? ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True; ??14) 进行页面设置: ?? a.页眉: ?? ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示'; ?? b.页脚: ?? ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页'; ?? c.页眉到顶端边距2cm: ?? ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; ?? d.页脚到底端边距3cm: ?? ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; ?? e.顶边距2cm: ?? ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035; ?? f.底边距2cm: ?? ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; ?? g.左边距2cm: ?? ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035; ?? h.右边距2cm: ?? ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035; ?? i.页面水平居中: ?? ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; ?? j.页面垂直居中: ?? ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; ?? k.打印单元格网线: ?? ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True; ??15) 拷贝操作: ?? a.拷贝整个工作表: ?? ExcelApp.ActiveSheet.Used.Range.Copy; ?? b.拷贝指定区域: ?? ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy; ?? c.从A1位置开始粘贴: ?? ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial; ?? d.从文件尾部开始粘贴: ?? ExcelApp.ActiveSheet.Range.PasteSpecial; ??16) 插入一行或一列: ?? a. ExcelApp.ActiveSheet.Rows[2].Insert; ?? b. ExcelApp.ActiveSheet.Columns[1].Insert; ??17) 删除一行或一列: ?? a. ExcelApp.ActiveSheet.Rows[2].Delete; ?? b. ExcelApp.ActiveSheet.Columns[1].Delete; ??18) 打印预览工作表: ?? ExcelApp.ActiveSheet.PrintPreview; ??19) 打印输出工作表: ?? ExcelApp.ActiveSheet.PrintOut; ??20) 工作表保存: ?? if not ExcelApp.ActiveWorkBook.Saved then ?? ExcelApp.ActiveSheet.PrintPreview; ??21) 工作表另存为: ?? ExcelApp.SaveAs( 'C:ExcelDemo1.xls' ); ??22) 放弃存盘: ?? ExcelApp.ActiveWorkBook.Saved := True; ??23) 关闭工作簿: ?? ExcelApp.WorkBooks.Close; ??24) 退出 Excel: ?? ExcelApp.Quit;
2.利用Microsoft.Office.Interop.Excel 将web页面转成PDF
1)首先将web页面html保存为EXCEL文件
StringWriter html = new StringWriter();
HtmlTextWriter tw = HtmlTextWriter(html);
base.Render(tw);
//excelName存放Excel的地址
FileStream fs = FileStream(excelName,FileMode.Create);
StreamWriter sw = new StreamWriter(fs,Encoding.GetEncoding("utf-8"));
开始写入
sw.Write(html);
清空缓冲区
sw.Flush();
关闭流
sw.Close();
fs.Close();
?????? 2)然后利用Microsoft.Office.Interop.Excel将EXCEL 转成PDF
????????? 首先引用 Microsoft.Office.Interop.Excel.dll,并设置 dll 的属性值无法嵌入互操作类型 为false 。否则会报 类型“Microsoft.Office.Interop.Excel.ApplicationClass”未定义构造函数??? 无法嵌入互操作类型“Microsoft.Office.Interop.Excel.ApplicationClass”。请改用适用的接口 错误。
然后安装 SaveAsPDFandXPS.exe (安装此插件才能将excel 另存为 pdf)
源代码如下:
/// <summary>
/// Excel保存PDF
</summary>
<param name="excelPath"> EXCEL全路径 </param>
<param name="pdfPath"> PDF保存路径 <returns></returns>
public static bool CovertExcelToPDF( string excelPath,string pdfPath)
{
object missing = Type .Missing;
/创建excel应用程序实例
ApplicationClass application = null ;
/创建工作薄实例
Workbook workBook = ;
try
{
application = ApplicationClass ();
/打开工作簿
workBook = application.Workbooks.Open(excelPath,missing,missing);
/打开sheet
Worksheet ws = (Worksheet )workBook.Worksheets.Item[1];
/设置打印放放为水平
ws.PageSetup.Orientation = XlPageOrientation .xlPortrait;
/设置打印时excel内容在一个页面上显示。Zoom必须设置为false
ws.PageSetup.Zoom = false ;
ws.PageSetup.FitToPagesTall = ;
ws.PageSetup.FitToPagesWide = ;
/将工作簿发布为PDF或XPS格式
ws.ExportAsFixedFormat( XlFixedFormatType .xlTypePDF,pdfPath,XlFixedFormatQuality .xlQualityStandard,true,1)">false /忽略打印区域
return ;
}
catch
{
throwfinally
{
/工作簿关闭
if (workBook != )
{
workBook.Close( ;
}
/ excel应用程序退出关闭
if (application != )
{
application.Quit();
application = ;
}
GC.Collect();
GC.WaitForPendingFinalizers();
GC.Collect();
GC.WaitForPendingFinalizers();
}
}
非原创,转载总结
http://www.cnblogs.com/ttrjba/p/3873538.html
http://www.cnblogs.com/yuteng/articles/1753767.html
https://msdn.microsoft.com/zh-cn/library/ms173186(VS.80).aspx (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|