ADO 公式自动更新

手机用户150 · 发表于 2013-6-20 22:14

本帖最后由手机用户150 于 2013-6-21 10:17 编辑

例子.rar (39.55 KB, 下载次数: 28) 用ADO连接，向工作簿中某单元格填入数据后，工作簿内套用此单元格值的公式如何更新数值（不允许打开工作簿）？

例如：工作簿1-sheet1表-A1单元格原为空，A2单元格中是公式=A1/2；然后我在不打开此工作簿的情况下，用ADO连接的方法，向A1中填入数值4；此时不打开此工作簿的话，A2中的数值不会发生变化，有什么方法可以使其自动更新吗？

求指教，实例数据过多，无法上传，还请谅解！

更新一个简单的例子，不打开“数据存储与简单汇总”工作簿，用”录数“工作簿录入数据，然后打开“分析“工作簿，里面的数据及图表能自动更新……
，

该贴已经同步到手机用户150的微博

fankairong · 发表于 2013-6-20 22:29

那就直接在代码中也同时写入A2=A1/2呗

fankairong · 发表于 2013-6-20 22:31

另上传附件你可以只留一些代表性的数据然后再上传就可

zhaogang1960 · 发表于 2013-6-20 22:33

使用update语句向不打开那个工作簿中更新数据
请参考下面例子：

update2003.rar (13.52 KB, 下载次数: 114)

张雄友 · 发表于 2013-6-20 23:14

zhaogang1960 发表于 2013-6-20 22:33
使用update语句向不打开那个工作簿中更新数据
请参考下面例子：

附件没有看明白，是怎么UPDATE的？

zhaogang1960 · 发表于 2013-6-20 23:17

张雄友发表于 2013-6-20 23:14
附件没有看明白，是怎么UPDATE的？

UPDATE语句是用来更新数据库的，在工作表中勉强能用
具体怎么更新的我也说不清楚，请参考相关书籍吧
向access数据库中更新数据请参考：
根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)
http://club.excelhome.net/thread-1023579-1-1.html

klmyyq · 发表于 2013-6-21 00:49

方式很特别！

手机用户150 · 发表于 2013-6-21 10:19

谢谢大家，更新了一个例子，请继续指教……

zhaogang1960 · 发表于 2013-6-21 12:05

手机用户150 发表于 2013-6-21 10:19
谢谢大家，更新了一个例子，请继续指教……

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
Dim cnn As Object, SQL As String, s$
If IsNumeric(TextBox3.Text) Then s = TextBox3.Text Else s = "'" & TextBox3.Text & "'"
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=no';Data Source=" & ThisWorkbook.Path & "\数据存储与简单汇总.xlsx"
SQL = "update [Sheet1$" & ComboBox1.Value & ":" & ComboBox1.Value & "] set f1=" & s
cnn.Execute SQL
cnn.Close
Set cnn = Nothing
MsgBox "录入成功！"
ComboBox1.ListIndex = -1
TextBox3.Text = ""
End Sub

复制代码

zhaogang1960 · 发表于 2013-6-21 12:06

请看附件

例子.rar (34.94 KB, 下载次数: 110)

		自动登录	找回密码
密码			免费注册

[求助] ADO 公式自动更新