unit1.~cpp

将电子表格Excel中的数据保存到SQL数据库中

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

#include <vcl.h>
#pragma hdrstop
#include "vcl\utilcls.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure
int i=1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant Ex,Wb,Sh1;
Ex=Variant::CreateObject("Excel.Application");
//Ex.OlePropertySet("Visible",(Variant)true); //使Excel启动后可见
Ex.PG("WorkBooks").PR("Open","D:\\Book1.xls");
Wb=Ex.PG("ActiveWorkBook");
Sh1=Wb.PG("ActiveSheet");
Edit1->Text=Sh1.PG("Cells",i,1).PG("Value");
Edit2->Text=Sh1.PG("Cells",i,2).PG("Value");
Wb.PR("Close");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 i=i+1;

}
//---------------------------------------------------------------------------