山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

vb怎样调用Excel中的函数

楼主addition（）2002-06-09 11:26:03 在 VB / 基础类提问

vb可以调用Excel中的函数吗，那么是怎样调用呢（调用求逆阵啊等等）
因为我不想自己写一些矩阵运算的程序，没时间了。问题点数：20、回复次数：10Top

1 楼addition（）回复于 2002-06-09 12:20:52 得分 0

没有人做过这方面的吗？Top

2 楼NetMan1999（NetMan1999）回复于 2002-06-09 12:28:35 得分 3

去查看excel帮助中，有关vb编程部分，其中对excel中COM对象的所有消息、属性和方法有详细的说明，看看就清楚了Top

3 楼addition（）回复于 2002-06-09 21:55:40 得分 0

我怎么就是找不到阿
sign，这里怎么这么冷清呢？Top

4 楼jacklondon（jacklondon）回复于 2002-06-09 23:16:02 得分 2

在一本《Visual Basic 5 高级开发指南》中有详细资料。我只说一个大概。
1。工程-->引用-->找到Microsoft Excel对象。
2。dim obj as Excel.ApplicationTop

5 楼NetMan1999（NetMan1999）回复于 2002-06-10 08:12:06 得分 0

那你检查你是否安装了EXCEL关于VB的帮助Top

6 楼addition（）回复于 2002-06-10 10:59:00 得分 0

Excel.Application我曾经用过的，我用它来把dataGird中的数据输入到Excle中。但现在我不知道怎么去调用函数
比如两个矩阵相乘：MMULT(B30:M33,F2:F13)
我在vb中怎么调用呢？
我的EXCEL关于VB的帮助好像有的，但是查不到调用函数的阿
Top

7 楼liad（）回复于 2002-06-10 11:32:19 得分 0

xlApp.WorksheetFunction.MMult
xlApp为Excel.Application
详见:
Example of Using Worksheet Functions in Visual Basic
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/xlhowUsingWorksheetFunctionsX.asp
Top

8 楼liad（）回复于 2002-06-10 11:59:45 得分 15

xlApp.Cells(1, 1) = 2
xlApp.Cells(1, 2) = 3
xlApp.Cells(1, 3) = 4

xlApp.Cells(2, 1) = 4
xlApp.Cells(2, 2) = 3
xlApp.Cells(2, 3) = 2

xlApp.Cells(1, 5) = 7
xlApp.Cells(1, 6) = 8
xlApp.Cells(1, 7) = 9

xlApp.Cells(2, 5) = 5
xlApp.Cells(2, 6) = 3
xlApp.Cells(2, 7) = 4

xlApp.Cells(3, 5) = 1
xlApp.Cells(3, 6) = 3
xlApp.Cells(3, 7) = 0

xlApp.Range(xlApp.Cells(6, 1), xlApp.Cells(7, 3)) = xlApp.WorksheetFunction.MMult(xlApp.Range(xlApp.Cells(1, 1), xlApp.Cells(2, 3)), xlApp.Range(xlApp.Cells(1, 5), xlApp.Cells(3, 7)))Top

9 楼addition（）回复于 2002-06-10 12:16:39 得分 0

太好了，我下午试试！Top

10 楼addition（）回复于 2002-06-10 14:55:00 得分 0

果然好了
现在我不用写矩阵的求逆阵算法了
而且我根本没用Excel的引用就可以了Top