标题:求助关于getobject函数的使用问题
只看楼主
lf0211
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-3-21
 问题点数:0 回复次数:1 
求助关于getobject函数的使用问题
各位:
我用vb6.0开发了一个小程序,就是对excel文件进行操作的那种,现在用上了vb.net2005,想把程序改成vb.net的,但我在用到getobject()这个函数时遇到了一些困难。
问题如下
在VB6.0里,对excel文件进行操作时设立excel变量我用 set xlbook=GetObject(App.Path & "\文件.xls") ,运行起来没有任何问题。可是在vb.net里用此法就行不通了,后来我试着用vb.net去打开vb6.0编的那个程序,系统进行自动升级,但升级后的代码出现了很多错误提示,根本运行不起来,现在正在进行一点点的调试,可就是getobject这个函数怎么也弄不好,自动生成的代码为 xlbook=GetObject(My.Application.Info.DirectoryPath & "\文件.xls") ,可其中的"\文件.xls"这段是深棕色字体,表示有问题,后来上网查了查相关的getobject用法,没找到合适的,好像要引用个runtime什么的,不知道各位有没有遇到过这个问题,希望能得到大家的帮助。谢谢了
搜索更多相关主题的帖子: getobject 函数 excel 变量 
2006-03-21 08:54
janeju
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2006-3-3
得分:0 
Dim excelapp As Excel.Application
Dim excelworkbook As Excel.Workbook
Dim excelsheet As Excel.Worksheet
Dim excelrange As Excel.Range
If excelapp Is Nothing Then
excelapp = New Excel.Application
excelapp.Visible = True
End If
excelworkbook = excelapp.Workbooks.Open(strfile)
excelsheet = excelworkbook.Sheets.Item(2)
excelsheet.Activate()
2006-03-22 08:35



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-51719-1-1.html




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

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