社区
VB
帖子详情
江湖救急!关于Excel导入的问题
sj1983
2007-03-08 05:49:17
我装的是office2003,但我想导入excel object library9.0 (我有excel9.olb)
请问有什么好方法
...全文
257
6
打赏
收藏
江湖救急!关于Excel导入的问题
我装的是office2003,但我想导入excel object library9.0 (我有excel9.olb) 请问有什么好方法
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
北京的雾霾天
2007-03-22
打赏
举报
回复
给你个后期对Office绑定的例子参考下吧:
private void btnLater_Click(object sender, EventArgs e)
{
object objApp;
object objBook;
object objBooks;
object objSheets;
object objSheet;
object objRange;
object[] Parameters;
try
{
// Get the class type and instantiate Excel.
Type objClassType;
objClassType = Type.GetTypeFromProgID("Excel.Application");
objApp = Activator.CreateInstance(objClassType);
//Get the workbooks collection.
objBooks = objApp.GetType().InvokeMember("Workbooks",
BindingFlags.GetProperty, null, objApp, null);
//Add a new workbook.
objBook = objBooks.GetType().InvokeMember("Add",
BindingFlags.InvokeMethod, null, objBooks, null);
//Get the worksheets collection.
objSheets = objBook.GetType().InvokeMember("Worksheets",
BindingFlags.GetProperty, null, objBook, null);
//Get the first worksheet.
Parameters = new Object[1];
Parameters[0] = 1;
objSheet = objSheets.GetType().InvokeMember("Item",
BindingFlags.GetProperty, null, objSheets, Parameters);
//Get a range object that contains cell A1.
Parameters = new Object[2];
Parameters[0] = "A1";
Parameters[1] = Missing.Value;
objRange = objSheet.GetType().InvokeMember("Range",
BindingFlags.GetProperty, null, objSheet, Parameters);
//Write "Hello, World!" in cell A1.
Parameters = new Object[1];
Parameters[0] = "Hello, World!";
objRange.GetType().InvokeMember("Value", BindingFlags.SetProperty,
null, objRange, Parameters);
//Return control of Excel to the user.
Parameters = new Object[1];
Parameters[0] = true;
objApp.GetType().InvokeMember("Visible", BindingFlags.SetProperty,
null, objApp, Parameters);
objApp.GetType().InvokeMember("UserControl", BindingFlags.SetProperty,
null, objApp, Parameters);
}
catch (Exception theException)
{
String errorMessage;
errorMessage = "Error: ";
errorMessage = String.Concat(errorMessage, theException.Message);
errorMessage = String.Concat(errorMessage, " Line: ");
errorMessage = String.Concat(errorMessage, theException.Source);
MessageBox.Show(errorMessage, "Error");
}
}
北京的雾霾天
2007-03-22
打赏
举报
回复
你要用后期绑定来调用Office,不要在项目中引用组件.
sj1983
2007-03-12
打赏
举报
回复
阿。。。。。。。。。
难道没人知道吗
sj1983
2007-03-09
打赏
举报
回复
客户机上装的是office2000
sj1983
2007-03-09
打赏
举报
回复
那里面找到的是11
cangwu_lee
2007-03-08
打赏
举报
回复
引用 COM 里面找
江湖救急
笔记——计算机网络.docx
江湖救急
笔记——计算机网络.docx 计算机网络是指将计算机、服务器、打印机、存储设备等设备通过通信线路或无线连接起来,实现资源共享、信息交换和istant communication的系统。以下是
江湖救急
笔记中的计算机网络...
l7救急专用包
【L7救急专用包】是一个专为解决小7设备升级失败
问题
而设计的工具集合。这个压缩包的目的是在用户尝试对小7设备进行系统更新时,如果遇到升级失败或者设备因更新出现
问题
,可以使用它来进行降级操作,恢复设备到一个...
kali32位kali-linux-2020.1b-installer-i386.iso.torrent(种子文件,ISO)(要amd64位的看我另一个资源)
kali32位系统安装kali-linux-2020.1b-installer-i386.iso.torrent(种子...特来救急!!! 可以用迅雷下载!! 2020年1月最新版kali!!! 现在很少人用32位的kali了,所以要64位的kali的人请看我另一个资源!!!
recovery,安卓救急twrp
recovery,安卓救急twrp,安卓最好的rce,
写译高分范文考前救急.pdf
写译高分范文考前救急.pdf
VB
16,722
社区成员
110,526
社区内容
发帖
与我相关
我的任务
VB
VB技术相关讨论,主要为经典vb,即VB6.0
复制链接
扫一扫
分享
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章