把文件夹下多个工作簿里面的工作表转为值存储

wz79945696

【汇总.xlsb】与【源文件1.xls】【源文件2.xls】【源文件3.xls】......【源文件N*.xls】在同一个文件夹下

在【汇总.xlsb】里面写一个宏

把所有 【源文件N】里面的SHEETS（"资金流水汇总表"）转为值并保存

如果  位置不变 命名不变
例如：测试源文件2 - 副本.xls依然为测试源文件2 - 副本.xls

microyip

http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总，参考变通一下

wz79945696

microyip 发表于 2018-8-24 14:07
http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总，参考变通一下

我发现了 我的问题貌似还不是转为值的问题

由于我的表格间公式太多了
个人感觉是无论用workbookopne ado getobject
三种方式的哪种 由于速度过快 导致了 给arr赋值的时候产生了空值（大概意思就是公式还没来得及计算）
因为简单的公式如 =if（e2=“”，“”，a4） 这种是可以被获取复制给arr的
顺带放上自己的修改的转为值存储（如果需要把每张表都改变为值，加一个for循环即可）

1. Sub Upata()
   
2.     Application.ScreenUpdating = False
   
3.     On Error Resume Next
   
4.     Application.DisplayAlerts = False
   
5.     Dim Wb As Workbook, S As Worksheet
   
6.     p = ActiveWorkbook.Path & "/"
   
7.     For Each File In CreateObject("Scripting.FilesyStemObject").GetFolder(p).Files
   
8.     If InStr(File.Name, ThisWorkbook.Name) = 0 And LCase(File.Name) Like "*.xls*" Then
   
9.         Set Wb = Workbooks.Open(File)
   
10.         With Wb.Worksheets("资金流水汇总表")
    
11.         .UsedRange = .UsedRange.Value
    
12.         End With
    
13.         Wb.Close True
    
14.     End If
    
15.     Next
    
16.     Application.DisplayAlerts = True
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    
19. 
    

复制代码

另外我这个excel源文件真的很神奇
我插入新的sheet和将sheet复制副本到本文件都会 影响
Worksheets("资金流水汇总表") 这张表 不知道大大能否帮忙看看什么原因