如何用vba查询另一个工作簿的内容后对内容进行修改，修改的内容更新到原先的工作表

603974

如何用vba查询另一个工作簿的内容后对内容进行修改，修改的内容更新到原先的工作表

具体就是在gongcheng这个工作簿中将ku这个工作簿中的工作表Sheet1当成一个数据库，然后可以从Sheet1中查询到数据，接着在gongcheng的工作表中进行修改后可以把修改内容更新到工作簿ku的Sheet1工作表中

现在参考其他帖子和一些书已经可以实现查询了，但是更新功能还没有实现，希望各位老师不吝赐教。

ps1:附件中有一些内容我是有参考VB书籍，所以会有些多余的定义

ps2:更新的这个过程不能指定返回的行与列，因为我是想用excel做一个小型的数据库和数据管理系统，后续将会添加查询的条件，所以查到的数据可能只有数据库中的一部分，并且gongcheng中修改的数据是无法得知在数据库中原先的位置的，需要代码来实现（这也是我学习了很久也无法解决的一个难题）

ps3:还是关于更新的过程，我曾经想过无论从数据库中查到多少数据，查到的数据有没进行修改，只要触发了点击“更新”这个按键，就将全部查到的数据按指定位置复制进去，或者复制在数据库末尾，只将原数据删除的做法，但是这些做法还是要知道数据在数据库的原位置，如果各位老师有更专业的做法，希望能多多指点


感谢各位老师和大神看完小弟这么多的文字，小弟初来乍到，先谢谢各位老师和大神的帮助

zpy2

如果是数据库，可以看看sql语句，update是更新记录。

603974

老师，我自己写了个语句，但是老是报update语法不对的错误

Private Sub CommandButton2_Click()
Dim k As Integer
Dim R As Range
Dim d As Integer
Dim s, u, j As Integer
j = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 14).End(xlUp).Row '自己用了多少行


Set cnn = New ADODB.Connection
cnnstr = "Provider=microsoft.jet.oledb.4.0;" & "extended properties=excel 8.0;" & "data source=F:\ku\ku.xls;"
cnn.ConnectionString = cnnstr
cnn.Open cnnstr
mysheet = "Sheet1"
s = j
For d = 1 To s
sql = "update Sheet1 Set 停电设备=" & ThisWorkbook.Worksheets("Sheet1").Cells(j, 2) & " ," _
& "set 风险等级=" & ThisWorkbook.Worksheets("Sheet1").Cells(j, 3) & "" _
  & " where ID=" & ThisWorkbook.Worksheets("Sheet1").Cells(j, 14) & ""
Set rs = New ADODB.Recordset
Set rs = cnn.Execute(sql)
cnn.Close
Set rs = Nothing
Set cnn = Nothing
j = j - 1
Next d
End Sub

我添加了监视后，监视值为sql="update Sheet1 Set 停电设备=110kV贡攀线线路 ,set 风险等级=七级电网事件 where ID=4",实在是看不出来语法哪里错了，能帮忙看一下吗？

603974

zpy2 发表于 2019-6-21 07:16
如果是数据库，可以看看sql语句，update是更新记录。

老师，我自己写了段程序，但是老是报update语法不对的错误

Private Sub CommandButton2_Click()
Dim k As Integer
Dim R As Range
Dim d As Integer
Dim s, u, j As Integer
j = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 14).End(xlUp).Row '自己用了多少行
Set cnn = New ADODB.Connection
cnnstr = "Provider=microsoft.jet.oledb.4.0;" & "extended properties=excel 8.0;" & "data source=F:\ku\ku.xls;"
cnn.ConnectionString = cnnstr
cnn.Open cnnstr
mysheet = "Sheet1"
s = j
For d = 1 To s
sql = "update [" & mysheet & "$] Set 停电设备='" & ThisWorkbook.Worksheets("Sheet1").Cells(j, 2) & "' ," _
& "Set 风险等级='" & ThisWorkbook.Worksheets("Sheet1").Cells(j, 3) & "'" _
  & " where ID=" & ThisWorkbook.Worksheets("Sheet1").Cells(j, 14) & ""
Set rs = New ADODB.Recordset
Set rs = cnn.Execute(sql)
cnn.Close
Set rs = Nothing
Set cnn = Nothing
j = j - 1
Next d
End Sub
我添加了监视后，监视值为sql="update [Sheet1$] Set 停电设备='110kV贡攀线线路' ,Set 风险等级='3级电网事件' where ID=4",实在是看不出来语法哪里错了，能帮忙看一下吗？

zpy2

603974 发表于 2019-6-22 11:23
老师，我自己写了段程序，但是老是报update语法不对的错误

Private Sub CommandButton2_Click()

论坛的搜索一下打不开，看看下面的sql语句
[url=https://www.runoob.com/ado/ado-update.html]https://www.runoob.com/ado/ado-update.html[url]
你二句set用逗号分割，Ado不支持

我说买买买

新人路过，来看看，学习学习的...

603974

zpy2 发表于 2019-6-22 11:31
论坛的搜索一下打不开，看看下面的sql语句
https://www.runoob.com/ado/ado-update.html
你二句set用逗 ...

谢谢老师指导，问题成功解决了

603974

zpy2 发表于 2019-6-22 11:31
论坛的搜索一下打不开，看看下面的sql语句
https://www.runoob.com/ado/ado-update.html
你二句set用逗 ...

老师，时隔这么长再次来打扰，我现在想用VBA来查询和写入另一个工作簿的版本号请问要怎么实现，查询了一下网站和其他资料，只有实现查询和写入正在操作工作簿版本号的方法，我自己按照自己的理解和网站上给的启发也写了一段程序：
Private Sub CommandButton8_Click()
Dim cnnstr As String

Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
cnnstr = "F:\ku\ku.xls"

Set xlBook = GetObject(cnnstr) '取得ku这个文件
xlBook.BuiltinDocumentProperties("Document version") = "测试"
MsgBox xlBook.BuiltinDocumentProperties("Document version")
End Sub
但是并不能实现，希望老师能不吝赐教C:\Users\ASUS\Desktop\捕获.jpg
另：老师上次的网站对我帮助很大，非常谢谢