Question

VB操作Excel的问题

我想实现这样一种功能，就是在一个VB窗口里有一个浏览键，可以读取一个excel文件，然后有个计算按钮，按下后会自动对excel文件里A1到A100的数据进行求和运算，并讲汇总结果显示到一个textbox里。谁可以提供个简单的代码。主要就是如何截取excel A1到A100里的数据 。

Answer 1

可能是因为你数据库文件所在的目录权限对特定的用户没有开启足够的权限，你只能进行只读访问，一般出现这种情况的文件系统为NTFS，解决方法如下：

首先，你找到数据库所在目录，也可以是上层目录，然后设置文件夹
安全
属性，最简单的是把everyone的权限设置成完全即可，那对于这个问题，应该使哪个对象的权限设置成完全呢？答案是
IUSER_你的机器名
。这个是哪个对象？这个是Internet来宾用户，有兴趣的读者可以查阅相关资料。至此，问题解决，你可以再运行一下看看是否解决了问题。

附：对于Windows
XP的用户，也许你会茫然于更改文件夹的安全属性。因为在默认情况下，Windows
XP使用了简单文件共享方法，所以，当你点
属性
的时候是看不到
安全
选项卡的。具体操作如下：

我的电脑-->文件夹选项-->查看-->取消
使用简单文件共享（推荐）
的勾选
即可。你查看一下你要更改文件夹的属性，是不是多了一个
安全
选项卡呢？

Answer 2

假设文件是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