Delphi 导出、导入Excel的一个快速方法

The quickest way is to use an array of Variant,and just pass the entire array to Excel:

var

    xls, wb, Range: OLEVariant;

    arrData: Variant;

    RowCount, ColCount, i, j: Integer;

begin

    {create variant array where we'll copy our data}

    RowCount := StringGrid1.RowCount;

    ColCount := StringGrid1.ColCount;

    arrData := VarArrayCreate([1, RowCount,1, ColCount], varVariant);

    {fill array}

    for i:=1to RowCountdo

        for j:=1to ColCountdo

            arrData[i, j]:= StringGrid1.Cells[j-1, i-1];

    {initialize an instance of Excel}

    xls := CreateOLEObject('Excel.Application');

    {create workbook}

    wb := xls.Workbooks.Add;

    {retrieve a range where data must be placed}

    Range := wb.WorkSheets[1].Range[wb.WorkSheets[1].Cells[1,1],

        wb.WorkSheets[1].Cells[RowCount, ColCount]];

    {copy data from allocated variant array}

    Range.Value:= arrData;

    {show Excel with our data}

    xls.Visible:=True;

end;

转换为C++builder方式为：

#define   PG   OlePropertyGet
#define   PS   OlePropertySet
#define   FN   OleFunction
#define   PR   OleProcedure

void __fastcall TForm1::btn2Click(TObject *Sender)

{

    Variant vExcelApp, vSheet;
    try
    {
        vExcelApp = Variant::CreateObject("Excel.Application");
    }
    catch(...)
    {
        // excel没有安装，或者没有正确安装
        // 如果没有正确安装，则会运行时异常：
        // Exception class EOleSysError with message '无效的类字符串'.
        // 这个时候需要重新安装excel或者修复excel
        MessageBox(0, _T("启动 Excel 出错, 可能是没有安装Excel."), _T("警告"),
            MB_OK | MB_ICONERROR);
        return;
    }
    // 隐藏Excel界面
    vExcelApp.OlePropertySet("Visible", false);
    // 新建一个工作表
    vExcelApp.OlePropertyGet("Workbooks").OleFunction("Add", 1);
    // 操作这个工作表
    vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook").OlePropertyGet
        ("Sheets", 1);

    // 创建二维数组，下标从0开始
    int bounds[4] = {0,2,0,2};//{0,列数,0,行数}
    Variant variantValues = VarArrayCreate(bounds, 3, varVariant);
    variantValues.PutElement("a", 0,0);//(value,列,行)
    variantValues.PutElement("b", 1,0);
    variantValues.PutElement("c", 2,0);
    variantValues.PutElement("d", 0,1);
    variantValues.PutElement("e", 1,1);
    variantValues.PutElement("f", 2,1);
    variantValues.PutElement("g", 0,2);
    variantValues.PutElement("h", 1,2);
    variantValues.PutElement("i", 2,2);

    try{
        Variant excelCell = vSheet.PG("Cells");
        Variant cellRange = vSheet.PG(
            "Range",
            excelCell.PG("Item", 1, 1),  // start cell
            excelCell.PG("Item", 3, 3) // finishing cell
            );

        // place array into excel
        cellRange.PS("value",vExcelApp.FN("Transpose", variantValues));

        WideString wfileName("c:\\123.xlsx");
        if(FileExists(wfileName))
        {
            DeleteFile(wfileName);
        }
        vExcelApp.PG("ActiveWorkbook").FN("SaveAs",
            wfileName.c_bstr());
    }
    __finally
    {
        vExcelApp.PS("Visible",true);
        //vExcelApp.OleFunction("Quit");
        vSheet = Unassigned;
        vExcelApp = Unassigned;
    }

}

导入：

void __fastcall TForm1::btn3Click(TObject *Sender)
{
    Variant vExcelApp, vSheet;
    try
    {
        vExcelApp = Variant::CreateObject("Excel.Application");
    }
    catch(...)
    {
        // excel没有安装，或者没有正确安装
        // 如果没有正确安装，则会运行时异常：
        // Exception class EOleSysError with message '无效的类字符串'.
        // 这个时候需要重新安装excel或者修复excel
        MessageBox(0, _T("启动 Excel 出错, 可能是没有安装Excel."), _T("警告"),
            MB_OK | MB_ICONERROR);
        return;
    }
    // 隐藏Excel界面
    vExcelApp.PS("Visible", false);
    WideString wfileName("c:\\123.xlsx");
    // 打开
    vExcelApp.PG("Workbooks").FN("Open", wfileName.c_bstr());
    // 操作这个工作表
    vSheet = vExcelApp.PG("ActiveWorkbook").PG("Sheets", 1);

    try{
        Variant excelCell = vSheet.PG("Cells");
        Variant cellRange = vSheet.PG(
            "Range",
            excelCell.PG("Item", 1, 1),  // start cell
            excelCell.PG("Item", 3, 3) // finishing cell
            );

        Variant  variantValues = cellRange.PG("value"); 
        for(int i=1; i<4; ++i)//下标从1开始
        {
            for(int j=1; j<4; ++j)
            {
                Variant data = variantValues.GetElement(i,j);//GetElement(行,列)
                String tmp = data;
                int a = 0;
            }
        }
    }
    __finally
    {
        vExcelApp.PS("Visible",true);
        //vExcelApp.OleFunction("Quit");
        vSheet = Unassigned;
        vExcelApp = Unassigned;
    }
}