Facebook
From MK, 5 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 187
  1. Imports Excel = Microsoft.Office.Interop.Excel
  2.  
  3.  
  4.  
  5. Public Class Form1
  6.  
  7.     Private Sub btn_Wprowadz_Click(sender As Object, e As EventArgs) Handles btn_Wprowadz.Click
  8.         Dim objExcel As New Excel.Application
  9.         Dim objZeszyt As Excel.Workbook
  10.         Dim objArkusz As Excel.Worksheet
  11.         Dim nowyplik As String
  12.  
  13.  
  14.         Dim stopien1_D, stopien1_b As Double
  15.         Dim stopien2_D, stopien2_b As Double
  16.         Dim stopien3_D, stopien3_b As Double
  17.         Dim lozysko_DD, lozysko_D, lozysko_b As Double
  18.         Dim tuleja_DD, tuleja_D, tuleja_b As Double
  19.         Dim L_Dystans, T_Dystans As Double
  20.         Dim faza, faza_kat As Double
  21.  
  22.  
  23.  
  24.         stopien1_D = CDbl(TxtBox_St1_D.Text)
  25.         stopien1_b = CDbl(TxtBox_St1_Szer.Text)
  26.         stopien2_D = CDbl(TxtBox_St2_D.Text)
  27.         stopien2_b = CDbl(TxtBox_St2_Szer.Text)
  28.         stopien3_D = CDbl(TxtBox_St3_D.Text)
  29.         stopien3_b = CDbl(TxtBox_St3_Szer.Text)
  30.         lozysko_DD = CDbl(TxtBox_L_Dduze.Text)
  31.         lozysko_D = CDbl(TxtBox_L_Dmale.Text)
  32.         lozysko_b = CDbl(TxtBox_L_Szer.Text)
  33.         tuleja_DD = CDbl(TxtBox_T_Dduze.Text)
  34.         tuleja_D = CDbl(TxtBox_T_Dmale.Text)
  35.         tuleja_b = CDbl(TxtBox_T_Szer.Text)
  36.         faza = CDbl(TxtBox_Faza.Text)
  37.         faza_kat = CDbl(TxtBox_Faza_kat.Text) + 90
  38.  
  39.  
  40.  
  41.         L_Dystans = stopien1_b - lozysko_b
  42.         T_Dystans = stopien1_b
  43.  
  44.  
  45.         objExcel = CreateObject("Excel.Application")
  46.  
  47.         nowyplik = "C:\Zaawansowane\zajecia 7\KOLOKWIUM temat nr 9\Część1_1.xlsx"
  48.         objZeszyt = objExcel.Workbooks.Open(nowyplik)
  49.         objArkusz = objZeszyt.ActiveSheet
  50.  
  51.  
  52.  
  53.  
  54.         objArkusz.Cells(4, 2).Value = stopien1_D
  55.         objArkusz.Cells(4, 3).Value = stopien1_b
  56.         objArkusz.Cells(4, 4).Value = stopien2_D
  57.         objArkusz.Cells(4, 5).Value = stopien2_b
  58.         objArkusz.Cells(4, 6).Value = stopien3_D
  59.         objArkusz.Cells(4, 7).Value = stopien3_b
  60.         objArkusz.Cells(4, 8).Value = L_Dystans
  61.         objArkusz.Cells(4, 9).Value = lozysko_b
  62.         objArkusz.Cells(4, 10).Value = lozysko_DD
  63.         objArkusz.Cells(4, 11).Value = lozysko_D
  64.         objArkusz.Cells(4, 12).Value = T_Dystans
  65.         objArkusz.Cells(4, 13).Value = tuleja_b
  66.         objArkusz.Cells(4, 14).Value = tuleja_DD
  67.         objArkusz.Cells(4, 15).Value = faza
  68.         objArkusz.Cells(4, 16).Value = faza_kat
  69.         objArkusz.Cells(4, 17).Value = tuleja_D
  70.  
  71.  
  72.  
  73.  
  74.         objZeszyt.SaveAs(nowyplik)
  75.         objZeszyt.Close()
  76.         objExcel.Quit()
  77.         objArkusz = Nothing
  78.         objZeszyt = Nothing
  79.         objExcel = Nothing
  80.         MsgBox("Program zakończył zapis do Excela")
  81.  
  82.  
  83.  
  84.  
  85.     End Sub
  86.  
  87.  
  88. End Class
  89.