| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 10009 人关注过本帖
标题:关于调用Excel 出现ActiveX部件不能出创建对象的问题 (引用了)也是这样提 ...
只看楼主 加入收藏
min199412
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2016-4-14
结帖率:33.33%
收藏
 问题点数:0 回复次数:8 
关于调用Excel 出现ActiveX部件不能出创建对象的问题 (引用了)也是这样提示
各位亲怎么解决这个问题 网上很多资料都无法解决  系统我也换回XP也是无法解决
搜索更多相关主题的帖子: Excel 网上 资料 
2016-06-14 09:49
min199412
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2016-4-14
收藏
得分:0 
回复 楼主 min199412
Private Sub Command1_Click()
Dim i As Long
Dim Sum1, Sum2 As Long
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set VBExcel = CreateObject("Excel.Application")
CommonDialog1.FileName = ""
CommonDialog1.Filter = "EXCEL文件(*.xlsx)|*.xlsx"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
 Exit Sub
 Else
  Set xlbook = VBExcel.Workbooks.Open(CommonDialog1.FileName)
  Set xlssheet = xlbook.Worksheets(1)
  VBExcel.Visible = True
  For i = 2 To 35535
   If xlssheet.Cells(i, 1) = "" Then
    Exit For
    Else
    If xlssheet.Cells(i, 1) = "张三" Then '检查第i行,第一列数据,自己可以定义
     Sum1 = Sum1 + xlssheet.Cells(i, 2)
     End If
    If xlssheet.Cells(i, 1) = "李四" Then
        Sum2 = Sum2 + xlssheet.Cells(i, 2)
     End If
  
    End If
 Next
End If
Text1.Text = Sum1
Text2.Text = Sum2
xlbook.Close (True)
Set xlssheet = Nothing
Set xlbook = Nothing
Set VBExcel = Nothing
End Sub
2016-06-14 10:08
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:0 
看一下这个帖子你对你有帮助
http://bbs.
2016-06-14 10:28
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
不知道你安装的VB是什么版本,好像VB60的精简版功能有限,是否能够调用Excel,不清楚。
另外,你的Excel是什么版本,如果高于2003版本的引用的是12.0,不是8.0。
图片附件: 游客没有浏览图片的权限,请 登录注册

请不要选我!!!
2016-06-14 13:40
hjxlj
Rank: 10Rank: 10Rank: 10
来 自:江西
等 级:贵宾
威 望:14
帖 子:292
专家分:1519
注 册:2013-6-25
收藏
得分:0 
可以加我企鹅号试试

本人QQ:775420425
2016-06-14 15:07
min199412
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2016-4-14
收藏
得分:0 
回复 4楼 ZHRXJR
已解决 OFFICE的问题
2016-06-15 15:15
min199412
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2016-4-14
收藏
得分:0 
回复 3楼 xiangyue0510
解决了 是OFFICE的问题  但现在有个新的问题   怎么利用SendMessage打开 这类型的控件 ,右边有个像命令按钮的 按键  点击后踏出第二图的窗口   
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
2016-06-15 15:21
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
收藏
得分:0 
楼主这个问题是怎么解决的,你说是OFFICE问题   到底是OFFICE那个版本的问题  怎么弄的?我相信很多人都想知道。
2018-03-26 15:09
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
收藏
得分:0 
楼主这个问题是怎么解决的,你说是OFFICE问题   到底是OFFICE那个版本的问题  怎么弄的?我相信很多人都想知道。
2018-03-26 15:09
快速回复:关于调用Excel 出现ActiveX部件不能出创建对象的问题 (引用了)也是这 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.051270 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved