多个EXCEL文件做相同操作，名字没有规律

玉玲珑8705

请大神帮忙：EXCEL文件中的sheet1表中有很多公式和引用，需要将sheet1表数据复制然后在原表数值粘贴，再将除sheet1之外的其它表全部删除，然后保存。有800多个EXCEL文件需要做相同操作。求大神给写个VBA程序

xuemei0216

把800多个文件放在一个文件夹里，遍历所有文件，在表1里操作粘贴数据，然后删除除表1外的所有表。
遍历文件在论坛里搜一下，应该有很多
粘贴数据，实在不会写，你就录制宏，很简单
删除表，论坛应该也有很多。
由于没有附件没办法帮你，但是按照上面的思路，你应该很快能自己搞出来。

小花鹿

一般情况下，求助问题要上传附件                                                                                                

玉玲珑8705

感谢各位的回复，我是新手不知道还要上传附件，现将附件上传，希望大神们帮忙，我不懂VBA，还请各位写的尽量简单、详细，通俗易懂，谢谢！

liangmutou01

将下面代码放在另一个工作簿中，将该工作簿放在欲修改的工作簿文件同一文件夹里
Sub sc()
  lj = ThisWorkbook.Path & "\"
  wjm = Dir(lj & "*.xlsx")
  Do While wjm <> ""
    Workbooks.Open lj & wjm
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Workbooks(wjm)
      .Sheets("Sheet1").Cells.Copy
      .Sheets("Sheet1").Range("a1").PasteSpecial xlPasteValues
      For Each b In .Sheets
        If b.Name <> "Sheet1" Then b.Delete
      Next b
      .Close True
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    wjm = Dir()
  Loop
End Sub

liangmutou01

将程序文件一并发给你。

玉玲珑8705

liangmutou01 发表于 2019-10-19 21:33
将程序文件一并发给你。

感谢您的帮助，我试过没成功，还请您详细说明用法。另：如果我想保留的是同一个工作簿中的另一个工作表呢？该如何修改？

Tim-tao

Application.GetOpenFilename("Excel数据文件,*.xls*", , , , True)
这个方法看看能不能帮到你

玉玲珑8705

liangmutou01 发表于 2019-10-19 21:33
将程序文件一并发给你。

感谢您的帮助，我试过没成功，还请您详细说明用法，谢谢！