作者：乔山办公网日期：
返回目录：excel表格制作
第一步：建立一个自动化工程e79fa5e98193e4b893e5b19e335
启动VC 6.0，打开新建对话框，新建一个MFC
AppWizard(exe)工程，这里工程明设置为TestExcel。
进入MFC 应用程序向导，选择
基本对话框，直接点击完成：
打开MFC
ClassWizard窗口(查看—>建立类向导)，选择Automation，单击Add
Class按钮，选择From a type library...，弹出文件选择对话框，之后定位到Microsoft
Office的安装目录(通常为C:\Program
Files\Microsoft Office\Office12)，选择EXCEL.exe注意，确定后，弹出Confirm
Classes窗口，选择列表中的所有类，单击OK按钮。
注意 原来文章里说的文件名是EXCEL9.OLB，因安装的Office版本不同而有所差异，EXCEL9.OLB对应的是Microsoft
Office 2000，微软命名方式为Excel+数字的形式，Office版本越高，数字越大。在我用的office2007里直接用的exe文件
返回编辑器，查看工程文件，可发现多了EXCEL.H及EXCEL.CPP两个文件。
然后通过excel类就可以操作了!
转载：
首先利用Visual C++ 6.0，建立一个MFC基于对话框的工程项目，共享DLL，Win32平台。工程名称ExcelTest。在主对话框中加入一个按钮，
ID IDC_EXCELTEST
Caption Test Excel
双击该按钮，增加成员函数void CExcelTestDlg::OnExceltest()。
在BOOL CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代码：
if (CoInitialize(NULL)!=0)
{
AfxMessageBox("初始化COM支持库失败!");
exit(1);
}
在return FALSE; 语句前，加入：
CoUninitialize();
选择Menu->View->ClassWizade，打开ClassWizade窗口，选择Add Class->From a type library，选择D:\Program Files\Microsoft Office\office\Excel9.OLB(D:\Program Files\Microsoft Office\是本机上Microsoft Office 2000的安装目录，可根据个人机器上的实际安装目录修改)。选择_Application、Workbooks、_Workbook、 Worksheets、_Worksheet、Range，加入新类，分别为_Application、Workbooks、_Workbook、 Worksheets、_Worksheet、Range，头文件Excel9.h，源文件Excel9.cpp。
在ExcelTestDlg.cpp文件的头e799bee5baa6e79fa5e98193e4b893e5b19e363部，#include "ExcelTestDlg.h"语句之下，增加 ：
#include "comdef.h"
#include "Excel9.h"
在void CExcelTestDlg::OnExceltest() 函数中增加如下代码：
void CExcelTestDlg::OnExceltest()
{
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
//创建Excel 2000服务器(启动Excel)
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("创建Excel服务失败!");
exit(1);
}
//利用模板文件建立新文档
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("g:\\exceltest\\MyTemplate.xlt")));
//得到Worksheets
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
//得到sheet1
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
//得到全部Cells，此时,rgMyRge是cells的集合
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
//设置1行1列的单元的值
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("This Is A Excel Test Program!"));
//得到所有的列
rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);
//得到第一列
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true);
//设置列宽
rgMyRge.SetColumnWidth(_variant_t((long)200));
//调用模板中预先存放的宏
ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
//打印预览
wbMyBook.SetSaved(true);
ExcelApp.SetVisible(true);
wbMyBook.PrintPreview(_variant_t(false));
//释放对象
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
ExcelApp.ReleaseDispatch();
}
用ADO数据库编来程，同自访问数据百库一样。 仅仅度是初始化问不同（ _bstr_t strConnect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\mydb.xls;Extended Properties=Excel 5.0;Persist Security Info=False";）。答
用ADO数据库编程，同访问数据库一样。
仅仅是初始化不同（ _bstr_t strConnect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\mydb.xls;Extended Properties=Excel 5.0;Persist Security Info=False";）。
下面是俺复制的网上的例子~~
void ConnDb()
{
_ConnectionPtr m_pConnection;
::CoInitialize(NULL);
try{
//创建Connection 对象
m_pConnection.CreateInstance("ADODB.Connection");
//设置连接e5a48de588b6e799bee5baa6e79fa5e98193363字符串,必须是BSTR型或者_bstr_t类型
_bstr_t strConnect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\mydb.xls;Extended Properties=Excel 5.0;Persist Security Info=False";
m_pConnection->Open(strConnect,"","",adModeUnknown);
_bstr_t vInsertSql="insert into [tb2$](v1,v2) values('2','dd')";
m_pConnection->Execute(vInsertSql,NULL,adCmdText);
_bstr_t vCreateSql="create table tb3(id int,user_nm varchar(20))";
m_pConnection->Execute(vCreateSql,NULL,adCmdText);
m_pConnection->Close();
::CoUninitialize();
}catch(_com_error e) //捕捉异常
{
//AfxMessageBox(e.Description());
cout<<e.Description()<<endl;
}
};
void printNun(double a[][33])
{
for(int i=0;i<33;i++)
{for(int j=0;j<33;j++)
cout<<a[i][j]<<" ";
cout<<endl;
}
};
void ConnExcel()
{
//添加一个指向Recordset 对象的指针
_RecordsetPtr m_pRecordset;
//添加一个指向Connection对象的指针
_ConnectionPtr m_pConnection;
double s[33][33];
::CoInitialize(NULL); //初始化OLE/COM环境,为访问ADO接口做准备
try{
//创建Connection 对象
m_pConnection.CreateInstance("ADODB.Connection");
//设置连接字符串,必须是BSTR型或者_bstr_t类型
_bstr_t strConnect="Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=d:\\mydb.xls";
m_pConnection->Open(strConnect,"","",adModeUnknown);
}catch(_com_error e) //捕捉异常
{
//AfxMessageBox(e.Description());
cout<<e.Description()<<endl;
}
try{
//添加一个指向Recordset 对象的指针
// _RecordsetPtr m_pRecordset;
//创建记录集对象
m_pRecordset.CreateInstance(_uuidof(Recordset));
_bstr_t bstrSQL="SELECT * FROM [tb1$]";
//取得表中的记录
m_pRecordset->Open(bstrSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
//double s[33][33];
int j=0;
while(m_pRecordset->adoEOF!=-1){
for(int i=0;i<33;i++)
{
_variant_t vIndex = (long)i;
_bstr_t str=(_bstr_t) m_pRecordset->GetCollect(vIndex);
s[j][i]=atof(str);
}
m_pRecordset->MoveNext();
j++;
}
// printNun(s);
//_bstr_t vInsertSql="insert into [tb2$](v1,v2) values(1,'dd')";
//m_pConnection->Execute(vInsertSql,NULL,adCmdText);
}catch(_com_error f)
{
cout<<f.Description()<<endl;
}
//关闭记录集和连接
if(m_pRecordset!=NULL)
m_pRecordset->Close();
m_pConnection->Close();
::CoUninitialize();
}
#include<iostream>
using std::cout;
using std::endl;
#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","adoEOF") rename("BOF","adoBOF")
//#include<iomanip>
//using std::setw;