ADO打开EXCEL文件的参数是什么？

Question

ADO打开EXCEL文件的参数是什么？

Answer 1

在VC中彻底玩转Excel　 作者：龚敏   来源：子玉山庄     如今Excel是越来越重要了，在我们自己开发的程序中不免要和Excel打交道了。利用Automation技术，我们可以在不去了解
数据库的情况下玩转Excel，而且你会发现一切竟如此轻松！
    好了，咱们开始吧，我不喜欢用长篇累牍的代码来故弄玄虚，所以下面的代码都是切中要害的片段，总体上是个连贯的过程，
包括启动Excel，读取数据，写入数据，以及最后的关闭Excel，其中还包括了很多人感兴趣的合并单元格的处理。
    特别说明以下代码需要MFC的支持，而且工程中还要包含EXCEL2000的定义文件：EXCEL9.H，EXCEL9.CPP***************************************************************************************************************** //*****
 //变量定义
 _Application app;    
 Workbooks books;
 _Workbook book;
 Worksheets sheets;
 _Worksheet sheet;
 Range range;
 Range iCell;
 LPDISPATCH lpDisp;    
 COleVariant vResult;
 COleVariant
        covTrue((short)TRUE),
        covFalse((short)FALSE),
        covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);    
 
 
 //*****
 //初始化COM的动态连接库
 if(!AfxOleInit())  
 {
        AfxMessageBox("无法初始化COM的动态连接库!");
        return ;
     }   
 
 
 //*****
 //创建Excel 2000服务器(启动Excel)
 if(!app.CreateDispatch("Excel.Application")) 
 {
  AfxMessageBox("无法启动Excel服务器!");
    return;
 }
 
 app.SetVisible(TRUE);          //使Excel可见
 app.SetUserControl(TRUE);      //允许其它用户控制Excel
  //*****   
 //打开c:\\1.xls
 books.AttachDispatch(app.GetWorkbooks());
 lpDisp = books.Open("C:\\\\1.xls",      
   covOptional, covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional );    
  
     
 //*****
 //得到Workbook
 book.AttachDispatch(lpDisp);
 
 
 //*****
 //得到Worksheets 
 sheets.AttachDispatch(book.GetWorksheets()); 
 
 
 //*****
 //得到当前活跃sheet
 //如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
 lpDisp=book.GetActiveSheet();
 sheet.AttachDispatch(lpDisp); 
   //*****
 //读取已经使用区域的信息，包括已经使用的行数、列数、起始行、起始列
 Range usedRange;
 usedRange.AttachDispatch(sheet.GetUsedRange());
 range.AttachDispatch(usedRange.GetRows());
 long iRowNum=range.GetCount();                   //已经使用的行数
 
 range.AttachDispatch(usedRange.GetColumns());
 long iColNum=range.GetCount();                   //已经使用的列数
  
 long iStartRow=usedRange.GetRow();               //已使用区域的起始行，从1开始
 long iStartCol=usedRange.GetColumn();            //已使用区域的起始列，从1开始
  
  
 //*****
 //读取第一个单元格的值
 range.AttachDispatch(sheet.GetCells()); 
 range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
 COleVariant vResult =range.GetValue();
 CString str;
 if(vResult.vt == VT_BSTR)       //字符串
 {
  str=vResult.bstrVal;
 }
 else if (vResult.vt==VT_R8)     //8字节的数字 
 {
  str.Format("%f",vResult.dblVal);
 }
 else if(vResult.vt==VT_DATE)    //时间格式
 {
  SYSTEMTIME st;
     VariantTimeToSystemTime(&vResult.date, &st);
 }
 else if(vResult.vt==VT_EMPTY)   //单元格空的
 {
  str="";
 }  
 
 
 //*****
 //读取第一个单元格的对齐方式，数据类型:VT_I4
 //读取水平对齐方式
 range.AttachDispatch(sheet.GetCells());
 iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
 vResult.lVal=0;
 vResult=iCell.GetHorizontalAlignment();
 if(vResult.lVal!=0)
 {
  switch (vResult.lVal)
  {
  case 1:      //默认
   break;
  case -4108:  //居中
   break;
  case -4131 : //靠左
   break;
  case -4152 : //靠右
   break;
  }
 
 }
  
 //垂直对齐方式
 iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
 vResult.lVal=0;
 vResult=iCell.GetVerticalAlignment();
 if(vResult.lVal!=0)
 {
  switch (vResult.lVal)
  {
  case -4160 :  //靠上
   break;
  case -4108 :  //居中
   break;
  case -4107 :  //靠下
   break;
  }
 
 }
 
  
 //*****
 //设置第一个单元格的值"HI,EXCEL!"
 range.SetItem(COleVariant(1),COleVariant(1),COleVariant("HI,EXCEL!")); 
  //*****
 //设置第一个单元格字体颜色:红色
 Font font;
 range.AttachDispatch(sheet.GetCells());
 range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
 font.SetColor(COleVariant((long)0xFF0000));  
 
 
 //*****
 //合并单元格的处理
 //包括判断第一个单元格是否为合并单元格，以及将第一个单元格进行合并
 Range unionRange;
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
  
 vResult=unionRange.GetMergeCells();    
 if(vResult.boolVal==-1)             //是合并的单元格    
 {
  //合并单元格的行数 
  range.AttachDispatch (unionRange.GetRows ());
  long iUnionRowNum=range.GetCount (); 
   
  //合并单元格的列数
  range.AttachDispatch (unionRange.GetColumns ());
  long iUnionColumnNum=range.GetCount ();   
  
  //合并区域的起始行，列
  long iUnionStartRow=unionRange.GetRow();       //起始行，从1开始
  long iUnionStartCol=unionRange.GetColumn();    //起始列，从1开始
  
 }
 else if(vResult.boolVal==0)   
 {//不是合并的单元格}
 
 //将第一个单元格合并成2行，3列
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)3)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 
 
 //*****
 //将文件保存为2.xls 
 book.SaveAs(COleVariant("C:\\\\2.xls"),covOptional,covOptional, \\
  covOptional,covOptional,covOptional,0,\\
  covOptional,covOptional,covOptional,covOptional);  
  
  
 //*****
 //关闭所有的book，退出Excel 
 book.Close (covOptional,COleVariant(OutFilename),covOptional);
 books.Close();      
 app.Quit();

