ふじさきの .NET お勉強日誌

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Try

        'Excelオブジェクト
        Dim objExcel As Excel.Application = Nothing
        Dim objBook1 As Excel.Workbook = Nothing
        Dim objSheet1 As Excel.Worksheet = Nothing


        '指定されたEXCELファイルを開く
        objExcel = CType(CreateObject("Excel.Application"), Excel.Application)
        objBook1 = CType(objExcel.Workbooks.Open("C:\test.xls"), Excel.Workbook)
        objSheet1 = CType(objBook1.Worksheets("Sheet1"), Excel.Worksheet)

        objExcel.DisplayAlerts = False

        With objSheet1
            .Cells(1, 2) = "1,2"
            .Cells(2, 2) = "2,2"
            .Cells(3, 1) = "3,1"
            '.Cells(3, 2) = "3,2"
            '.Cells(3, 3) = "3,3"
            '.Cells(3, 5) = "3,5"
            '.Cells(1, 8) = "1,8"
            '.Cells(1, 10) = "1,10"
            '.Cells(2, 8) = "2,8"
            '.Cells(2, 10) = "2,10"
            '.Cells(2, 11) = "2,11"
            '.Cells(3, 8) = "3,8"
            '.Cells(3, 10) = "3,10"
            '.Cells(3, 11) = "3,11"
        End With

        'シートの保存
        objBook1.Save()

        '閉じる
        If Not objSheet1 Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(objSheet1)
        End If
        If Not objBook1 Is Nothing Then
            Try
                objBook1.Close()
            Finally
                System.Runtime.InteropServices.Marshal.ReleaseComObject(objBook1)
            End Try
        End If
        If Not objExcel Is Nothing Then
            Try
                objExcel.Quit()
            Finally
                System.Runtime.InteropServices.Marshal.ReleaseComObject(objExcel)
            End Try
        End If
        objSheet1 = Nothing
        objBook1 = Nothing
        objExcel = Nothing
        GC.Collect(2)

    Catch ex As Exception
        MessageBox.Show(ex.ToString)

    End Try