两个工作簿间通过SQL传输数据的问题

Yanxi2021

做了两个工作簿，一个作为数据库A，另一个作为客户端B。通过以下代码单项传输数据，即从客户端工作簿B传到数据库工作簿A。

1. Sub ShowUpList(User$)
   
2. Dim con As Object
   
3. Dim sql$, iRow&
   
4. Application.ScreenUpdating = False
   
5. Call ClearContents
   
6. Set con = CreateObject("ADODB.connection")
   
7. With con
   
8.       .Provider = "Microsoft.ACE.OLEDB.12.0;Extended Properties=excel 12.0"
   
9.       .Open ThisWorkbook.Path & "" & ThisWorkbook.Sheets("MasterData").Cells(2, 4).Text
   
10. End With
    
11. sql = "SELECT * FROM [2022M$] WHERE [Manager] ='" & User & "'"
    
12. With ThisWorkbook.Sheets("2022 BU DATA")
    
13.     iRow = .[A1048576].End(3).Row + 1
    
14.     .Range("A" & iRow).CopyFromRecordset con.Execute(sql)
    
15. End With
    
16. 
    
17. Application.ScreenUpdating = True
    
18. con.Close
    
19. Set con = Nothing
    
20. End Sub

复制代码

现在有两种场景情况不一样

1. 两个工作簿同时在一台电脑上打开，在B中修改的数据通过以上代码可以实时更新到A中。注意是实时，不用刷新A
2. 将两个工作簿放到网络公共盘，由两台电脑分别打开。工作簿B中运行以上代码时则提示，A已经打开不能更新数据，需要等到A关闭了才可以。

在网络公共盘中存放这两个工作簿是否也可以实现1中的情况？即实时更新数据的功能？比如将工作簿A设置为共享工作簿？但是设置为共享工作簿之后则提示不能再使用VBA了。请高手赐教。

高个子

这种比较复杂的需求建议不要用VBA解决了，上个数据库或者开发网站或者用Python吧

Yanxi2021

1. With con
   
2.       .Provider = "Microsoft.ACE.OLEDB.12.0;Extended Properties=excel 12.0"
   
3.       .Open ThisWorkbook.Path & "" & ThisWorkbook.Sheets("MasterData").Cells(2, 4).Text

复制代码

在执行以上open语句的时候，如何判断该文件是否已经打开？

chis3

這般奇淫的用法倒不如直接用數據庫
客戶端更新數據庫,那個開都是實時更新的

WANT-T

Yanxi2021 发表于 2022-11-21 15:08
在执行以上open语句的时候，如何判断该文件是否已经打开？

通过state来判断

Yanxi2021

WANT-T 发表于 2022-11-21 18:07
通过state来判断

能具体点吗？

Yanxi2021

如果能通过判断该共享文件是否已被人打开，给出提示也行。

micch

access做数据库不就省得研究了，这种情况应该没有必须用Excel做数据库的必要性吧

Yanxi2021

micch 发表于 2022-11-21 19:50
access做数据库不就省得研究了，这种情况应该没有必须用Excel做数据库的必要性吧

暂时还不可以，以后倒是可以用这种方式

zpy2

Yanxi2021 发表于 2022-11-21 20:58
暂时还不可以，以后倒是可以用这种方式

那暂时得确很难解决，以后倒是可以解决。