- 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