VB中获取网页源码的几种方法 »

« windows下学习发展流程图

问题：怎样利用Excel实现数据计算

首先引用Excel对象，然后利用Worksheet对象/Rangle对象的Formula属性。

Range.Formula 属性：返回或设置一个 Variant 值，它代表 A1 样式表示法和宏语言中的对象的公式。

语法

表达式.Formula

表达式   一个代表 Range 对象的变量。

说明

如果单元格包含一个常量，此属性返回该常量。如果单元格为空，此属性返回一个空字符串。如果单元格包含公式，Formula 属性将该公式作为字符串返回，所用格式与在编辑栏（包括等号）中显示时的格式相同。

如果将单元格的值或者公式设置为日期类型，则 Microsoft Excel 将检查此单元格的数字格式是否符合日期或者时间格式。如果不符合，Microsoft Excel 将把数字格式设置为默认的短日期格式。

如果指定区域是一维或二维区域，则可将公式指定为 Visual Basic 中相同维数的数组。同样，也可在 Visual Basic 数组中使用公式。

如果为多单元格区域设置公式，则会用公式填充该区域所有的单元格。

例子代码：

 

Option Explicit
Function result(ByVal x As String)
Dim obj As Object
Set obj = CreateObject("Excel.Sheet")
Set obj = obj.Application.ActiveWorkbook.ActiveSheet
obj.Range("a1").Formula = "=" & x
result = obj.Range("a1").Value
If Err.Number > 0 Then
    MsgBox Err.Description
End If
Set obj = Nothing
End Function
Private Sub Command1_Click()
Dim x As String
x = Text1.Text
Text2.Text = result(x)
End Sub

[在Visual Basic中控制Excel（3）]

[在Visual Basic中控制Excel（2）]

[在Visual Basic中控制Excel（1）]