如何解決Excel連接無法連接到服務器...未注冊..OleDb.1?
我在Excel中遇到一個Excel VBA宏問題,該宏需要刷新兩個Excel連接。
收到的錯誤消息(丹麥語)1
最大的問題是在工作簿中,該工作簿在打開時應根據連接中數據的內容顯示輸入形式。代碼如下:
Private Sub Workbook_open()
Application.ScreenUpdating = False
Dim PO As Integer
Dim path As String

path = Application.ActiveWorkbook.path
PO = Right(path,4)
Sheets("Ordreliste").Select
Refresh_All_Data_Connections
ActiveSheet.ListObjects("Ord_Head").Range.AutoFilter Field:=1,Criteria1:=PO

Worksheets("Ordreliste").Cells(1,1).Select
Sheets("Materialer").Select
ActiveSheet.ListObjects("Ord_Matr").Range.AutoFilter Field:=2,Criteria1:=PO
Worksheets("pallekort").Select
UserForm1.Show
Application.ScreenUpdating = True

End Sub
Sub Refresh_All_Data_Connections()
Dim objConnection
For Each objConnection In ThisWorkbook.Connections

If objConnection = "Foresp?rgsel - Ord_Head" Or objConnection = "Foresp?rgsel - Ord_Matr" Then
objConnection.OLEDBConnection.BackgroundQuery = False
objConnection.Refresh
DoEvents
End If
Next
End Sub
問題似乎是Excel在.Net 完成加載之前執行了代碼,因此電源查詢連接無法刷新。打開工作簿時,我嘗試了各種等待循環,和刷新連接,但直到()代碼完成后,.NET框架才加載,因此出現上述錯誤。
如果在.NET 加載后手動啟動我,宏將無法順利運行。
問題不僅與()事件有關。在使用手動啟動的宏刷新連接時遇到了相同的問題,但是只有在我第一次打開工作簿后才運行宏。
我需要一個解決方案來強制Excel在執行刷新命令之前完成.NET框架的加載,或者在.NET 完成加載后自動運行宏。
希望您能提供解決方案。
解決方法
暫無找到可以解決該程序問題的有效方法無法連接服務器顯示1-1無法連接服務器顯示1-1,小編努力尋找整理中!
如果你已經找到好的解決方法,歡迎將解決方案帶上本鏈接一起發送給小編。
小編郵箱:dio# (將#修改為@)
歡迎加入編程之家官方交流群!與上千程序員伙伴一起交流學習。