如圖
附上代碼
if(!FileExists(path))
{
Form1->Memo1->Lines->Add("Error: 資料庫檔案不存在");
return false;
}
CoInitialize(NULL);
try
{
ExcelApp=Variant::CreateObject("Excel.Application");
ExcelApp.OlePropertyGet("workbooks").OleFunction("open",path) ;//運行在這一步拋出例外
//ExcelApp.OlePropertySet("Visible", false);
}
catch(...)
{
Form1->Memo1->Lines->Add("運行Excel出錯,請確認安裝了Office");
return false;
}
WorkBook1=ExcelApp.OlePropertyGet("ActiveWorkBook");
WorkBook1.OlePropertyGet("Sheets",1).OleProcedure("Select");
Sheet1=WorkBook1.OlePropertyGet("ActiveSheet");
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/58964.html
標籤：基礎類