社区
ATL
帖子详情
我想得到表的行数和列数。但在Excel9.olb中找不到Columns和Rows这两个类,我要用他们该怎么办呢?
papaya_stone
2003-10-23 10:35:34
想实现VBA中的这两句
i = ActiveSheet.UsedRange.Columns.Count
j = ActiveSheet.UsedRange.Rows.Count
...全文
45
2
打赏
收藏
我想得到表的行数和列数。但在Excel9.olb中找不到Columns和Rows这两个类,我要用他们该怎么办呢?
想实现VBA中的这两句 i = ActiveSheet.UsedRange.Columns.Count j = ActiveSheet.UsedRange.Rows.Count
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
ZHENG017
2003-10-23
打赏
举报
回复
要看接口实现了哪些方法是:运行oleview.打开excel.exe(office xp)或excel9.olb(office 2k).
ZHENG017
2003-10-23
打赏
举报
回复
#include <ole2.h>
#include <stdio.h>
#pragma warning (disable:4146 4192 4786 4081)
#define USE_OFFICEXP 1
#ifdef USE_OFFICEXP
#import "C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL"
#import "c:\\Program Files\\Common Files\Microsoft Shared\\VBA\VBA6\VBE6EXT.olb"
#import "c:\Program Files\Microsoft Office\Office10\MSWORD.olb" rename("ExitWindows","ExitWindowsEx")
#import "c:\Program Files\Microsoft Office\Office10\excel.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") \
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#else
#import "c:\Program Files\Microsoft Office\Office\MSO9.dll"
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB" no_namespace
#import "c:\Program Files\Microsoft Office\Office\MSWORD9.OLB" rename("ExitWindows","_ExitWindows")
#import "c:\Program Files\Microsoft Office\Office\excel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") \
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#endif
int main(int argc, char* argv[])
{
VARIANT varItem;
varItem.vt = VT_I4;
varItem.intVal = 1;
::CoInitialize(NULL);
CLSID clsid;
#if 0
CLSIDFromProgID(L"Word.Application", &clsid);
Word::_ApplicationPtr pApp;
pApp.CreateInstance (clsid,NULL);
pApp ->PutVisible (VARIANT_TRUE);
pApp ->GetDocuments() ->Add();
Word::_DocumentPtr pWordDocument =pApp-> GetActiveDocument();
Word::SelectionPtr pSelection = pApp ->GetSelection();
pSelection ->TypeText("badguy");
#endif
#if 1
CLSIDFromProgID(L"Excel.Application", &clsid);
Excel::_ApplicationPtr pApp;
pApp .CreateInstance (clsid,NULL);
pApp ->PutVisible (0,VARIANT_TRUE);
Excel::_WorkbookPtr pWorkbook = pApp ->GetWorkbooks () ->Add ();
Excel::_WorksheetPtr pSheet = pWorkbook ->GetWorksheets () ->GetItem (varItem);
Excel::RangePtr pRange = pSheet ->GetUsedRange(0);
int iColCnt = pRange ->GetColumns() ->GetCount();
printf("used columns is %d\n",iColCnt);
int iRowCnt = pRange ->GetRows() ->GetCount();
printf("used rows is %d\n",iRowCnt);
pRange = pSheet ->GetRange(OLESTR("A1"));
pRange ->Value2 = OLESTR("SOME");
Excel::InteriorPtr pInterior= pRange ->GetInterior ();
varItem.intVal = 0xff0000;
pInterior ->PutColor (varItem);
pSheet ->PrintPreview ();
#endif
::CoUninitialize();
return 0;
}
btw:写了半小时的程序,没有错误检测。将就着用了。
C#操作
Excel
(转)
首先的一步就是使用Tlbimp这个工具将
Excel
9.0的对象库文件
Excel
8.
olb
转换成为dll,这样才能做为.Net平台Assembly来使用:)操作如下:TlbImp
Excel
9.
olb
Excel
.dll只要有了这个
Excel
.dll,现在我们就能使用
Excel
的各种...
C#操作
Excel
(一)
C#操作
Excel
(一)首先的一步就是使用Tlbimp这个工具将
Excel
9.0的对象库文件
Excel
8.
olb
转换成为dll,这样才能做为.Net平台Assembly来使用:)操作如下:TlbImp
Excel
9.
olb
Excel
.dll 只要有了这个
Excel
.dll,现在...
DotNet 操纵
Excel
总结之一
前段时间,做项目的时候,要操纵
Excel
,从网上
找
了些资料,结合自己用的例子,现在...这样就不会因为你的
Excel
是xp或2000的不同要去
找
不同的*.
olb
文件,还有一点就是因为在2000以后的版本
中
没有了
excel
9.
olb
这个文件
VC2003使用MSWORD.
OLB
读取
表
格数据
在VC2003
中
新建一程序,选择项目--》添加
类
--》MFC--》
类
型库
中
的MFC
类
。 然后选择“文件”单选按钮,默认选择的是“注册
表
”单选按钮。 从“位置”的“...”按钮(浏览)
中
选择word安装路径
中
的MFWORD.
OLB
文件, ...
ATL
3,245
社区成员
48,539
社区内容
发帖
与我相关
我的任务
ATL
ATL,Active Template Library活动(动态)模板库,是一种微软程序库,支持利用C++语言编写ASP代码以及其它ActiveX程序。
复制链接
扫一扫
分享
社区描述
ATL,Active Template Library活动(动态)模板库,是一种微软程序库,支持利用C++语言编写ASP代码以及其它ActiveX程序。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章