vc中如何创建excel 文件及sheet，如何修改sheet?

[wlpwind]

vc中如何创建excel 文件及sheet，如何修改sheet?

最好有现成的代码。

//在网上找了一个示例代码，我用了里面的类，但是只能添加字符串类型的数据，我要使用数值类型的数据，如何操作？

[gzshd]

数字型数据比如：
COleVariant((short)3);表示short型的3

修改sheet可以用以下代码：
#include "excel9.h"

void CExcelDlg::OnButton1()
{
CoInitialize(NULL);
COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);
//启动EXCEL
_Application oApp;
oApp.CreateDispatch("Excel.Application",NULL);
if (!oApp)
{
AfxMessageBox("不能启动EXCEL");
return;
}
//向工作簿中添加新工作表
Workbooks oBooks = oApp.GetWorkbooks();
_Workbook oBook = oBooks.Add(COleVariant("C:\\My Documents\\c++\\excel\\xxx.xls"));
Worksheets oSheets = oBook.GetWorksheets();
//获取第一张工作表
_Worksheet oSheet = oSheets.GetItem(COleVariant((short)1));
Range r;
r=oSheet.GetRange(COleVariant("A1"),vOpt);//得到第一行第一列的那个单元格
r1.SetValue("CSDN");//将第一行第一列的值设为"CSDN"
CoUninitialize();
}

[commandconque]

可以使用dao 的Create()函数生成一个EXCEL文件并添加数据

[wlpwind]

谢谢，
能不能再就下面这个例子说一下。

创建f.xls,在其中建一个sheet,表的内容是这样的：

head1 head2 head3
row1 23 24 25
row2 12 13 14

[commandconque]

你可以这样写：
CDaoDatabase db;
try{
db.open("",TRUE,FALSE,"Excel 8.0;DATABASE=C:\\???\\????.xls");
CDaoTableDef table(&db);
table.CreateField("字段名"，类型，长度)；
...
table.Append();

[gzshd]

#include "excel9.h"

void CExcelDlg::OnButton1()
{
CoInitialize(NULL);
COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);
//启动EXCEL
_Application oApp;
oApp.CreateDispatch("Excel.Application",NULL);
if (!oApp)
{
AfxMessageBox("不能启动EXCEL");
return;
}
//向工作簿中添加新工作表
Workbooks oBooks = oApp.GetWorkbooks();
_Workbook oBook = oBooks.Add(COleVariant("C:\\My Documents\\c++\\excel\\xxx.xls"));
Worksheets oSheets = oBook.GetWorksheets();
//获取第一张工作表
_Worksheet oSheet = oSheets.GetItem(COleVariant((short)1));
Range r;
r=oSheet.GetRange(COleVariant("A1"),vOpt);//得到第一行第一列的那个单元格
r1.SetValue("23");//将第一行第一列的值设为"23"
r=oSheet.GetRange(COleVariant("B1"),vOpt);//得到第一行第二列的那个单元格
r1.SetValue("24");//将第一行第二列的值设为"24"
r=oSheet.GetRange(COleVariant("C1"),vOpt);//得到第一行第三列的那个单元格
r1.SetValue("25");//将第一行第三列的值设为"25"
r=oSheet.GetRange(COleVariant("A2"),vOpt);//得到第二行第一列的那个单元格
r1.SetValue("12");//将第二行第一列的值设为"12"
r=oSheet.GetRange(COleVariant("B2"),vOpt);//得到第二行第二列的那个单元格
r1.SetValue("13");//将第二行第二列的值设为"13"
r=oSheet.GetRange(COleVariant("C2"),vOpt);//得到第二行第三列的那个单元格
r1.SetValue("14");//将第二行第三列的值设为"14"
CoUninitialize();
}

[bcpl]

写office automation还是用vb吧，用正确的工具做正确的事..