// 轉EXCEL
Variant Excel,Workbooks,Workbook;
Variant Worksheets,Worksheet,Range,Cell,FColumns,Item;
int i,j;
// 新增一worksheet
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible",true);
Workbooks=Excel.OlePropertyGet("Workbooks");
Workbook=Workbooks.OleFunction("Add");
Worksheets=Workbook.OlePropertyGet("Worksheets");
Worksheet=Worksheets.OlePropertyGet("Item",1);
// 版面設定
Range=Worksheet.OlePropertyGet("PageSetup");
// 頁首 , 頁尾
Range.OlePropertySet("LeftHeader","");
Range.OlePropertySet("CenterHeader","");
Range.OlePropertySet("RightHeader","");
Range.OlePropertySet("LeftFooter","");
Range.OlePropertySet("CenterFooter","第 &P 頁,共 &N 頁");
Range.OlePropertySet("RightFooter","");
// 設定邊界 , 單位為 point , 一 point = 1 / 72 inches
Range.OlePropertySet("LeftMargin",15);
Range.OlePropertySet("RightMargin",15);
Range.OlePropertySet("TopMargin",15);
Range.OlePropertySet("BottomMargin",15);
Range.OlePropertySet("HeaderMargin",15);
Range.OlePropertySet("FooterMargin",15);
Range.OlePropertySet("PrintTitleRows","$2:$2"); // 列印標題列
Range.OlePropertySet("PrintTitleColumns","$A:$A"); // 列印標題欄
Range.OlePropertySet("PrintArea","$A$1:$I$15"); // 列印範圍
Range.OlePropertySet("PrintHeadings",false); // 欄名列號
Range.OlePropertySet("PrintGridlines",false); // 列印格線
Range.OlePropertySet("PrintComments",xlPrintNoComments); // 註解"無"
Range.OlePropertySet("PrintQuality",300); // 列印品質
Range.OlePropertySet("CenterHorizontally",true); // 水平置中
Range.OlePropertySet("CenterVertically",false); // 垂直置中
Range.OlePropertySet("Orientation",xlLandscape); // 橫向列印 (xlPortrait 縱向列印)
Range.OlePropertySet("Draft",false); // 草稿品質
Range.OlePropertySet("PaperSize",xlPaperA4); // 紙張大小
Range.OlePropertySet("FirstPageNumber",xlAutomatic); // 起始頁碼
Range.OlePropertySet("Order",xlDownThenOver); // 循欄列印 (xlOverThenDown 循列列印)
Range.OlePropertySet("BlackAndWhite",False); // 儲存格單色列印
Range.OlePropertySet("Zoom",100); // 縮放比例
// 設定欄高
FColumns = Worksheet.OlePropertyGet("Rows",1);
FColumns.OlePropertySet("RowHeight",30);
// 設定值
Range=Worksheet.OlePropertyGet("Cells",1,1);
Range.OlePropertySet("Value","設定值");
// 設定底色
Range=Worksheet.OlePropertyGet("Cells",2,2);
Range.OlePropertySet("Value","設定底色");
Cell=Range.OlePropertyGet("Interior");
Cell.OlePropertySet("ColorIndex",6);
// 設定圖樣
Range=Worksheet.OlePropertyGet("Cells",4,2);
Range.OlePropertySet("Value","設定圖樣");
Cell=Range.OlePropertyGet("Interior");
Cell.OlePropertySet("Pattern",xlGray50);
// 調整欄寬
FColumns = Worksheet.OlePropertyGet("Columns",3);
FColumns.OlePropertySet("ColumnWidth",18);
// 設定字型&大小
Range=Worksheet.OlePropertyGet("Cells",1,3);
Range.OlePropertySet("Value","設定字體大小");
Cell=Range.OlePropertyGet("Font");
Cell.OlePropertySet("Name","細明體");
Cell.OlePropertySet("Size",10);
// 設定字體顏色
Range=Worksheet.OlePropertyGet("Cells",3,3);
Range.OlePropertySet("Value","設定字體顏色");
Cell=Range.OlePropertyGet("Font");
Cell.OlePropertySet("ColorIndex",3);
// 設定粗體字
Range=Worksheet.OlePropertyGet("Cells",5,3);
Range.OlePropertySet("Value","設定粗體字");
Cell=Range.OlePropertyGet("Font");
Cell.OlePropertySet("Bold",true);
// 設定斜體字
Range=Worksheet.OlePropertyGet("Cells",7,3);
Range.OlePropertySet("Value","設定斜體字");
Cell=Range.OlePropertyGet("Font");
Cell.OlePropertySet("Italic",true);
// 設定劃底線
Range=Worksheet.OlePropertyGet("Cells",9,3);
Range.OlePropertySet("Value","設定劃底線");
Cell=Range.OlePropertyGet("Font");
Cell.OlePropertySet("Underline",xlUnderlineStyleSingle);
// 設定向左靠
Range=Worksheet.OlePropertyGet("Cells",11,3);
Range.OlePropertySet("Value","設定向左靠");
Range.OlePropertySet("HorizontalAlignment",xlLeft);
Range.OlePropertySet("VerticalAlignment",xlCenter);
// 設定向中靠
Range=Worksheet.OlePropertyGet("Cells",13,3);
Range.OlePropertySet("Value","設定向中靠");
Range.OlePropertySet("HorizontalAlignment",xlCenter);
Range.OlePropertySet("VerticalAlignment",xlCenter);
// 設定向右靠
Range=Worksheet.OlePropertyGet("Cells",15,3);
Range.OlePropertySet("Value","設定向右靠");
Range.OlePropertySet("HorizontalAlignment",xlRight);
Range.OlePropertySet("VerticalAlignment",xlCenter);
// 畫框
// XlBordersIndex 常數
// xlDiagonalDown , xlDiagonalUp , xlEdgeBottom , xlEdgeLeft , xlEdgeRight , xlEdgeTop , xlInsideHorizontal , xlInsideVertical
// XlLineStyle 常數
// xlContinuous , xlDash , xlDashDot , xlDashDotDot , xlDot , xlDouble , xlSlantDashDot , xlLineStyleNone
// XlBorderWeight 常數
// xlHairline , xlThin , xlMedium , xlThick
// XlColorIndex 常數
// xlColorIndexAutomatic。 用以指定繪圖物件的自動填滿。
// xlColorIndexNone。用以指定無內部填滿。
Range=Worksheet.OlePropertyGet("Cells",2,4);
Range.OlePropertySet("Value","設定框線");
Cell=Range.OlePropertyGet("Borders");
Cell.OlePropertySet("LineStyle",xlContinuous);
Cell.OlePropertySet("Weight",xlThin);
Cell.OlePropertySet("ColorIndex",xlAutomatic);
// 畫左框
Range=Worksheet.OlePropertyGet("Cells",4,4);
Range.OlePropertySet("Value","設定左框");
Cell=Range.OlePropertyGet("Borders");
Item=Cell.OlePropertyGet("Item",xlEdgeLeft);
Item.OlePropertySet("LineStyle",xlContinuous);
Item.OlePropertySet("Weight",xlThin);
Item.OlePropertySet("ColorIndex",xlAutomatic);
// 畫右框
Range=Worksheet.OlePropertyGet("Cells",6,4);
Range.OlePropertySet("Value","設定右框");
Cell=Range.OlePropertyGet("Borders");
Item=Cell.OlePropertyGet("Item",xlEdgeRight);
Item.OlePropertySet("LineStyle",xlContinuous);
Item.OlePropertySet("Weight",xlThin);
Item.OlePropertySet("ColorIndex",xlAutomatic);
// 畫上框
Range=Worksheet.OlePropertyGet("Cells",8,4);
Range.OlePropertySet("Value","設定上框");
Cell=Range.OlePropertyGet("Borders");
Item=Cell.OlePropertyGet("Item",xlEdgeTop);
Item.OlePropertySet("LineStyle",xlContinuous);
Item.OlePropertySet("Weight",xlThin);
Item.OlePropertySet("ColorIndex",xlAutomatic);
// 畫下框
Range=Worksheet.OlePropertyGet("Cells",10,4);
Range.OlePropertySet("Value","設定下框");
Cell=Range.OlePropertyGet("Borders");
Item=Cell.OlePropertyGet("Item",xlEdgeBottom);
Item.OlePropertySet("LineStyle",xlContinuous);
Item.OlePropertySet("Weight",xlThin);
Item.OlePropertySet("ColorIndex",xlAutomatic);
// 設定儲存格格式 - 數字
Range=Worksheet.OlePropertyGet("Cells",1,5);
Range.OlePropertySet("Value","1234.5");
Range.OlePropertySet("NumberFormatLocal","#,##0.00");
// 設定直的加總公式, -3 & -1 好像是從加總欄位往上數所得來的
Range=Worksheet.OlePropertyGet("Cells",2,6);
Range.OlePropertySet("Value","123");
Range=Worksheet.OlePropertyGet("Cells",3,6);
Range.OlePropertySet("Value","234");
Range=Worksheet.OlePropertyGet("Cells",4,6);
Range.OlePropertySet("Value","345");
Range=Worksheet.OlePropertyGet("Cells",5,6);
Range.OlePropertySet("FormulaR1C1","=SUM(R[-3]C:R[-1]C)");
// 設定橫的加總公式, -3 & -1 好像是從加總欄位往左數所得來的
Range=Worksheet.OlePropertyGet("Cells",2,7);
Range.OlePropertySet("Value","234");
Range=Worksheet.OlePropertyGet("Cells",2,8);
Range.OlePropertySet("Value","345");
Range=Worksheet.OlePropertyGet("Cells",2,9);
Range.OlePropertySet("FormulaR1C1","=SUM(RC[-3]:RC[-1])");
// 設定直跟橫都有的加總公式, 先往上數,再往左邊數
Range=Worksheet.OlePropertyGet("Cells",3,7);
Range.OlePropertySet("Value","234");
Range=Worksheet.OlePropertyGet("Cells",4,7);
Range.OlePropertySet("Value","234");
Range=Worksheet.OlePropertyGet("Cells",5,8);
Range.OlePropertySet("FormulaR1C1","=SUM(R[-3]C[-2]:R[-1]C[-1])");
分享到:
相关推荐
《Xmind转Excel工具1.1.6:自定义转换规则的高效解决方案》 在数字化时代,信息管理和组织成为日常工作的重要部分。思维导图作为一种有效的思维整理工具,被广泛应用于项目规划、学习笔记和会议记录等多个场景。...
"vcard转excel工具vcf转excel工具"是专为将VCard(.vcf)文件转换成Excel(.xlsx)格式而设计的应用程序。这种转换工具的目的是为了让用户能够更方便地管理和处理大量联系人数据,特别是在需要进行复杂筛选、排序或...
XMind转Excel工具安装包XMind转Excel工具安装包XMind转Excel工具安装包.zip
CAD表格转Excel工具_v2.0.1.0是一款专门设计用于将CAD(计算机辅助设计)文件中的数据表格转换为Microsoft Excel格式的应用程序。这款工具的出现,解决了CAD用户在处理大量工程数据时,需要手动复制粘贴或者重新输入...
"DBC转Excel工具"就是一种专门用于将DBC格式的数据库转换为Excel格式的工具。这种工具的主要目的是为了让DBC文件中的复杂信息更容易被非专业人员理解和操作。通过转换,用户可以在Excel中直观地查看和编辑DBC文件中...
"Access批量转Excel(支持WIN11)"这个工具就满足了这样的需求。 此工具的核心功能是能够批量将Access数据库中的表转换为Excel工作簿。对于那些拥有大量Access数据库表的用户来说,手动一一转换非常耗时。这个工具...
【标题】:“txt(JSON)数据转EXCEL工具(安装包)” 这个工具是专为将txt或JSON格式的数据转换成Excel电子表格而设计的。在IT领域,数据处理和转换是一项常见的任务,尤其是在数据分析、报告生成和数据交换时。JSON...
转换过程通常需要借助专门的转换工具,如压缩包中的"A文件转Excel.exe"。这个程序可能是设计用来解析A文件格式,并将其数据导出到Excel工作簿中。使用这类工具时,用户需要按照软件的指引,选择要转换的A文件,然后...
"txt转换excel工具"就是为了满足这一需求而设计的,它的主要目标是帮助用户轻松地将纯文本(.txt)文件转换成电子表格格式(.xlsx或.xls),即Excel文件。这种工具特别适合那些需要从文本数据中整理和分析信息的专业...
"通讯录vcf转excel工具_v6.6.3_vCard_excel转vCard_vcf文件生成器_" 提供了一个解决方案,它使得在VCF(电子名片)格式和Excel之间进行数据迁移变得简单易行。 VCF,全称Virtual Contact File,是一种标准格式,...
1. **图片转Excel**: - 使用C#编程语言,可以调用库如NPOI来创建和操作Excel文件。NPOI是一个开源的.NET库,它提供了对Microsoft Office Open XML(OOXML)和HSSF+XSSF(老版的BIFF8 Excel格式)的支持。通过NPOI...
标题中的“Json文件一键转Excel”指的是一个C#编程项目,其主要功能是将Json格式的数据转换成Excel电子表格,方便用户对数据进行管理和分析。Json(JavaScript Object Notation)是一种轻量级的数据交换格式,常用于...
文件列表: xmind_to_excel_config.ini (9697, 2020-09-22) xmind转excel工具(MAC版)1.1.6 (6248824, 2020-12-02) xmind转excel工具1.1.6.exe (7355788, 2020-12-02) 使用说明.txt (578, 2021-12-05)
"Txt文件转Excel"是一个实用的功能,它允许用户将结构化的文本数据,如逗号分隔值(CSV)文件,转换为Microsoft Excel表格,便于进一步的数据分析和操作。这个过程可以通过编程语言实现,例如Python,利用其强大的...
综上所述,"java后台html转excel"的技术涵盖了HTML解析、数据提取、Excel文件生成、数据映射与格式化等多个环节。虽然这个技术可能还有待完善,但通过学习和实践,可以构建出稳定、高效的解决方案。在实际开发中,应...
标题中的"VC-Excel.rar_Excel vc_PDF转EXCEL_excel转pdf_vc to pdf_vc++ excel"表明这个压缩包包含了使用VC++(Visual C++)处理Excel和PDF转换的相关资料。描述中的"VC中彻底玩转Excel.pdf use vc to deal with ...
CSV批量转EXCEL工具是由金浚软件工作室推出的一款csv批量转excel格式转换器,能把多个csv文件转换为excel文件,软件操作简单,省时省力,一目了然,绿色软件,无需安装,无插件,无广告,免费使用! 使用方法 1、...
本文将深入探讨如何使用Pandas玩转Excel,包括读取、写入、操作和分析Excel数据。 首先,要使用Pandas处理Excel文件,你需要确保已经安装了`pandas`和`openpyxl`或`xlrd/xlwt`库。`openpyxl`用于读写较新的.xlsx...
标题中的“可将cll文件转excel表格的软件”表明我们正在讨论一种能够处理特定格式的文件——cll文件,并将其转换成常见的电子表格格式,例如Excel。cll文件可能是一种特殊的日志文件、数据记录或者由特定应用程序...
edb数据库转Excel模块edb数据库转Excel模块edb数据库转Excel模块edb数据库转Excel模块