利用ADO操作Excel文件

转自 ： http://blog.csdn.net/tabby/article/details/1889217

             http://hi.baidu.com/superfeng/item/4f7375275b0860d7a417b646

使用adodb对象可以访问和操作excel文件 asp在asp中，使用adodb对象可以访问和操作excel文件。下面我们以一个excel文件导入access为例子，简要看看在asp中使用excel的方法。 

1、一个.xls文件可以看成一个数据库，其中的每一个工作表(sheet)看成数据库表。 
2、access虽然只是一个桌面数据库，但是它有关系型数据库的验证结构，excel则不然。Ado以excel中表格第一列的数据（行标题）为字段名。 
3、字段名不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。 
4、如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型，你必须要保证该列的数据类型一致。<--以上是从经典论坛找到的说明--> 
如下图 我们看看一个excle表格常见的格式。

今天花时间研究了一下ADO操作Excel文件的问题，跟大家分享一下：

首先利用Excel2003创建了一个名为Demo.xls的文件，内容如下：

Name	Age
TY	12
TZL	15

然后打开VC，创建一个命令行应用程序。然后如一般的ADO程序一样编写相应代码，只是注意打开数据库的代码如下写：

m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.xls;Extended Properties=/"Excel 8.0;HDR=No;IMEX=1/"","","",adModeUnknown);
  

注意一下HDR，如果后面是No的话，表示ADO将不把你Excel文件的第一行作为字段名（此时使用默认字段名：F1，F2。。以此类推，当然也可以用(LPCTSTR)m_pRecordset->GetFields()->GetItem((_variant_t)zz)->Name之类的代码来获得相应的字段名）。否则如上Excel文件的字段名将是Name与Age。另外是IMEX，如果设置了"IMEX=1;" 则通知驱动程序始终将“互混”（数字，日期，字符串等）数据列作为文本读取，同时这个选项有可能影响到excel表格拒绝写操作，也就是说，如果我们要求写入excel的话，这个选项不能被设置。

接下来是打开记录集，代码如下（注意一下表名的写法）：

m_pRecordset->Open("select * from [Sheet1$]",_variant_t((IDispatch*)m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdUnknown);

知道了字段名，打开了数据库跟记录集，随后的操作就跟普通ADO的操作一样了：

读取操作：

while(!m_pRecordset->adoEOF)
{
 _variant_t var = m_pRecordset->GetCollect("Name");
 if(var.vt != VT_NULL)
  _bstr_t strName = (LPCSTR)_bstr_t(var);
 var = m_pRecordset->GetCollect("Age");
 if(var.vt != VT_NULL)
  _bstr_t strAge = (LPCSTR)_bstr_t(var);

 string strMid = strName + "--> " + strAge;
 cout<<strMid.c_str()<<endl;

 m_pRecordset->MoveNext();
}

插入操作：

m_pRecordset->AddNew();
m_pRecordset->PutCollect("Name",_variant_t("zz"));
m_pRecordset->PutCollect("Age",_variant_t("23"));
m_pRecordset->Update();

更新操作：

m_pRecordset->MoveFirst();
m_pRecordset->PutCollect("Name",_variant_t("zz"));
m_pRecordset->Update();

删除操作：

不支持！这也是感到很遗憾的地方。好在我们可以通过执行 update [Sheet1$] set Name=NULL, Age=NULL where Name='zz'  之类的SQL语句来实现类似功能。当然，你要知道的是，这一行并没有真正删除掉，所以通常在select的时候要进行一定的筛选，例如：select * from [Sheet1$] where Name is not NULL;

其它注意事项：

如果通过执行SQL语句的方法完成数据插入与更新操作，需要注意所有的字段，包括数字，都要按文本来处理，否则会报类型不正确的错误。