小编Bgr*_*DSI的帖子

我无法在此处获取此代码以获取单元格内容并将其存储为字符串.我得到一个双倍:
54.6666666667而不是N03:DM:(示例单元格内容).

如果我使用Cstr(Sheet1.Cells(i, 5).Value)我仍然得到相同的结果.

任何帮助,将不胜感激.

Option Explicit
Private Sub GetAddress()

Dim varAdd As String
Dim i As Integer

    For i = 2 To 327
        If varTag = Sheet1.Cells(i, 2).Value Then
           varAdd = Sheet1.Cells(i, 5).Value
           varAdd = Left(varAdd, 7)
           Sheet3.Cells(incR, 2).Value = varAdd
           Exit For
        End If   
    Next i

End Sub

工作表截图

是否有相当于Visual Basic的C++ On Error Resume Next,如果发生错误代码继续执行而不提示用户？

理想情况下,希望捕获任何异常并将它们记录到log.txt文件中,稍后进行检查,而不是突然退出代码.

Visual Basic:

For i = 1 to 100
  On Error Resume Next
  ReturnedOpcVal[i] = OPC.ReadTag(“Server.Path.Tag” & "TagName_" & Cstr(i))
Next i

C++,我在想这个:

Try {
    // Try looping through code here
       For (i = 1;  i <= 100; i++)

           {
               // Read OPC tags code here
           }
    }

Catch(…)
   {
        // log error to file code
   }