不打开数据源，目标表内的数据源动态刷新的代码怎么弄

foreverjhlc

详见附件，辛苦大家了。

foreverjhlc

在线等

dancefly09

1. Sub 数据提取()
   
2.     If MsgBox("确定更新数据？", vbYesNo + vbExclamation, "提示") = vbNo Then Exit Sub
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Dim WB As Workbook, sSht As Worksheet, dSht As Worksheet
   
6.     Dim GZT As Worksheet
   
7.     Set GZT = ThisWorkbook.Worksheets("工作台")
   
8.     Dim basePath, sFullPath
   
9.     basePath = ThisWorkbook.Path
   
10.     For i = 3 To 5
    
11.         sFullPath = basePath & "" & GZT.Cells(i, 2)
    
12.         Set WB = Workbooks.Open(sFullPath)
    
13.         Set sSht = WB.ActiveSheet
    
14.         Set dSht = ThisWorkbook.Worksheets(GZT.Cells(i, "E").Value)
    
15.         dSht.Cells.ClearContents
    
16.         sSht.UsedRange.Copy dSht.[a1]
    
17.         WB.Close False
    
18.     Next i
    
19.     Application.ScreenUpdating = False
    
20.     Application.DisplayAlerts = False
    
21.     MsgBox "更新完成", vbOKOnly + vbInformation, "提示"
    
22. End Sub
    

复制代码

查收附件
总部配送价合并.zip (49.54 KB, 下载次数: 15)

2021-5-29 12:59 上传

点击文件名下载附件

foreverjhlc

非常感谢楼上的朋友，完美解决了问题，但是领导现在又有新的要求了
目前的情况是工作簿和工作表在同一个文件夹里，新的情况如下：
1. 数据源表和汇总表不在同一个文件夹里，而且各自的文件的路径不是绝对的。
2.数据源表不止3个，会无限增加，每增加一个数据源表，就要在上面的表里写一个表名，真的太累了。。。


要求：
1.当数据源表增加后，如何可以打破3个数据源表的限制呢？
2.当增加数据源表后，汇总表里可以自动增加相应的工作表，不用手动新建。
3.如何实现数据源动态刷新在汇总表里，并且汇总表里工作表的名字就是数据源表的名字呢？比如数据源1，工作表名是总部配送价格查询dgrdRptDisp-股份，汇总表里对应的也用这个名字作为工作表名。以此类推。

附件里的代码应该如何修改，才能实现上面的效果呢？
期待大侠们的帮助！

foreverjhlc

有大神帮忙吗？

zhangzhuangzhi

领导又有新要求了，那得加钱

foreverjhlc

zhangzhuangzhi 发表于 2021-6-1 15:09
领导又有新要求了，那得加钱

没钱