用VB设计了一个从EXCEL调用数据的程序,第一次运行正确,但关掉VB6.0再启动运行时就出现这样的问题

参数定义类型变为variant也不行,另外,已经把进程中的EXCEL.EXE都关掉了,仍然是这样。
通用段定义了
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim q As Integer
————————————————
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("E:\VB+EXCEL\副本temp")
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)
q = Cells(2, 2) ------->>问题就出在这里
……后面还有些代码就省略了,程序运行到q那里就出现错误……
帮帮忙,我是菜鸟

1,Set xlBook = xlApp.Workbooks.Open("E:\VB+EXCEL\副本temp")
括号内应为excel文件,而不是文件夹
2,q = Cells(2, 2) ,应该是q = xlSheet.Cells(2, 2).value
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-10-27
不知道

大神们,急!!我通过以上代码用vb6.0打开excel,第一次打开时表格正常显示...
每次操作完Excel对象后,一定记得要关闭对象,也就是从内存中清除Excel所占进程

关闭VB6.0出现应用程序错误
当分配失败时系统函数会返回一个0值,这时返回值“0”已不表示新启用的指针,而是系统向应用程序发出的一个通知,告知出现了错误。作为应用程序,在每一次申请内存后都应该检查返回值是否为0,如果是,则意味着出现了故障,应该采取一些措施挽救,这就增强了程序的“健壮性”。 若应用程序没有检查这个错误,它就会按照“思...

vb设计一个程序,以前一直正常,但是今天在编译后产生的可执行文件运行后...
你是使用了Data控件,这个是加载数据库文件时出错的。根本原因在于:vbsp6升级了msvbvm60.dll这个文件的版本,如果拿到没升级这个文件的机子上用就会出现这个问题。解决方法:可以把msvbvm60.dll这个文件复制到你的程序所在的文件夹。如果是这个版本的,一定会出现“找不到可插入的ISAM”这个错误。版本:6....

VB6.0编的一个小软件,正常关闭的时候出现如下界面,在VB6中运行无问题...
如果是在脱离VB6.0的电脑上上出现故障:应该是电脑上不包含KERNELBASE.DLL文件或者文件路径不正确,也可能是KERNELBASE.DLL文件未注册。

VB 6.0 调用EXCEL数据 运行得到的数据是我要的,但它就是不肯结束,并...
调用不能简写,每一句都需要点明白到APPLICATION那么详细才能退出后完全释放EXCEL,当然你可以把Sheets("ammco1")定义好,如xlsheet = mxlBook6.Sheets("ammco1"), 之后的就可以xlsheet.Range("B2").Select就已经可以了。 另外不知道 ActiveWorkbook这个也会不会有关系。

我用VB6.0写了个程序,在VB环境中能顺利运行,但编译成EXE后运行却是无响...
把程序中用到的控件都放到EXE文件所在的文件夹内。

VB6.0 调用EXCEL表
’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 CommonDialog,MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择...

安装完VB6.0,运行VB程序,提示“运行时错误-1073479673, 方法...
一般确定后,能打开VB.exe程序情况下,可忽略此问题。如果“确定后”不能打开VB.exe,那么就需要重新安装了。

vb6.0里面在一个工程点击某个窗体程序就崩溃
一般重装VB就可以,应该是你装VB时有组件没有正常安装造成的,也有可能是精简版的BUG。如果是Win7,在快捷方式上右键-属性-兼容性-勾上禁用桌面元素应该可以防止崩溃。如果还不行,应该就是系统问题了

vb6.0中如何保存上一次的数据,再打开后能读取出来??
Private Sub Form_Load()If Dir(App.Path & "\\1.txt") = "" Then Exit Sub Open App.Path & "\\1.txt" For Binary As #1 Text1.Text = Input(LOF(1), 1)Close #1 End Sub Private Sub Form_Unload(Cancel As Integer)Open App.Path & "\\1.txt" For Output As #1 Print #1, ...

相似回答
大家正在搜