C++ builder 2010 操作Excel表格的编程实现

//---------------------------------------------------------------------------



#include <vcl.h>

#pragma hdrstop



#include "ProcessBar.h"

#include <stdio.h>     // For FILE, fopen, fstat, fileno, fread and fclose

#include <sys\stat.h>  // For fstat and the stat struct

#include <Math.hpp>    // For Min

#include <memory>       //For STL auto_ptr class



//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

//---------------------------------------------------------------------------

__fastcall TForm4::TForm4(TComponent* Owner)

    : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm4::btn1Click(TObject *Sender)

{

    FILE *F;

    char MyData[2047];

    long BytesRead;



    F = fopen("../oui.txt", "r");   // Path relative to Debug

                                    // Use a file larger than 2048 bytes to make it interesting.

    if (F)

    {

    struct stat statbuf;

    fstat(fileno(F), &statbuf);

    pb1->Max = statbuf.st_size;

    if (pb1->Max > 10)

    {

      pb1->Step = (pb1->Max)/10;

      pb1->Step = Min(pb1->Step, 2047);

    }

    else

      pb1->Step = pb1->Max;

    std::auto_ptr<char> DataBuffer(new char[pb1->Step]);

    for (pb1->Position = 0;

         pb1->Position < pb1->Max;

         pb1->StepIt())  // Move the ProgressBar Position using StepIt.

    {

      fread(DataBuffer.get(), pb1->Step, 1, F);

      // Do this or else the read wraps and starts over.

      pb1->Step =

        Min(pb1->Step, pb1->Max - pb1->Position);

    }



    mmo1->Lines->Add(DataBuffer.get());



    fclose(F);

    DataBuffer.release();

    }

}

//---------------------------------------------------------------------------

void __fastcall TForm4::btn2Click(TObject *Sender)

{



    Variant vExcelApp, vWorkbook, vRange, Sheet1;

    vExcelApp = Variant::CreateObject("Excel.Application");

    vExcelApp.OlePropertySet("Visible", false);

    vExcelApp.OlePropertyGet("WorkBooks").OleProcedure("Open",

        dlgOpen1->FileName.c_str());

    vWorkbook = vExcelApp.OlePropertyGet("ActiveWorkbook");



    int BookCount = vWorkbook.OlePropertyGet("Sheets").OlePropertyGet

    ("Count");

    for (int i = 0; i < BookCount; i++)

    {

        AnsiString SheetName = vWorkbook.OlePropertyGet("Sheets", i + 1)

        .OlePropertyGet("Name");

        // ShowMessage(SheetName);



    }



    // Sheet1   =   vWorkbook.OlePropertyGet( "ActiveSheet ");

    // vExcelApp.Exec(PropertyGet( "Cells ") < <1 < <3).Exec(PropertySet( "Value ") < <15);     //赋值

    // Sheet1.OlePropertyGet( "Rows ",   1).OlePropertyGet( "Insert ");       //插入

    String kkl, hgf;

    int it = 9, st = 1;



    while (it > 8 && BookCount >= st)

    {

        vWorkbook.OlePropertyGet("Sheets", st).OleProcedure("Select");

        // 选择sheet

        for (it = 1; it <= 8; it++)

        {

            kkl = vExcelApp.Exec(PropertyGet("Cells") << 5 << it);

            //if (kkl.Pos(qz1) > 0 || kkl.Pos(qz2) > 0) // 读取

                break;

        }

        st++;

    }



    int kk = 1;

    for (kk = 1; kk <= 8; kk++)

    {

        kkl = vExcelApp.Exec(PropertyGet("Cells") << kk << it);

        //if (kkl.Pos(qz1) > 0 || kkl.Pos(qz2) > 0) // 读取

            break;

    }



    hgf = vExcelApp.Exec(PropertyGet("Cells") << kk << it + 2);

    int ki = 1;

    while (hgf.Trim() != "")

    {

        if (ki == StringGrid2->RowCount - 1)

            //StringGrid1->RowCount++;

        // kkl==vExcelApp.Exec(PropertyGet( "Cells ") < <kk < <it);



        StringGrid2->Cells[1][ki] = vExcelApp.Exec

            (PropertyGet("Cells") << kk << it); // 2-4列的数据

        StringGrid2->Cells[2][ki] = vExcelApp.Exec

            (PropertyGet("Cells") << kk << it + 1);

        StringGrid2->Cells[3][ki] = vExcelApp.Exec

            (PropertyGet("Cells") << kk << it + 2);

        kk++;

        ki++;

        hgf = vExcelApp.Exec(PropertyGet("Cells") << kk << it + 2);

    }



    vExcelApp.OlePropertyGet("ActiveSheet").OlePropertyGet("Cells ", 1, 2)

        .OleProcedure("Select");

    vRange = vExcelApp.OlePropertyGet("Selection");

    vRange.Exec(Function("Sort") << vExcelApp.OlePropertyGet("Selection")

        << 1);



    // vWorkbook.OleProcedure( "Save");

    vWorkbook.OleProcedure("Close");

    vExcelApp.OleFunction("Quit");

    vWorkbook = Unassigned;

    vExcelApp = Unassigned;

}

// ---------------------------------------------------------------------------