摘要： Sub 获取所有文件名__后期绑定() Dim fso As Object, folder As Object, file As Object Dim i As Integer, folderPath As String folderPath = "D:\日常审核\新规汇集\新建文件夹" '修改为你 阅读全文

摘要： Sub 合并各sheet表内容() Dim ws As Worksheet, nws As Worksheet Set nws = Sheets.Add(after:=Sheets(Sheets.Count)) For Each ws In Sheets If ws.Name <> nws.Name 阅读全文