求助：将文件夹下面所有excel工作簿批量一次性公式转数值的VBA代码

蓝野娉婷

求助各位大神，将文件夹下面所有excel工作簿批量一次性公式转数值的VBA代码

饮冰e士

1. Option Explicit
   
2. 
   
3. Sub test()
   
4. Dim myPaht$, myfile$
   
5. Dim wk As Workbook, ws As Worksheet
   
6.   myPaht = "D:\文件夹"
   
7.   myfile = Dir(myPaht & "*.xls*")
   
8.   While myfile <> ""
   
9.     Set wk = Workbooks.Open(myfile)
   
10.     For Each ws In wk.Worksheets
    
11.       ws.UsedRange.Value = ws.UsedRange.Value
    
12.     Next
    
13.   Wend
    
14. End Sub

复制代码

大概这个样吧，没测试

蓝野娉婷

饮冰e士 发表于 2024-8-6 11:19
大概这个样吧，没测试

我把代码复制到模块里，运行以后，公式没有变成数值。空了帮忙修改一下，或者指导一下，是不是我操作的不对。

饮冰e士

蓝野娉婷 发表于 2024-8-6 11:42
我把代码复制到模块里，运行以后，公式没有变成数值。空了帮忙修改一下，或者指导一下，是不是我操作的不 ...

文件夹要改成自己实际的路径哈

饮冰e士

前面发的少了一句:
myfile=dir
下面来一个傻瓜式的完整版：

1. Sub test()
   
2. Dim myPaht$, myfile$
   
3. Dim wk As Workbook, ws As Worksheet
   
4.   Application.ScreenUpdating = False
   
5.   Application.DisplayAlerts = False
   
6.   
   
7.   With Application.FileDialog(msoFileDialogFolderPicker)
   
8.     If .Show = True Then
   
9.         myPaht = .SelectedItems(1) & ""
   
10.     Else
    
11.         End
    
12.     End If
    
13.   End With
    
14. 
    
15.   myfile = Dir(myPaht & "*.xls*")
    
16.   While myfile <> ""
    
17.      Workbooks.Open (myPaht & myfile)
    
18.      Set wk = ActiveWorkbook
    
19.     For Each ws In wk.Worksheets
    
20.       'MsgBox wk.Name & "：" & ws.Name
    
21.       ws.UsedRange.Value = ws.UsedRange.Value
    
22.     Next
    
23.     wk.Close
    
24.     myfile = Dir
    
25.   Wend
    
26.   
    
27.   Application.ScreenUpdating = False
    
28.   Application.DisplayAlerts = False
    
29. End Sub

复制代码

饮冰e士

Option Explicit

Sub test()
Dim myPaht$, myfile$
Dim wk As Workbook, ws As Worksheet
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

  With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = True Then
        myPaht = .SelectedItems(1) & "\"
    Else
        End
    End If
  End With

  myfile = Dir(myPaht & "*.xls*")
  While myfile <> ""
     Workbooks.Open (myPaht & myfile)
     Set wk = ActiveWorkbook
    For Each ws In wk.Worksheets
      'MsgBox wk.Name & "：" & ws.Name
      ws.UsedRange.Value = ws.UsedRange.Value
    Next
    wk.Close
    myfile = Dir
  Wend

  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

蓝野娉婷

饮冰e士 发表于 2024-8-6 13:48
文件夹要改成自己实际的路径哈

还是不行

饮冰e士

蓝野娉婷 发表于 2024-8-6 14:27
还是不行

新回复的完整版，还在审核中
Next
myFile=Dir‘少了一句，加上这个。

蓝野娉婷

饮冰e士 发表于 2024-8-6 14:32
新回复的完整版，还在审核中
Next
myFile=Dir‘少了一句，加上这个。

试了新的，没反应，还是公式