Курсовая работа: Расчет составной конструкции системы двух тел

XL.Workbooks.Open App.Path & "\MyBook.xls"

XL.Visible = True

Set XL = XL.ActiveWorkbook.Sheets.Application

With XL.ActiveSheet

.Cells(1, 2) = "Исходные данные"

.Cells(2, 1) = "F1="

.Cells(3, 1) = "F2="

.Cells(4, 1) = "M="

.Cells(5, 1) = "alfa1="

.Cells(2, 2) = Val(frmDannye.tbP1.Text)

.Cells(3, 2) = Val(frmDannye.tbP2.Text)

.Cells(4, 2) = Val(frmDannye.tbM.Text)

.Cells(5, 2) = pi * alf1 / 180

.Cells(2, 3) = "kH"

.Cells(3, 3) = "kH"

.Cells(4, 3) = "kH*m"

.Cells(5, 3) = "рад"

.Cells(1, 6) = "Расчет реакций"

.Cells(2, 6) = "Шарнирное закрепление:"

.Cells(3, 6) = "Rd="

.Cells(4, 6) = "Rb="

.Cells(5, 6) = "Xa="

.Cells(6, 6) = "Ya="

.Cells(10, 6) = "Скользящая заделка:"

.Cells(11, 6) = "Rd="

.Cells(12, 6) = "Rb="

.Cells(13, 6) = "Xa="

End With

End Sub