VC6.0 ADO 读取Excel 2003内容，并将读取的数据上传到远程服务器SQL2008表中

最新推荐文章于 2020-01-30 22:20:16 发布

置顶

tanghaili

最新推荐文章于 2020-01-30 22:20:16 发布

阅读量1k

点赞数

分类专栏： vc 文章

本文链接：https://blog.csdn.net/tanghaili/article/details/8314765

版权

这篇博客详细介绍了如何利用VC6.0中的ADO技术，读取Excel 2003文件内容，并将这些数据上传到远程服务器上的SQL Server 2008数据库中。通过创建Dispatch，打开Excel文件，连接Excel工作簿和工作表，然后读取数据，最后使用ADO连接SQL Server并将数据插入指定表。

摘要由CSDN通过智能技术生成

此文主要是讲ADO技术读取本地EXCEL内容，并将内容上传到SQL 2008表中，以下是具体的步骤及代码：

1、首先在工程中引入EXCEL.EXE文件（适用EXCEL 2003，其它版本要引入的文件不一样），按CTRL+W，调用出 MFC ClassWizard设置界面，选择“Automation”列，然后选择“Add Class-->From a type library”，然后再选择office 安装目录，一般在：C:\Program Files\Microsoft Office目录下，我的电脑目录为：C:\Program Files\Microsoft Office\OFFICE11，选择EXCEL.EXE，打开，出现“Confirm classes ”界面，选择框里面的所有内容，点击“OK“即可。

2、在工程中需要打开EXCEL时加入如下代码：

_Workbook workBook;
_Worksheet workSheet;
Workbooks ExcelBook;
Worksheets ExcelSheet;
Range myrange, cell;
COleVariant value;
COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
COleVariant vtTrue((short)TRUE);
COleVariant vtFalse((short)FALSE);
_Application ExcelApp;
LPDISPATCH lpDisp;

if ( !ExcelApp.CreateDispatch( "Excel.Application" ) )
{
  AfxMessageBox("无法启动Excel程序!");
}
ExcelApp.SetVisible(FALSE);//Make it visible
ExcelApp.SetStandardFont( "Arial" );//Set the font
ExcelApp.SetStandardFontSize( 10.00 );
int i = 0, j = 0;
char buf[256];
UpdateData( TRUE );//读取数据
GetCurrentDirectory(256, buf);
HANDLE hFile = CreateFile( m_FileNameAndPath,\
      GENERIC_READ | GENERIC_WRITE,\
      0,\