如何用vba更新数据源

1、VBA的数据源可以是自身的表格，也可是是数据库（例如access）

2、更新数据库可以通过VBA做增删改查的 *** 作

3、对于表格自身 可以读出数据更改。也可以直接写入excel

你的电话费是数值型，sql 中就不需要单引号引起 bb 。是字符型才需要。

Dim cn As New ADODB.Connection

cn.Open "provider=microsoft.jet.oledb.4.0extended properties=excel 8.0data source=d:\999.xls"

Dim bb As Integer

bb = [h8]

Dim sql As String

sql = "update [sheet1$] set 电话费=" &bb &" where 研究单位='汉中'" 'bb 是数值型

'sql = "update [sheet1$] set 电话费='" &bb &"' where 研究单位='汉中'" 'bb 是字符型

cn.Execute sql

cn.Close

Set cn = Nothing

End Sub

====================================================

如果你的 sql 语句和数据库不是什么秘密的东西，你还是把你的 sql 贴一下把

数据库机构也说一说，有人会帮你写的 。。。。。谁知道你改成什么样子。

===================================================

"update 表名 set 字段1=" &变量 &"，字段2=值2.....where 条件"

---