：後半

Question

結合を禁止しオンオプション厳格な私は、エラーを生成し、次のコードがあります。

Option Strict On 
Imports Microsoft.Office.Interop 

Public Class Form1 
Dim xlApp As New Excel.Application 
Dim xlWorkBook As Excel.Workbook 
Dim xlWorkSheet As Excel.Worksheet 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
    xlWorkBook = xlApp.Workbooks.Open("C:\Book1.xlsx") 
    xlApp.Visible = True 
    For i = 1 To xlWorkBook.Worksheets.Count 
     xlWorkBook.Worksheets(i).Visible = True 
    Next 
End Sub 
End Class 

はありがとうございます。

Answer 1

私はあなたが後にあるかを推測するには、次のとおりです。

Dim xlApp As New Excel.Application 
Dim xlWorkBook As Excel.Workbook 
Dim xlWorkSheet As Excel.Worksheet 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
    xlWorkBook = xlApp.Workbooks.Open("C:\Book1.xlsx") 
    xlApp.Visible = True 
    For i = 1 To xlWorkBook.Worksheets.Count 
     xlWorkSheet = CType(xlWorkBook.Worksheets(i), Excel.Worksheet) 
     xlWorkSheet.Visible = Excel.XlSheetVisibility.xlSheetVisible 

     'If you don't want to make use of xlWorkSheet you can use this: 
     'CType(xlWorkBook.Sheets(i), Excel.Worksheet).Visible = Excel.XlSheetVisibility.xlSheetHidden 
    Next 
End Sub 

これは、オブジェクトのプロパティの正しい使用方法を提供しますとあなたは常にオブジェクトを使用して見なければなりません。 Visible = TrueからVisible = Excel.XlSheetVisibility.xlSheetVisibleへ