作者:刘小飘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”);