1. 判断当前是否有Excel激活
try
ExcelHandle = actGetRunningServer('Excel.Application');
catch
ExcelHandle =actxserver('Excel.Application');
end
如果当前有excle表激活,则直接获取应用句柄。如果没有则创建一个句柄。
2. 可视化激活的excel句柄
ExcelHandle.Visible = 1;
可视化可以开启和关闭,如果关闭则运行时候,没有excel表格弹出。
3.添加工作簿
WorkBookHle = ExcelHandle.Workbooks.Add;
只有添加了工作簿workbooks,后面才可以添加sheet页。注意,添加工作簿的时候会默认产生sheet页,这个默认产生的sheet页个数,跟excel表格设置有关。设置如下图:
图中红圈数字设置为多少,生成工作簿时候,就会默认产生几个sheet页。
4. 添加sheet页
SheetHle1 = ExcelHandle.ActiveWorkbook.Sheet.Add;%新增加sheet
SheetHle1.Activate;
添加sheet页,并激活当前sheet页句柄,接下来就可以对当前shee页进行操作了。
5. 设置sheet页的名称及里面内容
SheetHle1.Name = '输入接口';
SheetHle1.Range('A1').Value = '端口名称';
SheetHle1.Range('B1').Value = '数据类型';
SheetHle1.Range('C1').Value = '维度';
6. 对当前工作簿中已知名称的sheet页
SheetsHle = ExcelHandle.ActiveWorkbook.Sheets;
SheetHle1 = SheetsHle.Item('Sheet1'); %
SheetHle1.Activate;
SheetHle1.Name = '输入接口';
SheetHle1.Range('A1').Value = '端口名称';
SheetHle1.Range('B1').Value = '数据类型';
SheetHle1.Range('C1').Value = '维度';
从当前工作簿中获取名称为 Sheet1的sheet页句柄,激活并对其操作。注意:sheet页名称'Sheet1'也可以改成数字。例如SheetHle1 = SheetsHle.Item(1); 但要注意数字和名称对应关系。
7. 合并单元格填写内容
SheetHle1.Range('A5:A6').MergeCells = 1; %合并单元格
SheetHle1.Range('A5:A6').Value = 'hello';
合并A5:A6的单元格,并在合并后的单元格里面,填写内容hello
8. 单元格加边框
SheetHle2.Range('A1:H6').Borders.Weight = 2;
9. 保存和退出
WorkBookHle.SaveAs(filePath);
ExcelHandle.Quit;
其中:filePath是保存路径。