| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
跟大牛学C++学算法数据结构
共有 336 人关注过本帖
标题:VB 如何打开Excel2010版本?
只看楼主 加入收藏
天梯
Rank: 1
等 级:新手上路
帖 子:4
专家分:4
注 册:2011-11-30
结帖率:0
  已结贴   问题点数:2  回复次数:2   
VB 如何打开Excel2010版本?
最近在网上找了在VB中打开EXCEL的代码,结果在Excel2003版本中可以顺利的打开Excel(以前安装的是2003版本),如今安装了Excel2010版本,就提示  "提示:请先安装Excel办公软件" ,如下是代码(事先已在VB中引用  “工程(P)”—“引用(N)”—引用项目 Microsoft Excel 14.0 Object Library Microsoft Office 14.0 Object Library)
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet1 As Object

Sub ConnectExcel() '连接Excel
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err Then
Err.Clear
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
If Err Then MsgBox "提示:请先安装Excel办公软件"
End If

Set xlBook = xlApp.Workbooks.Add
xlApp.DisplayAlerts = False
xlBook.SaveAs "演示.xls"
xlApp.DisplayAlerts = True
End Sub

 请教高手,如何解决!
2019-01-07 20:14
天梯
Rank: 1
等 级:新手上路
帖 子:4
专家分:4
注 册:2011-11-30
  得分:0 
回复 楼主 天梯
以前在VB中引用  “工程(P)”—“引用(N)”—引用项目 Microsoft Excel 11.0 Object Library Microsoft Office 11.0 Object Library, 现在安装了Excel2010版本  就打不开了
2019-01-07 20:17
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:2 
应该重新引用12.0版本的。
如果有最新的引用最新的。
2019-01-10 09:33







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

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