一个文件夹内多个文件汇总，并按照规则拆分，生成多个文件。

lsc900707 · 发表于 2018-5-3 22:07

javierexcel 发表于 2018-5-3 22:04
谢谢老师，但是后期出现报错。
我先把Sheet1里的A3:V25删除，再点击拆分文件，出现报错。

你要先点汇总，然后才能拆分的。没有数据怎么拆分呀。

javierexcel · 发表于 2018-5-3 22:20

lsc900707 发表于 2018-5-3 22:07
你要先点汇总，然后才能拆分的。没有数据怎么拆分呀。

自然是有点的，基本的常识我还是懂一些的。只是最后确实有报错。烦请老师指点。

lsc900707 · 发表于 2018-5-3 22:22

javierexcel 发表于 2018-5-3 22:20
自然是有点的，基本的常识我还是懂一些的。只是最后确实有报错。烦请老师指点。

哦，那就把文件夹“拆分好的”里的文件先行删除再点拆分。

jjmysjg · 发表于 2018-5-3 22:26

按一列中包含的指定字符拆分

javierexcel · 发表于 2018-5-3 22:28

我是先把整个文件夹删除了以后，再删除A3:V25的内容。再点拆分文件，所以才报错。

lsc900707 · 发表于 2018-5-4 08:00

javierexcel 发表于 2018-5-3 22:28
我是先把整个文件夹删除了以后，再删除A3:V25的内容。再点拆分文件，所以才报错。

要先在同目录下建好一个文件夹并命名“拆分好的”。

javierexcel · 发表于 2018-5-4 12:15

lsc900707 发表于 2018-5-4 08:00
要先在同目录下建好一个文件夹并命名“拆分好的”。

Sub 拆分文件()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
arr = [a2].CurrentRegion
Set Rng = [a2].Resize(, 22)
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
s = Right(Split(arr(i, 20), "-")(0), 1)
If Not d.Exists(s) Then
Set d(s) = Cells(i + 1, 1).Resize(1, 22)
Else
Set d(s) = Union(d(s), Cells(i + 1, 1).Resize(1, 22))
End If
Next
k = d.Keys
t = d.Items
For i = 0 To d.Count - 1
With Workbooks.Add
Rng.Copy .Sheets(1).[a1]
t(i).Copy .Sheets(1).[a2]
.SaveAs Filename:=ThisWorkbook.Path & "\拆分好的" & k(i), FileFormat:=xlWorkbookDefault
.Close
End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

复制代码

假如我需要在文件名后面增加当天的日期和时间。应该在哪一部分添加呢？

lsc900707 · 发表于 2018-5-4 12:26

javierexcel 发表于 2018-5-4 12:15
假如我需要在文件名后面增加当天的日期和时间。应该在哪一部分添加呢？

.SaveAs Filename:=ThisWorkbook.Path & "\拆分好的\" & k(i) & Format(Now(), "yyyymmddhhmmss"), FileFormat:=xlWorkbookDefault

javierexcel · 发表于 2018-5-4 18:03

lsc900707 发表于 2018-5-4 12:26
.SaveAs Filename:=ThisWorkbook.Path & "\拆分好的\" & k(i) & Format(Now(), "yyyymmddhhmmss"), File ...

测试.rar (42.29 KB, 下载次数: 6)

在新增一个订单后进行汇总，发生报错。烦请老师看一下。

lsc900707 · 发表于 2018-5-4 18:20

javierexcel 发表于 2018-5-4 18:03
在新增一个订单后进行汇总，发生报错。烦请老师看一下。

你的测试工作簿放在这里干什么？如果必须放，那就代码必须修改。

我只看你最初的附件和要求写代码，而不是无休止的帮你解决所有问题。

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

[已解决] 一个文件夹内多个文件汇总，并按照规则拆分，生成多个文件。