Visual Basic を使用して KEPServer に接続できない Excel マクロがあります。
問題は、一部のバージョンの Windows コンピューターでは接続できますが、他のバージョンでは接続できないということです。現在、Windows 10、Excel 2010、および KEPServer 5.13 を使用しています。以前はマクロは完全に機能していたので、ある種の Windows 更新プログラムが失敗したに違いありません。
DDERequest の実行中にプログラムが失敗し、エラー 2023 が返されます。また、KEPServer が次のエラーを出し続けることにも気付きました。
Date Time Level Source Event
21/01/2020 16:57:23 Error DDE Attempt to add DDE item 'TOOL1.PLC.MESCADA_BoxProductionCounter' failed.
Vba で使用されるコードは次のとおりです。
Private Sub Establish_Connection_Click()
Dim Tmp_Old_BoxProductionCounter As Variant
RSIchan = DDEInitiate("kepdde", "_ddedata")
Estat_Conexio.Text = " Connected to hardware "
Mode = "Automatic"
Tmp_Old_BoxProductionCounter = DDERequest(RSIchan, "TOOL1.PLC.MESCADA_BoxProductionCounter")'<-- It fails here
Old_BoxProductionCounter = Tmp_Old_BoxProductionCounter(1)
Call Worksheet_Activate
collected_rows = 2
Initiate_Study.Enabled = False
...
NetDDE を使用して KEPServer に接続します。私はそれが時代遅れであることを知っており、それが問題である可能性があり、OLEを使用してそれを行うより現代的な方法があると思いますが、それを行う方法とそれが機能するかどうかは本当にわかりません.
それを修正するために、または OLE を使用してそれらを接続する方法が存在する場合、私に何ができると思いますか?