设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1074|回复: 1
打印 上一主题 下一主题

[与其它组件] VB6做了一个程序,程序功能是导入选择的EXCEL表格

[复制链接]
跳转到指定楼层
1#
发表于 2004-7-15 03:13:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式


我用VB6做了一个程序,程序功能是导入选择的EXCEL表格,

运行时候,连续导入两个EXCEL表格的时候就出错,即是

先选择bb1.xls导入;然后再选择bb2.xls导入,第二出导数

会出现错误,错误画面如下图,中文意思是:运行时出错462,远程服务器不存在或不可用



出现问题是否无把建立的objacc完全释放才引起的?

怎么才能解决问题,请高手指点





下面的是VB6里面写的程序:

Public File_Name

Private Sub Command1_Click()

'------------------------------------------

Set objacc = CreateObject("Access.Application")

If Dir("C:\AA.mdb") <> "" Then

   objacc.OpenCurrentDatabase "C:\AA.mdb"

Else

   objacc.NewCurrentDatabase "C:\AA.mdb"

End If

objacc.Visible = True

      

          DoCmd.TransferSpreadsheet acImport, 8, "TT", File_Name, True, ""



objacc.Quit

Set objacc = Nothing

Command1.Enabled = False

End Sub

'------------------------------------------

Private Sub Command2_Click()

CommonDialog1.FileName = ""

CommonDialog1.Filter = "Excel文件(*.xls)|*.xls"

CommonDialog1.ShowOpen

Label1.Caption = CommonDialog1.FileName

File_Name = CommonDialog1.FileName

If File_Name <> "" Then

Command1.Enabled = True

End If



End Sub

'------------------------------------------

Private Sub Command3_Click()

End

End Sub







本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2004-7-18 08:48:00 | 只看该作者
请问谁能帮忙解决问题,谢谢……
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-15 16:30 , Processed in 0.102342 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表