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中应该怎么编写代码？

大神们，，，

为什么不*0.001，而要乘3个0.1？

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

程式分二部分，
excel 对象定义为全局的。
第一部分，负责打开文件和保存文件，一共是二个函数。
第二部分，负责写入数据，可以是一个函数，也可以直接引用，建议用函数，主要是可以封装校验代码。

最后，如果一次性写入大量的数据，我的建议是使用 csv 格式的文件，但这种文件是给电脑看的，不支持宏，人要看就需要重排版，无数据类型设置。

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

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)
以上代码是一按钮点击事件中,每点一次当然都要set一次.使得打开多个EXCEL应用
如果只对一个工作簿,一个工作表操作,在form_load中打开

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

应该怎么编写程序呢？

好吧，找到一个 5年前写的代码，你参考一下吧。

        Set Excel1 = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then             '如果此处有错误号，则执行后面内容
        Err.Clear                       '要先清掉前面的错误号，否则后面的判断会出现失误
        Set Excel1 = CreateObject("Excel.Application")
    End If
    
    If Err.Number <> 0 Then             '如果打开或创建对象均失败，则提示，并退出处理过程
        MsgBox "打开 Excel 文件失败！", vbCritical, 程序标题
        Exit Sub
    End If

首先，引用已运行的 excel ，如果引用失败，则创建一下，如果还失败，那就报错。