1

これは vb.net での私の最初のプロジェクトであり、vba 作業アドインを vb.net COM アドインに移行するのに苦労しています。私はちょっとコツをつかんでいると思いますが、エラー処理が私を悩ませています。

これは、try-catch と呼び出し元に例外を渡す方法を理解するために使用してきたテストです。

Public Sub test()
    Dim ActWkSh As Excel.Worksheet
    Dim ActRng As Excel.Range
    Dim ActCll As Excel.Range
    Dim sVar01 As String
    Dim iVar01 As Integer
    Dim sVar02 As String
    Dim iVar02 As Integer
    Dim objVar01 As Object

    ActWkSh = Me.Application.ActiveSheet
    ActRng = Me.Application.Selection
    ActCll = Me.Application.ActiveCell
    iVar01 = iVar02 = 1
    sVar01 = CStr(ActCll.Value)
    sVar02 = CStr(ActCll.Offset(1, 0).Value)
    Try
        objVar01 = GetValuesV(sVar01, sVar02)
        'DO SOMETHING HERE
    Catch ex As Exception
        MsgBox("ERROR: " + ex.Message)
        'LOG ERROR SOMEWHERE
    Finally
        MsgBox("DONE!")
    End Try

End Sub

Private Function GetValuesV(ByVal QryStr As Object, ByVal qryConn As String) As Object

    Dim cnn As Object
    Dim rs As Object

    Try
        cnn = CreateObject("ADODB.Connection")
        cnn.Open(qryConn)
        rs = CreateObject("ADODB.recordset")

        rs = cnn.Execute(QryStr)

        If rs.EOF = False Then
            GetValuesV = rs.GetRows
        Else
            Throw New System.Exception("Query Return Empty Set")
        End If

    Catch ex As Exception
        Throw ex
    Finally
        rs.Close()
        cnn.Close()
    End Try

End Function

テストするエラー メッセージを表示したいのですが、MsgBox("ERRORE: " + ex.Message) で予期しないもの (オブジェクト変数または With ブロック変数が設定されていません) が表示されます。ありがとう

4

1 に答える 1