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' 型にキャストできません。
このコードの何が問題になっていますか?
前もって感謝します。