Private Sub Command1_Click()
n = Val(Text5.Text)
d = Val(Text6.Text)
vd = 3.14 / 60 * n * d * 0.1 * 0.1 * 0.1
Text2.Text = vd
If Dir("D:\VB程序（千万别动）\excel.bz") = "" Then '
Set xlApp = CreateObject("Excel.Application") '
xlApp.Visible = True '
Set xlBook = xlApp.Workbooks.Open("E:\VB程序（千万别动）\数据.xls") '
Set xlsheet = xlBook.Worksheets(1) '
xlsheet.Activate '
xlsheet.Cells(1, 1) = "Val(Text2.Text)" '
xlBook.RunAutoMacros (xlAutoOpen)
Else
MsgBox ("EXCEL已打开")
End If
End Sub
问：这个计算数值怎么显示，如果我有很多这样的公式需要保存到这一个Excel中应该怎么编写代码？

大神们，，，

亲，我问的是怎么把得到的很多数值保存到Excel中，这个只是其中一个

大神，我是菜鸟，我做了一个汽车传动系设计的一个计算软件，需要计算很多公式，每个窗口的计算结果都需要被保存到这个Excel中，我现在能保存计算结果了，可是在计算下一个公式的时候它就会另外打开一个Excel，您看看应该怎么编写这个程序，我上面写的也是在网上找的。

在form_load中打开是什么意思？请明示~~~~

应该怎么编写程序呢？

我试试，谢谢啦