604
社区成员
发帖
与我相关
我的任务
分享
/*
她们的声明
TExcelApplication *app;
TExcelWorkbook *workbook;
TExcelWorksheet *sheet;
*/
TVariant strFileName = "C:\\1.xls";
app->Connect() ;
app->Workbooks->Open(strFileName ) ;
workbook->ConnectTo(app->ActiveWorkbook);
sheet->ConnectTo(workbook->ActiveSheet);
sheet->Cells->set_Item(TVariant(1),TVariant(1),TVariant("heo我是")); //写入串
sheet->Cells->set_Item(TVariant(1),TVariant(2),TVariant(2009)); //写入数字
workbook->Save(1);
TVariant strValue =sheet->Cells->get_Item(TVariant(1),TVariant(1));
AnsiString strYouWant =WideString (strValue) ; //读出串
ShowMessage( strYouWant);
TVariant strIntegerValue =sheet->Cells->get_Item(TVariant(1),TVariant(2));
int i = int(strIntegerValue); //读出数字
ShowMessage(i);
strValue =sheet->Cells->get_Item(TVariant(1),TVariant(2));
strYouWant =WideString (strValue) ; //把数字当串来读,其实可以统一当作字符串来读
ShowMessage( strYouWant);
sheet->Disconnect() ;
workbook->Disconnect() ;
app->Disconnect() ;
/*
AnsiString str=aa.bstrVal ;
*/