Office: (Office 2016) Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden

Aksels · 21. Oktober 2019

Liebe Mitleser,
ich versuche Code aus Excel in Access zum laufen zu bringen. Es handelt sich um das Excel OPC-UA Beispiel V2_0 von Siemens.
Ich bekomme diese Fehlermeldung in Access 2016:

Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden oder verwendet einen Typ der Automatisierung, der von Visual Basic nicht unterstützt wird.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Markiert wird .ReadValues
Der Code sieht so aus:
Code:

Public Sub Do_Read()
'NodeId of Item
Dim strNodeId(0) As String

strNodeId(0) = "ns=3;s=""DataStatic"".""myInt"""

Dim strValues() As String

'read value
On Error Resume Next
strValues = k_OpcUaClient.ReadValues(strNodeId)

'error handling for ReadValues
If Err.Number 0 Then
MsgBox Err.Description
Exit Sub
End If

'show value
Debug.Print strValues(0)
End sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die zugehörigen DLLs müssten eigentlich korrekt eingebunden sein, denn ich kann mit meinem Access-Code mich zur Maschine verbinden, wie im Excel Beispiel. Also TCP Verbindung steht bereits. Nur das ReadValues kann ich wegen dem Compilierungsfehler nicht ausführen.
Der gleiche Code funktioniert in Excel 2016.
Hat jemand einen Tipp?
Gruß,
Aksels

:)

ebs17 · 23. Oktober 2019

Code:

strValues = k_OpcUaClient.ReadValues(strNodeId)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das fällt anscheinend nicht alleine vom Himmel. Müsste da nicht eine Deklaration + Initialisierung, ggf. in Verbindung mit einem Verweis, vorausgehen?

Mit Excel selber hat dieser Code allerwenigst zu tun.

markusxy · 23. Oktober 2019

\@Aksels,
bei deinen Angaben ist nichts verwertbares dabei.
Sollte es sich aber um eine COM DLL handeln, vermute ich mal dass die Daten falsch übergeben werden.
So viel ich weiß, ist es nicht möglich ein Datenfeld zu übergeben höchstens ein Array.
Vielleicht schaust du mal im Objektkatalog nach wie die Schnittstelle ausschaut.

Josef P. · 23. Oktober 2019

Hallo!

Funktioniert der gleiche/identische Code, wenn er in Excel ausgeführt wird.

mfg
Josef

Beaker s.a. · 24. Oktober 2019

Hallo Josef,

Der gleiche Code funktioniert in Excel 2016.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eberhards Hinweis sollte wohl zielführend sein.
gruss ekkehard

Aksels · 24. Oktober 2019

Guten Morgen,
hier kommen mehr Infos. Ich dachte einer schaut hin und sagt: "Bekanntes Problem, musst nur das und jenes umstellen." Scheint aber wohl doch schwieriger zu sein.
Erstmal: ja, der Code läuft in Excel.
So siehr die Funktion in der OpcUaClient.cs aus:
Code:

///
/// reads values.
/// Uses UAClientHelperAPI
///
/// Array of NodeId as string
/// Array of values as string
public String[] ReadValues(ref String[] nodeIdStrings)
{
//prepare list of nodeID
List list = new List();

list.AddRange(nodeIdStrings);

//read
return m_UAClientHelperAPI.ReadValues(list).ToArray();
}
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In Access wird die Klasse so aufgerufen:
Code:

Sub TestOPCUA()

Dim m_Messmaschine As K_OPCUA
Set m_Messmaschine = New K_OPCUA
If m_Messmaschine.is_connected Then
m_Messmaschine.Do_Read
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier ist die Klasse:
Code:

Option Compare Database

Option Explicit

Private k_OpcUaClient As OpcUaClient
Private k_endpoints() As OpcUaEndpoint
Private k_endpoint_nr As Integer
Private k_Connect_String As String
Private k_Connected As String

Public Property Get is_connected() As Boolean
is_connected = k_Connected
End Property

Private Sub Class_Initialize()
Dim i, iUbound, iLbound As Integer
Dim LResult As Integer
Dim Tempstring As String
Dim endpoints() As OpcUaEndpoint
Dim strSelectedEndpoint As String

k_Connect_String = "opc.tcp://192.168.126.3:4840"
Set k_OpcUaClient = New OpcUaClient
On Error Resume Next
endpoints = k_OpcUaClient.GetEndpoints(k_Connect_String)

'error handling for GetEndpoints
If Err.Number 0 Then
Debug.Print "Could not get Endpoints. " & Err.Description
k_Connected = False
Else
'connect with user authentification
On Error Resume Next
k_endpoints = endpoints
k_endpoint_nr = 11
k_OpcUaClient.Connect k_endpoints(k_endpoint_nr), True, "Test", "Test123"

'error handling for Connect
If Err.Number 0 Then
Debug.Print "Not possible to connect. " & Err.Description
Err.Number = 0
k_Connected = False
Else
k_Connected = True
Debug.Print "Connected."
End If
End If
End Sub

Public Sub Do_Read()
'NodeId of Item
Dim strNodeId(0) As String

strNodeId(0) = "ns=2;s=/Plc/db2000.dbx0.0:BOOL"

Dim strValues() As String

'read value
On Error Resume Next
strValues = k_OpcUaClient.ReadValues(strNodeId)

