批量多文件夹内多工作表转成单工作表。。。

dhykk · 发表于 2020-9-27 18:07

本帖最后由 dhykk 于 2020-9-28 00:55 编辑

批量多个工作簿内工作表合成为一表，工作簿名称为原来的名称，表名称为干部档案目录。。我发示例文件给大家看一下。有能力的帮忙弄一下。。感谢感谢···

dhykk · 发表于 2020-9-27 19:58

没人吗？？

dhykk · 发表于 2020-9-27 19:58

大神们。。你们快来帮帮忙

。。

liulang0808 · 发表于 2020-9-27 20:25

Sub test()
Set fso = CreateObject("scripting.filesystemobject")
Application.ScreenUpdating = False
For Each f In fso.getfolder(ThisWorkbook.Path & "\a\").Files
      With Workbooks.Open(f)
         Set sh = .Sheets(1)
         r = sh.[a1].CurrentRegion.Rows.Count + 2
         For j = 2 To .Sheets.Count
            x = .Sheets(j).[a1].CurrentRegion.Rows.Count - 2
            .Sheets(j).[a1].CurrentRegion.Offset(3).Copy sh.Cells(r, 1)
            r = r + x
         Next j
         sh.Copy
         .Close False
      End With
      ActiveWorkbook.SaveAs ThisWorkbook.Path & "\b\" & f.Name
      ActiveWorkbook.Close False
Next f
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2020-9-27 20:26

附件内容供参考。。。。。

dhykk · 发表于 2020-9-27 21:55

liulang0808 发表于 2020-9-27 20:26
附件内容供参考。。。。。

大哥这个怎么用啊。。

dhykk · 发表于 2020-9-27 21:56

liulang0808 发表于 2020-9-27 20:25
Sub test()
Set fso = CreateObject("scripting.filesystemobject")
Application.ScreenUpdating ...

用不了。。谢谢。。

dhykk · 发表于 2020-9-27 23:09

发不出去了什么意思啊？？字太少了吗？？

dhykk · 发表于 2020-9-27 23:27

为何无法评论啊？？？？什么情况啊

dhykk · 发表于 2020-9-27 23:30

本帖最后由 dhykk 于 2020-9-28 01:06 编辑

无法运行啊

		自动登录	找回密码
密码			免费注册

[求助] 批量多文件夹内多工作表转成单工作表。。。

评分

评分

最新热点 /1