Question

请高手详细讲解下VB访问、修改Excel的问题

我本身有个Excel数据表里面每个表格有数值及计算公式，所以想在特定的表格中输入不同数值，通过Excel计算后得到最终结果，现在Excel这个数据表已经完成，但是想通过VB编写一个程序，可以打开Excel，在VB程序里可以进行对Excel表中数值修改，修改后在VB中显示Excel修改后计算得到的数值（图片如下）

比如我想通过VB对第二行，第三行，第四行赋值，然后第48行得到的计算结果，想通过VB最后显示出来，如何做到啊，请高手详细指导，不胜感谢~~~

Answer 1

VB操作Excel的原理就是

1、工程中导入excel的dll

2、在工作中通过CreateObject("Excel.Application")创建excel对象

3、通过上面2创建的excel对象，用excel的VBA语法操作各个sheet以及各单元格的值。

明白这个原理之后，再用

vb 操作EXCEL

作为关键字去google中搜索一下，第一条应该就是你想要的答案了，

如果在实际过程中还有不明白的，再问吧。

 

以下是我之前用vbs写的一个读取excel的值并写入到word的例子，你可以参考下，理解下。

http://hi.baidu.com/kaixiawei/item/0d730e4a60aa0a0be935046c

Answer 2

添加excel 的 reference

Sub Main()
Dim ExlApp As Application
Const fPath As String = "D:\test1.xlsx"
ExlApp = CreateObject("Excel.Application")
With ExlApp
.Workbooks.Open(fPath)
.Visible = True
.Sheets("Test").activate()
'assign value
'.Cells(2, 2) = 5
'load value
'a=.cells(48,2).value
.ActiveWorkbook.Close(True)
.Quit()
End With
ExlApp = Nothing
End Sub

Answer 3

用ACCESS或你熟悉的数据库做你的vb数据存储，显示结果的时候，用vb把结果填到excel中，就不用那么麻烦啦！

Answer 4

EXCEL本身都可以实现这些功能，不知道为啥非要VB?

追问

本身确实可以，就是想把Excel当成数据库，以后用VB编好程序直接输入数值，然后显示出来，想能简洁方便些

追答

本来挺简洁的事情，非要做的那么复杂。
我都做VB和EXCEL多年了，搞的复杂累。

追问

嗯，确实，我看了好几天书，看的头都疼了，所以上来看看高人给些指导，确实有些复杂，但是还是要弄的。。。