Imports Excel = Microsoft.Office.Interop.Excel



Public Class Form1

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


        Dim stopien1_D, stopien1_b As Double
        Dim stopien2_D, stopien2_b As Double
        Dim stopien3_D, stopien3_b As Double
        Dim lozysko_DD, lozysko_D, lozysko_b As Double
        Dim tuleja_DD, tuleja_D, tuleja_b As Double
        Dim L_Dystans, T_Dystans As Double
        Dim faza, faza_kat As Double



        stopien1_D = CDbl(TxtBox_St1_D.Text)
        stopien1_b = CDbl(TxtBox_St1_Szer.Text)
        stopien2_D = CDbl(TxtBox_St2_D.Text)
        stopien2_b = CDbl(TxtBox_St2_Szer.Text)
        stopien3_D = CDbl(TxtBox_St3_D.Text)
        stopien3_b = CDbl(TxtBox_St3_Szer.Text)
        lozysko_DD = CDbl(TxtBox_L_Dduze.Text)
        lozysko_D = CDbl(TxtBox_L_Dmale.Text)
        lozysko_b = CDbl(TxtBox_L_Szer.Text)
        tuleja_DD = CDbl(TxtBox_T_Dduze.Text)
        tuleja_D = CDbl(TxtBox_T_Dmale.Text)
        tuleja_b = CDbl(TxtBox_T_Szer.Text)
        faza = CDbl(TxtBox_Faza.Text)
        faza_kat = CDbl(TxtBox_Faza_kat.Text) + 90



        L_Dystans = stopien1_b - lozysko_b
        T_Dystans = stopien1_b


        objExcel = CreateObject("Excel.Application")

        nowyplik = "C:\Zaawansowane\zajecia 7\KOLOKWIUM temat nr 9\Część1_1.xlsx"
        objZeszyt = objExcel.Workbooks.Open(nowyplik)
        objArkusz = objZeszyt.ActiveSheet




        objArkusz.Cells(4, 2).Value = stopien1_D
        objArkusz.Cells(4, 3).Value = stopien1_b
        objArkusz.Cells(4, 4).Value = stopien2_D
        objArkusz.Cells(4, 5).Value = stopien2_b
        objArkusz.Cells(4, 6).Value = stopien3_D
        objArkusz.Cells(4, 7).Value = stopien3_b
        objArkusz.Cells(4, 8).Value = L_Dystans
        objArkusz.Cells(4, 9).Value = lozysko_b
        objArkusz.Cells(4, 10).Value = lozysko_DD
        objArkusz.Cells(4, 11).Value = lozysko_D
        objArkusz.Cells(4, 12).Value = T_Dystans
        objArkusz.Cells(4, 13).Value = tuleja_b
        objArkusz.Cells(4, 14).Value = tuleja_DD
        objArkusz.Cells(4, 15).Value = faza
        objArkusz.Cells(4, 16).Value = faza_kat
        objArkusz.Cells(4, 17).Value = tuleja_D




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




    End Sub


End Class