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

samsonbox

我用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

samsonbox

请问谁能帮忙解决问题，谢谢……