作者:刘小飘168585 | 来源:互联网 | 2023-10-17 08:37
ExcelApp#启动excel程序ExcelAppCreateOleObject(“Excel.Application”);#加载文件但不显示文件内容(true表
ExcelApp
#启动excel程序
ExcelApp=CreateOleObject(“Excel.Application”);
#加载文件但不显示文件内容(true表示显示,false表示不显示)
ExcelApp.OlePropertySet(“Visible”,(Variant)false);
#屏幕不警告
ExcelApp.OlePropertySet(“DisplayAlerts” ,(Variant)false );
#打开新的workbook
Workbook1=ExcelApp.OlePropertyGet(“workbooks”).OleFunction(“open”,OpenDialog1->FileName.c_str());
#退出excel程序
ExcelApp.OleFunction(“Quit”);
ExcelApp=Unassigned;
Workbooks
#打开sheet1
Sheet1=Workbook1.OlePropertyGet(“ActiveSheet”);
#打开sheet2
Sheet2=Workbook1.OlePropertyGet(“Sheets”,2);
自定义的工作簿
#另存为新工作簿
newbooki.OleFunction(“SaveAs”,new_excel.c_str()); //文件路径要使用c_str()进行转换
#关闭工作簿
newbooki.OleFunction(“close”);
自定义的工作页
#列数量统计
lieCount= Sheet1.OlePropertyGet(“UsedRange”).OlePropertyGet(“Columns”).OlePropertyGet(“Count”);
hangCount= Sheet1.OlePropertyGet(“UsedRange”).OlePropertyGet(“rows”).OlePropertyGet(“Count”);
Item
#增加项目
String filename=ComboBox1->Items->Add(Sheet1.OlePropertyGet(“Cells”,Edit1->Text.ToInt() , i).OlePropertyGet(“value”) );
Range
#选择区域
Rangei= Sheet1.OlePropertyGet(“Range”,“A1:E3”);
#复制区域
Rangei.OleFunction(“copy”);
#将复制的区域复制到新的excel表格的A1格中
oRangei=newsheeti.OlePropertyGet(“Range”, "A1 ");
#粘贴单元格
oRangei.OleProcedure(“pasteSpecial”);