1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| void __fastcall TForm1::Button4Click(TObject *Sender)
{
Variant vMSExcel;
vMSExcel = Variant::GetActiveObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
Variant vFileName, vXLWorkbook, vXLWorkbooks;
vMSExcel.OlePropertySet("Visible", true);
vFileName = Edit1-Text;
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
Variant vWorksheet, vSheetName;
vSheetName = "Feuil1";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
Variant vValue, vLn,vCl, vCell;
int i,j;
for(j=0;j<2;j++)
{
vLn=j+1;
vLn=vLn.operator int();
for(i=0;i<5;i++)
{
vCl =i+1;
vCl =vCl.operator int();
vCell = vWorksheet.OlePropertyGet("Cells",vLn,vCl);
vValue = vCell.OlePropertyGet("Value");
StringGrid1->Cells[j][i] =vValue;
}
}
} |
Partager