'error handling for ReadValues
If Err.Number 0 Then
MsgBox Err.Description
Exit Sub
End If

'show value
Debug.Print strValues(0)
End Sub

Private Sub Class_Terminate()
If k_Connected Then
k_OpcUaClient.Disconnect
End If
Set k_OpcUaClient = Nothing
Debug.Print "Disonnected."
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß,
Aksels

Aksels · 24. Oktober 2019

Darf ich hier hier Links zu Siemens Homepage veröffentlichen?

Aksels · 24. Oktober 2019

In Excel sieht der Originalcode so aus:
Code:

Private Sub CommandButtonRead_Click()

'NodeId of Item
Dim strNodeId(0) As String

strNodeId(0) = Range("NODEID_READ").Value

Dim strValues() As String

'read value
On Error Resume Next
strValues = Sheets(3).m_OpcUaClient.ReadValues(strNodeId)

'error handling for ReadValues
If Err.Number 0 Then
MsgBox Err.Description
Exit Sub
End If

'show value
Range("VAL_READ").Value = strValues(0)

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

markusxy · 26. Oktober 2019

Aksels,
warum postest du nicht die Schnittstellen-Definition, aus dem Objektkatalog?

Niemand kann dir bei der Fehlersuche helfen, wenn nicht klar ist wie die Schnittstelle für die Funktion/Property

OpcUaClient.ReadValues

innerhalb von VBA aussieht.
Wenn die korrekt umgesetzt ist, sollte der Compiler nicht jammern.

Ist im Excel Code das Option Explicit gesetzt?
Möglicherweise klappt der Code ja trotz Compiler Fehler und man muss das Option Explicit nur abdrehen. In seltenen Fällen mag das zum Erfolg führen, jedenfalls kenne ich auch solche Fälle.

OT:
Im Class_Initialize wird ein Error beim Connect praktisch ignoriert.
Das ist wohl mehr als dilettantisch.

Edit:
Im o.a. Code steht im Kommentar, dass ein Array erwartet wird - übergeben wird ein Datenfeld.
Das habe ich schon in meinem ersten Kommentar bemängelt. Warum wird ein Datenfeld statt eines Arrays übergeben?

ebs17 · 26. Oktober 2019

In Excel sieht der Originalcode so aus
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vermutlich wurden Anteile des nötigen Codes aus der Excellösung einfach nicht übernommen.

Man sollte also nicht nur darauf schauen, was man übernommen hat, sondern auch wesentlich darauf, was noch fehlt. Wenn dem Fass der Boden fehlt, ist es halt problematisch mit dem Wassersammeln.

Aksels · 30. Oktober 2019

Guten Morgen alle zusammen.
Vielen Dank erstmal für die Mithilfe. Ich finde es wirklich klasse, dass Ihr Euch so engagiert.
Zu den offenen Punkten:
Ich war der Meinung der Code für ReadValues aus der OPCUaClient.cs wäre aussagekräftiger. Dennoch: Hier ist der Eintrag aus dem Objektkatalog:
Function ReadValues(nodeIdStrings() As String) As String()

Option Explicit ist tatsächlich in Excel nicht drin. Habe es aus Access entfernt. Bringt aber den gleichen Fehler beim Compilieren. Werde das Option Explicit noch aus allen anderen Modulen entfernen, um zu prüfen ob es daran liegt. Ich war dann vielleicht zu voreilig, aber ich kann Code ohne Option Explicit nicht leiden.
Habe alle Option Explicit aus allen Modulen entfernt. Fehler bleibt.

Nächster Punkt: was könnte in Access fehlen, was in Excel drin ist.
Ich hab keine Ahnung. Vielleicht hab ich auch nur ein Brett vor dem Kopf.
Ich habe die beiden Dateien angehängt. Wenn jemand das Siemens-Beispiel mit der DLL möchte bitte per PN fragen.

Gruß,
Aksels

ebs17 · 30. Oktober 2019

Habe alle Option Explicit aus allen Modulen entfernt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Streichen Deine Lösung ist, dann sei doch gleich konsequent und beschränke Dich nicht auf höchst sinnvolle Kontrollmechanismen.
Wo NICHTS ist, werden auch kaum Fehler auftreten.

markusxy · 30. Oktober 2019

Das Entfernen von "Option Explicit" kann in diesem Fall nichts bringen, im Gegenteil.

Wenn der Code der Excel-Anwendung in Excel kompiliert werden kann, dann würde ich mal hingehen und die Codesequenz in Access auskommentieren und schauen ob er dann kompiliert werden kann.

Es ist auch möglich, dass die Access Datei fehlerhaft ist und die Stelle reklamiert obwohl alles in Ordnung ist.

Office: (Office 2016) Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden

Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden

Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden

Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden

Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden

Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden

Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden - Similar Threads - Funktion Schnittstelle eingeschränkt

WENN-Funktion mit mehreren Bedingungen

Zellbezug mit MONAT(HEUTE()) Funktion

Daten aus anderer Mappe

Funktionen Filter, Spaltenwahl und Übernehmen

Filter()-Funktion: gefilterte Tabelle erweitern

Zeile-Funktion in formatierter Tabelle

Welche Funktion ? Vergleich.. Verweis .. oder WENN ?