Office中国论坛/Access中国论坛

标题: VB6做了一个程序，程序功能是导入选择的EXCEL表格 [打印本页]

作者: samsonbox 时间: 2004-7-15 03:13
标题: VB6做了一个程序，程序功能是导入选择的EXCEL表格

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

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

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

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

[attach]5443[/attach]

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

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

[attach]5442[/attach]

下面的是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

作者: samsonbox 时间: 2004-7-18 08:48
请问谁能帮忙解决问题，谢谢……

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)