最好能给出详细步骤。。。
14 个解决方案
#1
我知道的两个方法
1、通过ODBC,把excel当做数据库处理
2.、通过office提供的com接口,可以处理office很多文档。
1、通过ODBC,把excel当做数据库处理
2.、通过office提供的com接口,可以处理office很多文档。
#2
详细步骤去网上查吧
#3
#include "CSpreadSheet.h"
// 新建Excel文件名及路径,TestSheet为内部表名
CSpreadSheet SS("c:\\Test.xls", "TestSheet");
CStringArray sampleArray, testRow;
SS.BeginTransaction();
// 加入标题
sampleArray.RemoveAll();
sampleArray.Add("姓名");
sampleArray.Add("年龄");
SS.AddHeaders(sampleArray);
// 加入数据
CString strName[] = {"徐景周","徐志慧","郭徽","牛英俊","朱小鹏"};
CString strAge[] = {"27","23","28","27","26"};
for(int i = 0; i < sizeof(strName)/sizeof(CString); i++)
{
sampleArray.RemoveAll();
sampleArray.Add(strName[i]);
sampleArray.Add(strAge[i]);
SS.AddRow(sampleArray);
}
SS.Commit();
CSpreadSheet SS("c:\\Test.xls", "TestSheet");
CStringArray Rows, Column;
//清空列表框
m_AccessList.ResetContent();
for (int i = 1; i <= SS.GetTotalRows(); i++)
{
// 读取一行
SS.ReadRow(Rows, i);
CString strContents = "";
for (int j = 1; j <= Rows.GetSize(); j++)
{
if(j == 1)
strContents = Rows.GetAt(j-1);
else
strContents = strContents + " --> " + Rows.GetAt(j-1);
}
m_AccessList.AddString(strContents);
}
#4
呵呵
看看
看看
#5
兄弟,最简单的办法其实就是投机取巧QQ7199963
void CXXXDlg::OnButton1()
{
CString Name[5] = {"AAA","BBB","CCC","DDD","EEE"};
CString Sex[5] = {"男","女","女","男","女"};
CString Age[5] = {"27","23","28","27","26"};
FILE *fp;
fp=fopen("d:\\不信你看.xls","w");
int i;
fprintf(fp,"\n\t姓名\t性别\t年龄\n");
for(i=0;i<5;i++)
fprintf(fp,"\t%s\t%s\t%s\n",Name[i],Sex[i],Age[i]);
fclose(fp);
}
#6
up,你可以看这个然后在套啊!~~
#7
mark 纯属学习
#8
其实Excel文件是一个XML文档
结构自己研究吧
结构自己研究吧
#9
好了,咱们开始吧,我不喜欢用长篇累牍的代码来故弄玄虚,所以下面的代码都是切中要害的片段,总体上是个连贯的过程,
包括启动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();
关于excel.h和excel.cpp,要注意版本问题.
比如对excel xp, 类库是直接包含在excel.exe中. 因此你只要用加入类(add class)的方法,直接选中excel.exe,并选择对话框中的常用的几个类(如Rang)就可以编程了. 千万不要选所有的类,否则太大了.
作者:unionsoft 2003-11-29 11:00:34)
修改字体颜色的那段漏了一句,应为:
//*****
// 设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
作者:zhengkuo 2003-12-2 10:50:00)
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
作者:zhengkuo 2003-12-2 10:51:50)
请教高手,能否用vb控制excel做成dll,在arx中进行调用,因为毕竟vb与excel亲切
作者:unionsoft 2004-1-30 11:06:58)
以下是引用zhengkuo在2003-12-2 10:50:00的发言:
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
兼容性问题:
office2002-office97是向下兼容的,只要你不使用office2002中的新特性,程序在这些office版本中都好用
Excel程序不能退出的问题:
1 . 不要使用#import导入类型库,如:#import "c:\\excel\\excel.olb"
2 . 程序结束时,确保所有IDispatch都释放了,如:app.ReleaseDispatch ();
作者:easypower 2004-5-14 10:00:39)
還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教
作者:jack1975 2004-6-24 16:43:03)
有版本问题时,可以加一个判断:1、首先通过 exlApp得到版本,比如9.0,10.0,11.0,10.0以后的版本注意open函数的参数为15个,即最后在增加两个covOptional,即可,另外,补充一下,判断当前是否有excel应用程序在运行,使之更舒服一些:
::CLSIDFromProgID(L"Excel.Application",&clsid); // from registry
if(::GetActiveObject(clsid, NULL,&pUnk) == S_OK)
{
VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**) &pDisp) == S_OK);
ExcelApp.AttachDispatch(pDisp);
pUnk->Release();
}
else
{
if(!ExcelApp.CreateDispatch("Excel.Application")) {
AfxMessageBox("Excel program not found");
return 0;
}
}
作者:unionsoft 2004-12-13 12:36:09)
以下是引用zhmary在2004-12-10 11:30:10的发言:
请问各位高手,从哪里得onclick=Cswf() height=22 alt=Flash图片 src="skins/default/ubb/swf.gif" width=23 border=0>到Excel.cp...
Excel.cpp和Excel.h是从Excel的类型库中获取的,类型库类似C++中的头文件,包括接口,方法,属性的定义;类型库在Excel的安装目录可以找到,Excel的版本不同,这个类型库也不一样,如下所示:
Excel 95 and prior : xl5en32.olb
Excel 97 : excel8.olb
Excel 2000 : excel9.olb
Excel 2002 : excel.exe
具体的获取方法:
1 . 使用VC++新建立一个基于MFC的EXE工程
2 . 点击菜单"查看"-->"建立类向导",此时会弹全"MFC ClassWizard"对话框
3 . 点击"Add Class"-->"From a type libray",指定Excel的type libray,在Excel的安装目录下可以找到,如:"D:\\Microsoft Office\\Office\\EXCEL9.OLB"
4 . 在弹出的对话框中选择所需的类,按"确定",Excel.cpp和Excel.h就产生了。
作者:yfy2003 2004-12-23 17:41:57)
lpDisp = books.Open("C:\\\\1.xls",
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );
编译显示错误:
error C2660: 'Open' : function does not take 13 parameters
作者:xux4618 2005-4-6 8:48:51)
请问怎样才能增加一个工作表?
作者:梦幻神话 2005-4-6 15:50:40)
Workbooks.AttachDispatch(ExcelApp.GetWorkbooks());
Workbook.AttachDispatch(Workbooks.Open(FileName,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional));
Worksheets.AttachDispatch(Workbook.GetWorksheets());
Worksheet.AttachDispatch(Worksheets.GetItem((COleVariant((long)1))));
Range.AttachDispatch(Worksheet.GetCells());
iCell.AttachDispatch(Range.GetItem(COleVariant((long)2),COleVariant((long)2)).pdispVal);
vResult = iCell.GetMergeCells();
if(vResult.boolVal == -1)
{
AfxMessageBox("Yes");
Range.AttachDispatch(iCell.GetRows());
long row_num = Range.GetCount();
Range.AttachDispatch(iCell.GetColumns());
long col_num = Range.GetCount();
CString str;
str.Format("%d×%d",row_num,col_num);
AfxMessageBox(str);
}
请教:为什么str得到的结果都是1×1?(求合并单元格的原始行数和列数)。
谢谢。。。。。。。。。。
作者:unionsoft 2005-4-9 10:13:25)
首先你的Cells(2,2)是否处于合并单元格中
其次,你缺少了个关键语句:iCell.GetMergeArea()),你可以参考下面的语句
Range UnionRange;
UnionRange.AttachDispatch(iCell.GetMergeArea()); //先要获取合并区域
range.AttachDispatch (UnionRange.GetRows ());
long iRowNum = range.GetCount(); //合并单元格行数
range.AttachDispatch (UnionRange.GetColumns ());
long iColNum = Range.GetCount(); //合并单元格列数
我就想在excel里 实现,第一行为标题(居中)
第二行为时间(左对齐),下面为9列数据.最后一行为签名(左对齐)
怎么办? 回复 更多评论
# re: [转]在VC中彻底玩转Excel
2006-11-26 17:24 | 好学者
修改字体颜色的那段漏了一句,应为:
//*****
//设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
包括启动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();
关于excel.h和excel.cpp,要注意版本问题.
比如对excel xp, 类库是直接包含在excel.exe中. 因此你只要用加入类(add class)的方法,直接选中excel.exe,并选择对话框中的常用的几个类(如Rang)就可以编程了. 千万不要选所有的类,否则太大了.
作者:unionsoft 2003-11-29 11:00:34)
修改字体颜色的那段漏了一句,应为:
//*****
// 设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
作者:zhengkuo 2003-12-2 10:50:00)
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
作者:zhengkuo 2003-12-2 10:51:50)
请教高手,能否用vb控制excel做成dll,在arx中进行调用,因为毕竟vb与excel亲切
作者:unionsoft 2004-1-30 11:06:58)
以下是引用zhengkuo在2003-12-2 10:50:00的发言:
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
兼容性问题:
office2002-office97是向下兼容的,只要你不使用office2002中的新特性,程序在这些office版本中都好用
Excel程序不能退出的问题:
1 . 不要使用#import导入类型库,如:#import "c:\\excel\\excel.olb"
2 . 程序结束时,确保所有IDispatch都释放了,如:app.ReleaseDispatch ();
作者:easypower 2004-5-14 10:00:39)
還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教
作者:jack1975 2004-6-24 16:43:03)
有版本问题时,可以加一个判断:1、首先通过 exlApp得到版本,比如9.0,10.0,11.0,10.0以后的版本注意open函数的参数为15个,即最后在增加两个covOptional,即可,另外,补充一下,判断当前是否有excel应用程序在运行,使之更舒服一些:
::CLSIDFromProgID(L"Excel.Application",&clsid); // from registry
if(::GetActiveObject(clsid, NULL,&pUnk) == S_OK)
{
VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**) &pDisp) == S_OK);
ExcelApp.AttachDispatch(pDisp);
pUnk->Release();
}
else
{
if(!ExcelApp.CreateDispatch("Excel.Application")) {
AfxMessageBox("Excel program not found");
return 0;
}
}
作者:unionsoft 2004-12-13 12:36:09)
以下是引用zhmary在2004-12-10 11:30:10的发言:
请问各位高手,从哪里得onclick=Cswf() height=22 alt=Flash图片 src="skins/default/ubb/swf.gif" width=23 border=0>到Excel.cp...
Excel.cpp和Excel.h是从Excel的类型库中获取的,类型库类似C++中的头文件,包括接口,方法,属性的定义;类型库在Excel的安装目录可以找到,Excel的版本不同,这个类型库也不一样,如下所示:
Excel 95 and prior : xl5en32.olb
Excel 97 : excel8.olb
Excel 2000 : excel9.olb
Excel 2002 : excel.exe
具体的获取方法:
1 . 使用VC++新建立一个基于MFC的EXE工程
2 . 点击菜单"查看"-->"建立类向导",此时会弹全"MFC ClassWizard"对话框
3 . 点击"Add Class"-->"From a type libray",指定Excel的type libray,在Excel的安装目录下可以找到,如:"D:\\Microsoft Office\\Office\\EXCEL9.OLB"
4 . 在弹出的对话框中选择所需的类,按"确定",Excel.cpp和Excel.h就产生了。
作者:yfy2003 2004-12-23 17:41:57)
lpDisp = books.Open("C:\\\\1.xls",
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );
编译显示错误:
error C2660: 'Open' : function does not take 13 parameters
作者:xux4618 2005-4-6 8:48:51)
请问怎样才能增加一个工作表?
作者:梦幻神话 2005-4-6 15:50:40)
Workbooks.AttachDispatch(ExcelApp.GetWorkbooks());
Workbook.AttachDispatch(Workbooks.Open(FileName,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional));
Worksheets.AttachDispatch(Workbook.GetWorksheets());
Worksheet.AttachDispatch(Worksheets.GetItem((COleVariant((long)1))));
Range.AttachDispatch(Worksheet.GetCells());
iCell.AttachDispatch(Range.GetItem(COleVariant((long)2),COleVariant((long)2)).pdispVal);
vResult = iCell.GetMergeCells();
if(vResult.boolVal == -1)
{
AfxMessageBox("Yes");
Range.AttachDispatch(iCell.GetRows());
long row_num = Range.GetCount();
Range.AttachDispatch(iCell.GetColumns());
long col_num = Range.GetCount();
CString str;
str.Format("%d×%d",row_num,col_num);
AfxMessageBox(str);
}
请教:为什么str得到的结果都是1×1?(求合并单元格的原始行数和列数)。
谢谢。。。。。。。。。。
作者:unionsoft 2005-4-9 10:13:25)
首先你的Cells(2,2)是否处于合并单元格中
其次,你缺少了个关键语句:iCell.GetMergeArea()),你可以参考下面的语句
Range UnionRange;
UnionRange.AttachDispatch(iCell.GetMergeArea()); //先要获取合并区域
range.AttachDispatch (UnionRange.GetRows ());
long iRowNum = range.GetCount(); //合并单元格行数
range.AttachDispatch (UnionRange.GetColumns ());
long iColNum = Range.GetCount(); //合并单元格列数
我就想在excel里 实现,第一行为标题(居中)
第二行为时间(左对齐),下面为9列数据.最后一行为签名(左对齐)
怎么办? 回复 更多评论
# re: [转]在VC中彻底玩转Excel
2006-11-26 17:24 | 好学者
修改字体颜色的那段漏了一句,应为:
//*****
//设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
#10
两个方法任选一个:
1. 自己解析excel文件
楼主位的excel文件比较简单,因此解析这种excel文件是可能的。是生成表格的话,代码会更精简。
2. 使用上面诸位提到的com,微软的excel程序就是用这种方法做的。需要掌握几十个和excel有关的com组件的用法。
楼主自己去百度吧~
1. 自己解析excel文件
楼主位的excel文件比较简单,因此解析这种excel文件是可能的。是生成表格的话,代码会更精简。
2. 使用上面诸位提到的com,微软的excel程序就是用这种方法做的。需要掌握几十个和excel有关的com组件的用法。
楼主自己去百度吧~
#11
帮顶。
#12
上网BAIDU 有现成的dll 直接移植过来调用 顺便说下您的 结贴率
#13
楼主别以为我开玩笑,这真的可以
只拷贝这段代码到你的程序试试嘛
这是EXCEL的tab型文本的格式
你运行这段代码后用EXCEL打开产生的文件看看嘛
只拷贝这段代码到你的程序试试嘛
这是EXCEL的tab型文本的格式
你运行这段代码后用EXCEL打开产生的文件看看嘛
void CXXXDlg::OnButton1()
{
CString Name[5] = {"AAA","BBB","CCC","DDD","EEE"};
CString Sex[5] = {"男","女","女","男","女"};
CString Age[5] = {"27","23","28","27","26"};
FILE *fp; fp=fopen("d:\\不信你看.xls","w");
int i;
fprintf(fp,"\n\t姓名\t性别\t年龄\n");
for(i=0;i<5;i++)
fprintf(fp,"\t%s\t%s\t%s\n",Name[i],Sex[i],Age[i]);
fclose(fp);
}
#14
gz_qmc的简单!
#1
我知道的两个方法
1、通过ODBC,把excel当做数据库处理
2.、通过office提供的com接口,可以处理office很多文档。
1、通过ODBC,把excel当做数据库处理
2.、通过office提供的com接口,可以处理office很多文档。
#2
详细步骤去网上查吧
#3
#include "CSpreadSheet.h"
// 新建Excel文件名及路径,TestSheet为内部表名
CSpreadSheet SS("c:\\Test.xls", "TestSheet");
CStringArray sampleArray, testRow;
SS.BeginTransaction();
// 加入标题
sampleArray.RemoveAll();
sampleArray.Add("姓名");
sampleArray.Add("年龄");
SS.AddHeaders(sampleArray);
// 加入数据
CString strName[] = {"徐景周","徐志慧","郭徽","牛英俊","朱小鹏"};
CString strAge[] = {"27","23","28","27","26"};
for(int i = 0; i < sizeof(strName)/sizeof(CString); i++)
{
sampleArray.RemoveAll();
sampleArray.Add(strName[i]);
sampleArray.Add(strAge[i]);
SS.AddRow(sampleArray);
}
SS.Commit();
CSpreadSheet SS("c:\\Test.xls", "TestSheet");
CStringArray Rows, Column;
//清空列表框
m_AccessList.ResetContent();
for (int i = 1; i <= SS.GetTotalRows(); i++)
{
// 读取一行
SS.ReadRow(Rows, i);
CString strContents = "";
for (int j = 1; j <= Rows.GetSize(); j++)
{
if(j == 1)
strContents = Rows.GetAt(j-1);
else
strContents = strContents + " --> " + Rows.GetAt(j-1);
}
m_AccessList.AddString(strContents);
}
#4
呵呵
看看
看看
#5
兄弟,最简单的办法其实就是投机取巧QQ7199963
void CXXXDlg::OnButton1()
{
CString Name[5] = {"AAA","BBB","CCC","DDD","EEE"};
CString Sex[5] = {"男","女","女","男","女"};
CString Age[5] = {"27","23","28","27","26"};
FILE *fp;
fp=fopen("d:\\不信你看.xls","w");
int i;
fprintf(fp,"\n\t姓名\t性别\t年龄\n");
for(i=0;i<5;i++)
fprintf(fp,"\t%s\t%s\t%s\n",Name[i],Sex[i],Age[i]);
fclose(fp);
}
#6
up,你可以看这个然后在套啊!~~
#7
mark 纯属学习
#8
其实Excel文件是一个XML文档
结构自己研究吧
结构自己研究吧
#9
好了,咱们开始吧,我不喜欢用长篇累牍的代码来故弄玄虚,所以下面的代码都是切中要害的片段,总体上是个连贯的过程,
包括启动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();
关于excel.h和excel.cpp,要注意版本问题.
比如对excel xp, 类库是直接包含在excel.exe中. 因此你只要用加入类(add class)的方法,直接选中excel.exe,并选择对话框中的常用的几个类(如Rang)就可以编程了. 千万不要选所有的类,否则太大了.
作者:unionsoft 2003-11-29 11:00:34)
修改字体颜色的那段漏了一句,应为:
//*****
// 设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
作者:zhengkuo 2003-12-2 10:50:00)
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
作者:zhengkuo 2003-12-2 10:51:50)
请教高手,能否用vb控制excel做成dll,在arx中进行调用,因为毕竟vb与excel亲切
作者:unionsoft 2004-1-30 11:06:58)
以下是引用zhengkuo在2003-12-2 10:50:00的发言:
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
兼容性问题:
office2002-office97是向下兼容的,只要你不使用office2002中的新特性,程序在这些office版本中都好用
Excel程序不能退出的问题:
1 . 不要使用#import导入类型库,如:#import "c:\\excel\\excel.olb"
2 . 程序结束时,确保所有IDispatch都释放了,如:app.ReleaseDispatch ();
作者:easypower 2004-5-14 10:00:39)
還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教
作者:jack1975 2004-6-24 16:43:03)
有版本问题时,可以加一个判断:1、首先通过 exlApp得到版本,比如9.0,10.0,11.0,10.0以后的版本注意open函数的参数为15个,即最后在增加两个covOptional,即可,另外,补充一下,判断当前是否有excel应用程序在运行,使之更舒服一些:
::CLSIDFromProgID(L"Excel.Application",&clsid); // from registry
if(::GetActiveObject(clsid, NULL,&pUnk) == S_OK)
{
VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**) &pDisp) == S_OK);
ExcelApp.AttachDispatch(pDisp);
pUnk->Release();
}
else
{
if(!ExcelApp.CreateDispatch("Excel.Application")) {
AfxMessageBox("Excel program not found");
return 0;
}
}
作者:unionsoft 2004-12-13 12:36:09)
以下是引用zhmary在2004-12-10 11:30:10的发言:
请问各位高手,从哪里得onclick=Cswf() height=22 alt=Flash图片 src="skins/default/ubb/swf.gif" width=23 border=0>到Excel.cp...
Excel.cpp和Excel.h是从Excel的类型库中获取的,类型库类似C++中的头文件,包括接口,方法,属性的定义;类型库在Excel的安装目录可以找到,Excel的版本不同,这个类型库也不一样,如下所示:
Excel 95 and prior : xl5en32.olb
Excel 97 : excel8.olb
Excel 2000 : excel9.olb
Excel 2002 : excel.exe
具体的获取方法:
1 . 使用VC++新建立一个基于MFC的EXE工程
2 . 点击菜单"查看"-->"建立类向导",此时会弹全"MFC ClassWizard"对话框
3 . 点击"Add Class"-->"From a type libray",指定Excel的type libray,在Excel的安装目录下可以找到,如:"D:\\Microsoft Office\\Office\\EXCEL9.OLB"
4 . 在弹出的对话框中选择所需的类,按"确定",Excel.cpp和Excel.h就产生了。
作者:yfy2003 2004-12-23 17:41:57)
lpDisp = books.Open("C:\\\\1.xls",
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );
编译显示错误:
error C2660: 'Open' : function does not take 13 parameters
作者:xux4618 2005-4-6 8:48:51)
请问怎样才能增加一个工作表?
作者:梦幻神话 2005-4-6 15:50:40)
Workbooks.AttachDispatch(ExcelApp.GetWorkbooks());
Workbook.AttachDispatch(Workbooks.Open(FileName,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional));
Worksheets.AttachDispatch(Workbook.GetWorksheets());
Worksheet.AttachDispatch(Worksheets.GetItem((COleVariant((long)1))));
Range.AttachDispatch(Worksheet.GetCells());
iCell.AttachDispatch(Range.GetItem(COleVariant((long)2),COleVariant((long)2)).pdispVal);
vResult = iCell.GetMergeCells();
if(vResult.boolVal == -1)
{
AfxMessageBox("Yes");
Range.AttachDispatch(iCell.GetRows());
long row_num = Range.GetCount();
Range.AttachDispatch(iCell.GetColumns());
long col_num = Range.GetCount();
CString str;
str.Format("%d×%d",row_num,col_num);
AfxMessageBox(str);
}
请教:为什么str得到的结果都是1×1?(求合并单元格的原始行数和列数)。
谢谢。。。。。。。。。。
作者:unionsoft 2005-4-9 10:13:25)
首先你的Cells(2,2)是否处于合并单元格中
其次,你缺少了个关键语句:iCell.GetMergeArea()),你可以参考下面的语句
Range UnionRange;
UnionRange.AttachDispatch(iCell.GetMergeArea()); //先要获取合并区域
range.AttachDispatch (UnionRange.GetRows ());
long iRowNum = range.GetCount(); //合并单元格行数
range.AttachDispatch (UnionRange.GetColumns ());
long iColNum = Range.GetCount(); //合并单元格列数
我就想在excel里 实现,第一行为标题(居中)
第二行为时间(左对齐),下面为9列数据.最后一行为签名(左对齐)
怎么办? 回复 更多评论
# re: [转]在VC中彻底玩转Excel
2006-11-26 17:24 | 好学者
修改字体颜色的那段漏了一句,应为:
//*****
//设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
包括启动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();
关于excel.h和excel.cpp,要注意版本问题.
比如对excel xp, 类库是直接包含在excel.exe中. 因此你只要用加入类(add class)的方法,直接选中excel.exe,并选择对话框中的常用的几个类(如Rang)就可以编程了. 千万不要选所有的类,否则太大了.
作者:unionsoft 2003-11-29 11:00:34)
修改字体颜色的那段漏了一句,应为:
//*****
// 设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
作者:zhengkuo 2003-12-2 10:50:00)
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
作者:zhengkuo 2003-12-2 10:51:50)
请教高手,能否用vb控制excel做成dll,在arx中进行调用,因为毕竟vb与excel亲切
作者:unionsoft 2004-1-30 11:06:58)
以下是引用zhengkuo在2003-12-2 10:50:00的发言:
如果,程序既要安装在2000的计算机上,也可能安装在XP的机子上,有的用户还用97,(指的都是office),可能会出现版本问题------其中比较麻烦的是--在app.quit()后,仍旧存在excel进程,如果这样?怎么解决?
兼容性问题:
office2002-office97是向下兼容的,只要你不使用office2002中的新特性,程序在这些office版本中都好用
Excel程序不能退出的问题:
1 . 不要使用#import导入类型库,如:#import "c:\\excel\\excel.olb"
2 . 程序结束时,确保所有IDispatch都释放了,如:app.ReleaseDispatch ();
作者:easypower 2004-5-14 10:00:39)
還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教
作者:jack1975 2004-6-24 16:43:03)
有版本问题时,可以加一个判断:1、首先通过 exlApp得到版本,比如9.0,10.0,11.0,10.0以后的版本注意open函数的参数为15个,即最后在增加两个covOptional,即可,另外,补充一下,判断当前是否有excel应用程序在运行,使之更舒服一些:
::CLSIDFromProgID(L"Excel.Application",&clsid); // from registry
if(::GetActiveObject(clsid, NULL,&pUnk) == S_OK)
{
VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**) &pDisp) == S_OK);
ExcelApp.AttachDispatch(pDisp);
pUnk->Release();
}
else
{
if(!ExcelApp.CreateDispatch("Excel.Application")) {
AfxMessageBox("Excel program not found");
return 0;
}
}
作者:unionsoft 2004-12-13 12:36:09)
以下是引用zhmary在2004-12-10 11:30:10的发言:
请问各位高手,从哪里得onclick=Cswf() height=22 alt=Flash图片 src="skins/default/ubb/swf.gif" width=23 border=0>到Excel.cp...
Excel.cpp和Excel.h是从Excel的类型库中获取的,类型库类似C++中的头文件,包括接口,方法,属性的定义;类型库在Excel的安装目录可以找到,Excel的版本不同,这个类型库也不一样,如下所示:
Excel 95 and prior : xl5en32.olb
Excel 97 : excel8.olb
Excel 2000 : excel9.olb
Excel 2002 : excel.exe
具体的获取方法:
1 . 使用VC++新建立一个基于MFC的EXE工程
2 . 点击菜单"查看"-->"建立类向导",此时会弹全"MFC ClassWizard"对话框
3 . 点击"Add Class"-->"From a type libray",指定Excel的type libray,在Excel的安装目录下可以找到,如:"D:\\Microsoft Office\\Office\\EXCEL9.OLB"
4 . 在弹出的对话框中选择所需的类,按"确定",Excel.cpp和Excel.h就产生了。
作者:yfy2003 2004-12-23 17:41:57)
lpDisp = books.Open("C:\\\\1.xls",
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );
编译显示错误:
error C2660: 'Open' : function does not take 13 parameters
作者:xux4618 2005-4-6 8:48:51)
请问怎样才能增加一个工作表?
作者:梦幻神话 2005-4-6 15:50:40)
Workbooks.AttachDispatch(ExcelApp.GetWorkbooks());
Workbook.AttachDispatch(Workbooks.Open(FileName,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional));
Worksheets.AttachDispatch(Workbook.GetWorksheets());
Worksheet.AttachDispatch(Worksheets.GetItem((COleVariant((long)1))));
Range.AttachDispatch(Worksheet.GetCells());
iCell.AttachDispatch(Range.GetItem(COleVariant((long)2),COleVariant((long)2)).pdispVal);
vResult = iCell.GetMergeCells();
if(vResult.boolVal == -1)
{
AfxMessageBox("Yes");
Range.AttachDispatch(iCell.GetRows());
long row_num = Range.GetCount();
Range.AttachDispatch(iCell.GetColumns());
long col_num = Range.GetCount();
CString str;
str.Format("%d×%d",row_num,col_num);
AfxMessageBox(str);
}
请教:为什么str得到的结果都是1×1?(求合并单元格的原始行数和列数)。
谢谢。。。。。。。。。。
作者:unionsoft 2005-4-9 10:13:25)
首先你的Cells(2,2)是否处于合并单元格中
其次,你缺少了个关键语句:iCell.GetMergeArea()),你可以参考下面的语句
Range UnionRange;
UnionRange.AttachDispatch(iCell.GetMergeArea()); //先要获取合并区域
range.AttachDispatch (UnionRange.GetRows ());
long iRowNum = range.GetCount(); //合并单元格行数
range.AttachDispatch (UnionRange.GetColumns ());
long iColNum = Range.GetCount(); //合并单元格列数
我就想在excel里 实现,第一行为标题(居中)
第二行为时间(左对齐),下面为9列数据.最后一行为签名(左对齐)
怎么办? 回复 更多评论
# re: [转]在VC中彻底玩转Excel
2006-11-26 17:24 | 好学者
修改字体颜色的那段漏了一句,应为:
//*****
//设置第一个单元格字体颜色:红色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
#10
两个方法任选一个:
1. 自己解析excel文件
楼主位的excel文件比较简单,因此解析这种excel文件是可能的。是生成表格的话,代码会更精简。
2. 使用上面诸位提到的com,微软的excel程序就是用这种方法做的。需要掌握几十个和excel有关的com组件的用法。
楼主自己去百度吧~
1. 自己解析excel文件
楼主位的excel文件比较简单,因此解析这种excel文件是可能的。是生成表格的话,代码会更精简。
2. 使用上面诸位提到的com,微软的excel程序就是用这种方法做的。需要掌握几十个和excel有关的com组件的用法。
楼主自己去百度吧~
#11
帮顶。
#12
上网BAIDU 有现成的dll 直接移植过来调用 顺便说下您的 结贴率
#13
楼主别以为我开玩笑,这真的可以
只拷贝这段代码到你的程序试试嘛
这是EXCEL的tab型文本的格式
你运行这段代码后用EXCEL打开产生的文件看看嘛
只拷贝这段代码到你的程序试试嘛
这是EXCEL的tab型文本的格式
你运行这段代码后用EXCEL打开产生的文件看看嘛
void CXXXDlg::OnButton1()
{
CString Name[5] = {"AAA","BBB","CCC","DDD","EEE"};
CString Sex[5] = {"男","女","女","男","女"};
CString Age[5] = {"27","23","28","27","26"};
FILE *fp; fp=fopen("d:\\不信你看.xls","w");
int i;
fprintf(fp,"\n\t姓名\t性别\t年龄\n");
for(i=0;i<5;i++)
fprintf(fp,"\t%s\t%s\t%s\n",Name[i],Sex[i],Age[i]);
fclose(fp);
}
#14
gz_qmc的简单!