| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2559 人关注过本帖
标题:如何用VB打开EXCEL的超链接
只看楼主 加入收藏
simon20007
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-11-24
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
如何用VB打开EXCEL的超链接
比如超链接地址在A1中
搜索更多相关主题的帖子: EXCEL 链接 
2010-11-29 09:50
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:20 
以下是引用simon20007在2010-11-29 09:50:18的发言:

比如超链接地址在A1中

你的代码?
那一部分有问题?

无知
2010-11-29 11:10
simon20007
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2010-11-24
收藏
得分:0 
这是我的代码:
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Private Sub Command1_Click()
On Error Resume Next
   '后台进程运行excel程序,并得到该工作簿
   Set xlBook = xlApp.Workbooks.Open("E:\Work\检索.xls")
   xlApp.Visible = False
   '获得该工作簿的“sheet1”表
   Set xlSheet = xlBook.Sheets("sheet1")
   
   xlSheet.Select
   '抽取a1格子的数据并赋值给text1.text
   Text1.Text = xlSheet.Range("a1")
   '释放资源,顺序到过来,表》》簿》》应用程序
   Set xlSheet = Nothing
   Set xlBook = Nothing
   xlApp.Quit
   Set xlApp = Nothing
End Sub
  我得到a1的只是那个链接的地址,不会打开。。。那个链接的是CAD文件。。。请指教啊
  代码怎么改
2010-11-29 11:15
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
shell open

无知
2010-11-29 23:24
快速回复:如何用VB打开EXCEL的超链接
数据加载中...
 
   



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

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