Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim objExcel As New Excel.Application
        Dim objZeszyt As Excel.Workbook
        Dim objArkusz As Excel.Worksheet
        Dim nowyplik As String


        objExcel = CreateObject("Excel.Application")

        nowyplik = "C:\Zaawansowane\BOSH\swieca2.xlsx"
        objZeszyt = objExcel.Workbooks.Open(nowyplik)
        objArkusz = objZeszyt.ActiveSheet

        objArkusz.Cells(3, 2).Value = CSng(txtSrednica.Text)
        objArkusz.Cells(3, 3).Value = CSng(txtDlugosc.Text)
        objArkusz.Cells(3, 4).Value = CSng(txtRozmiar.Text)
        objArkusz.Cells(3, 5).Value = CSng(txtLiczba.Text)


        objZeszyt.SaveAs(nowyplik)
        objZeszyt.Close()
        objExcel.Quit()
        objArkusz = Nothing
        objZeszyt = Nothing
        objExcel = Nothing
        MsgBox("Program zakończył zapis do Excela")
    End Sub


End Class