2

winform のボタンから .pdf ファイルを開く次の関数を作成しました。

Function OpenReports(fileName As String) As String
  Dim xlWBPath As String

  Try
    xlWBPath = Globals.ThisWorkbook.Application.ActiveWorkbook.Path
    System.Diagnostics.Process.Start(xlWBPath & "\fileName")
  Catch ex As Exception
    MsgBox("The " & fileName & "is not found on directory")
  End Try
  Return ""
End Function

ここで関数を呼び出すと:

Private Sub btnRptEmployeePayToMarket_Click(sender As Object,
                          e As EventArgs) Handles btnRptEmployeePayToMarket.Click
  OpenReports("Ranges to Market.pdf")
End Sub

エラートラップに入ります。ファイルが見つかりません。ただし、関数を実行する代わりに、次のように Private Sub として実行する場合:

Private Sub btnRptEmployeePayToMarket_Click(sender As Object, e As EventArgs) Handles btnRptEmployeePayToMarket.Click
  Dim xlWBPath As String
  Try
    xlWBPath = Globals.ThisWorkbook.Application.ActiveWorkbook.Path
    System.Diagnostics.Process.Start(xlWBPath & "\Ranges to Market.pdf")
  Catch ex As Exception
    MsgBox("The file Ranges to Market.pdf is not found on directory")
  End Try
End Sub

その後、正常に動作します。だから私はそれが私の機能と関係があると思いますが、それが何であるかを理解することはできません.

4

1 に答える 1