怎么把一个文件夹里的文件批量进行复制 选择性粘贴 数值？

这个的用vba了吧，我不会帮顶。

求个高手~~

Sub 粘贴值()
Application.DisplayAlerts = False
Application.Calculation = xlManual
Application.ScreenUpdating = False
Dim Wb As Object, File As Object
Set Wb = CreateObject("Scripting.FileSystemObject")
For Each File In Wb.GetFolder("文件夹路径").Files
If File.Name Like "*.xls*" Then
Workbooks.Open Filename:=File
With ActiveWorkbook
.Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
.Close True
End With
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
试下吧 文件夹路径你自己粘贴你那个文件夹的路径。。 代码是把所有工作簿的第一个工作表转换为值
自己最好先备份再试