VB操作Excel的问题

来源：百度知道 编辑：UC知道 时间：2024/06/22 20:23:53
我想实现这样一种功能，就是在一个VB窗口里有一个浏览键，可以读取一个excel文件，然后有个计算按钮，按下后会自动对excel文件里A1到A100的数据进行求和运算，并讲汇总结果显示到一个textbox里。谁可以提供个简单的代码。主要就是如何截取excel A1到A100里的数据 。

假设文件是D:\book1.xls，在VB中建立Command1,Text1,代码如下。
==========================
Private Sub Command1_Click()
Dim Ap As Object, Sht As Object, i As Integer, s As Single
Set Ap = CreateObject("Excel.Application")
Set Sht = Ap.Workbooks.Open("d:\book1.xls").Worksheets("Sheet1")
For i = 1 To 100
s = s + Val(Sht.Cells(i, 1))
Next
Text1.Text = s
Ap.Quit
Set Sht = Nothing
Set Ap = Nothing
End Sub