Answer 2

ODBC：直接通过ODBC读、写Excel表格文件　 作者：徐景周   来源：VC编程网       想要通过ODBC直接读、写Excel表格文件，首先，应确保ODBC中已安装有Excel表格文件的驱动"MICROSOFT EXCEL DRIVER (*.XLS)"。然后，可根据下面步骤进行：
1. 在StdAfx.h文件中加入：
#include <afxdb.h> 
#include <odbcinst.h>2. 通过ODBC直接创建Excel文件(暂定文件名：Demo.xls)
//创建并写入Excel文件
void CRWExcel::WriteToExcel()
{
CDatabase database;
CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
CString sExcelFile = "c:\\demo.xls"; // 要建立的Excel文件
CString sSql;TRY
{
// 创建进行存取的字符串
sSql.Format("DRIVER={%s};DSN=;FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, sExcelFile, sExcelFile);// 创建数据库 (既Excel表格文件)
if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
{
// 创建表结构(姓名、年龄)
sSql = "CREATE TABLE demo (Name TEXT,Age NUMBER)";
database.ExecuteSQL(sSql);// 插入数值
sSql = "INSERT INTO demo (Name,Age) VALUES (徐景周,26)";
database.ExecuteSQL(sSql);sSql = "INSERT INTO demo (Name,Age) VALUES (徐志慧,22)";
database.ExecuteSQL(sSql);sSql = "INSERT INTO demo (Name,Age) VALUES (郭徽,27)";
database.ExecuteSQL(sSql);
} // 关闭数据库
database.Close();
}
CATCH_ALL(e)
{
TRACE1("Excel驱动没有安装: %s",sDriver);
}
END_CATCH_ALL;
}3. 通过ODBC直接读取Excel文件(暂定文件名：Demo.xls)
// 读取Excel文件
void CRWExcel::ReadFromExcel() 
{
CDatabase database;
CString sSql;
CString sItem1, sItem2;
CString sDriver;
CString sDsn;
CString sFile = "Demo.xls"; // 将被读取的Excel文件名// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
sDriver = GetExcelDriver();
if (sDriver.IsEmpty())
{
// 没有发现Excel驱动
AfxMessageBox("没有安装Excel驱动!");
return;
}// 创建进行存取的字符串
sDsn.Format("ODBC;DRIVER={%s};DSN=;DBQ=%s", sDriver, sFile);TRY
{
// 打开数据库(既Excel文件)
database.Open(NULL, false, false, sDsn);CRecordset recset(&database);// 设置读取的查询语句.
sSql = "SELECT Name, Age " 
"FROM demo " 
"ORDER BY Name ";// 执行查询语句
recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);// 获取查询结果
while (!recset.IsEOF())
{
//读取Excel内部数值
recset.GetFieldValue("Name ", sItem1);
recset.GetFieldValue("Age", sItem2);// 移到下一行
recset.MoveNext();
}// 关闭数据库
database.Close();}
CATCH(CDBException, e)
{
// 数据库操作产生异常时...
AfxMessageBox("数据库错误: " + e->m_strError);
}
END_CATCH;
}
// 获取ODBC中Excel驱动
CString CRWExcel::GetExcelDriver()
{
char szBuf[2001];
WORD cbBufMax = 2000;
WORD cbBufOut;
char *pszBuf = szBuf;
CString sDriver;// 获取已安装驱动的名称(涵数在odbcinst.h里)
if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
return "";// 检索已安装的驱动是否有Excel...
do
{
if (strstr(pszBuf, "Excel") != 0)
{
//发现 !
sDriver = CString(pszBuf);
break;
}
pszBuf = strchr(pszBuf, \0) + 1;
}
while (pszBuf[1] != \0);return sDriver;
}

Answer 3

这是以前看的资料，ADO的不曾使用，楼主可以搜索一下