宏在运行时错误462之前只运行一次excel vba：远程服务器不存在或不可用答案

【问题标题】：Macro only runs once excel vba before Runtime error 462: The remote server does not exist or is unavailble宏在运行时错误462之前只运行一次excel vba：远程服务器不存在或不可用
【发布时间】：2018-11-23 10:56:30
【问题描述】：

所以我在 vba 中有这段代码，它可以从 excel 中导出数据以进行访问。第一次运行正常，然后第二次运行“运行时错误 462：远程服务器不存在或不可用”出现。

但是，如果我要重新启动 excel，那么第一次它似乎又可以正常工作了。我试过谷歌搜索解决方案，但他们中的大多数人说将任何对象设置为 Nothing 和空变量，但它仍然不起作用。

Sub AccImport()
Dim acc As New Access.Application
Dim myValue As Variant
myValue = InputBox("Enter table name for access export")
acc.OpenCurrentDatabase "C:\Users\User 1\Documents\Database21.accdb"
acc.DoCmd.TransferSpreadsheet _
        TransferType:=acImport, _
        SpreadSheetType:=acSpreadsheetTypeExcel12Xml, _
        TableName:=myValue, _
        Filename:=Application.ActiveWorkbook.FullName, _
        HasFieldNames:=True, _
        Range:="Sheet2$A1:AL104"
        CurrentDb.TableDefs(myValue).Fields("F4").Properties!ColumnWidth = 2500
        CurrentDb.TableDefs(myValue).Fields("F7").Properties!ColumnWidth = 2500

acc.CloseCurrentDatabase
acc.Quit
Set acc = Nothing
myValue = Empty
MsgBox " The data has been exported"

Application.DisplayAlerts = False
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Delete
Range("A1").Select
Application.DisplayAlerts = True
End Sub

下面的 sn-p 代码是第二次运行时似乎出现此错误的地方。任何帮助将非常感激。谢谢

CurrentDb.TableDefs(myValue).Fields("F4").Properties!ColumnWidth = 2500

【问题讨论】：

标签： excel vba

【解决方案1】：

我已经采用了一种可以解决问题的代码整理方法。在即时窗口中从代码中断行检查每个对象也会有所帮助（例如“？Currentdb.Name”返回什么）

1) VBA 支持 New 作为对象声明的一部分，但是...（最好研究一下这一点。从内存中它总是较慢，因为 vba 必须重新检查对象是否已被实例化。）

Dim acc As Access.Application: Set acc = New Access.Application

2a) 验证您对 CurrentDb 的调用

acc.CurrentDb.TableDefs(myValue).Fields("F4").Properties!ColumnWidth = 2500
acc.CurrentDb.TableDefs(myValue).Fields("F7").Properties!ColumnWidth = 2500

2b) 更好的是，明确引用树中的每个对象 [这将有助于乞求]

' add Reference to "Microsoft DAO 3.6 Object Library"
Dim db As DAO.Database
Dim tdf As DAO.TableDef

Set db = acc.CurrentDb
db.TableDefs.Refresh    ' CurrentDb should do this, but can't hurt
Set tdf = db.TableDefs(myValue)
With tdf
    .Fields("F4").Properties!ColumnWidth = 2500
    .Fields("F7").Properties!ColumnWidth = 2500
End With

Set tdf = Nothing
Set db = Nothing

我希望这会有所帮助，格雷默

【讨论】：