用VC读取含有多个工作表的EXCEL文件的方法

//创建数据库，即一个Excel的XLS文件
　　ConnStr = "Driver={Microsoft Excel Driver (*.xls)};DBQ="+FileName+";";
　　ADOConnection->ConnectionString = WideString(ConnStr);
　　ADOConnection->Open();

　　//

　　//创建表，创建成功后再Xls文件中就能看见这个页
　　ADOSQL = "CREATE TABLE "+SheetName+"(序号 varchar(8),核算网点号 varchar(12),账号总数 varchar(12),有效账号数 varchar(12),已推广数 varchar(12),新账号总数 varchar(12),新有效账号数 varchar(12),新已推广数 varchar(12))";

　　ADOQuery->SQL->Text = ADOSQL;
　　ADOQuery->ExecSQL();

　　//打开创建好的表，然后向里面写数据
　　ADOSQL = "SELECT 序号,核算网点号,账号总数,有效账号数,已推广数,新账号总数,新有效账号数,新已推广数 FROM "+SheetName;
　　ADODataSet->Close();
　　ADODataSet->CommandText = WideString(ADOSQL);
　　ADODataSet->Open();

　　ADODataSet->Append();
　　ADODataSet->FieldValues["序号"] = AnsiString(sn+1);
　　ADODataSet->FieldValues["核算网点号"] =strVBOT;
　　ADODataSet-&