0 
Private Sub Button11_Click()
    Dim oXL4 As New Excel.Application
    Dim oWB4 As Excel.Workbook
    Dim oSheet4 As Excel.Worksheet
If ComboBox10.Text = "abc" Then
    oWB4 = oXL4.Workbooks.Open("D:\blah\blah\Def.xlsx")
    oSheet4 = oWB4.Worksheets(2).Activate
    oXL4.Visible = True
    oXL4.UserControl = True
End If
End Sub

エラー/例外:

System.InvalidCastException は処理されませんでした Message='System.Boolean' 型のオブジェクトを 'Microsoft.Office.Interop.Excel.Worksheet' 型にキャストできません。

このコードの何が問題になっていますか?

前もって感謝します。

4

1 に答える 1

1

Activate はワークシートを返しません (サブです)。

  oSheet4 = oWB4.Worksheets(2)
  oSheet4.Activate()
于 2012-07-04T19:47:03.157 に答える