1

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 を使用してそれらを接続する方法が存在する場合、私に何ができると思いますか?

4

0 に答える 0