宏仅在运行时错误462之前运行一次excel vba :远程服务器不存在或不可用
宏仅在运行时错误462之前运行一次excel vba :远程服务器不存在或不可用
提问于 2018-11-22 15:01:22
所以我在vba中有这个代码，它将数据从excel导出到access。这可以在第一次运行，然后第二次运行“运行时错误462:远程服务器不存在或不可用”显示。
然而，如果我要重新启动excel，那么它似乎在第一次重新工作正常。我尝试过搜索解决方案，但是他们中的大多数人说，将任何对象设置为空变量，但仍然不能工作。
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下面的代码片段是在第二次运行时出现此错误的地方。任何帮助都将不胜感激。谢谢
CurrentDb.TableDefs(myValue).Fields("F4").Properties!ColumnWidth = 2500回答 1
Stack Overflow用户
回答已采纳
发布于 2018-11-22 18:56:30
我选择了一种代码整理方法，它可以解决这个问题。在“立即”窗口中，从代码中断行中的每个对象进行Examinig也会有所帮助(例如"?Currentdb.Name“返回什么)
1) VBA支持New作为对象声明的一部分，但是.(你最好研究一下这一点。从内存中看，速度总是慢一些，因为vba必须重新检查对象是否已被实例化。)
Dim acc As Access.Application: Set acc = New Access.Application(2)将你的电话打给CurrentDb
acc.CurrentDb.TableDefs(myValue).Fields("F4").Properties!ColumnWidth = 2500
acc.CurrentDb.TableDefs(myValue).Fields("F7").Properties!ColumnWidth = 2500更好的是，显式地引用树中的每个对象，这将有助于阻塞
' 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我希望这能帮上忙，GraemeR
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/53438895
复制相关文章
相似问题
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
