自动生成文件的命名

giuber · 发表于 2018-7-19 14:16

我需要做个从文件(CSV517)中提取信息到N模板(MODEL)里
代码已基本完成，但是命名遇到问题
我代码写的是(CSV517)中，以A列信息命名生成新文本，但A列信息有时候会重复或本来就有
求大神指导下

要求生成文件命名时追加2位数字的编号：例：A列有2个一样的（CH-1807-MQ-），且生成文件夹原本就有个名为CH-1807-MQ-01的文件，
则自动生成时改名为CH-1807-MQ-02和CH-1807-MQ-03
简单来说就是为了不重名追加2位数字的编号
详见附件

游乐缘 · 发表于 2018-7-19 14:42

Format(WorksheetFunction.CountIf(Range(Cells(2, 1), Cells(i, 1)), Cells(i, 1)), "00")

游乐缘 · 发表于 2018-7-19 14:43

Format(WorksheetFunction.CountIf(Range(Cells(2, 1), Cells(i, 1)), Cells(i, 1)), "00") 生成相同内容的两位序列号，加入到原名称当中即可

Chip_Kenny · 发表于 2018-7-19 15:16

修改了您的代碼:

Sub test()
Application.DisplayAlerts = False
Dim d As Object, p$, f
p = ThisWorkbook.Path
Set d = CreateObject("scripting.dictionary")
f = Dir(p & "" & "*.xls")
Do While f <> ""
If InStrRev(f, "-") Then
f = Mid(f, 1, InStrRev(f, "-"))
d(f) = d(f) + 1
End If
f = Dir
Loop
Set template = Workbooks.Open(p & "" & "MODEL.xls")
For i = 2 To ThisWorkbook.Sheets(1).[d65536].End(xlUp).Row
With template.Sheets("statements")
f = ThisWorkbook.Sheets(1).Cells(i, 1)
d(f) = d(f) + 1
.Cells(8, "c") = ThisWorkbook.Sheets(1).Cells(i, 4) '黍J/R NO.
.Cells(8, "e") = ThisWorkbook.Sheets(1).Cells(i, 5) '黍巹迖潔
.Cells(8, "f") = ThisWorkbook.Sheets(1).Cells(i, 14) '黍巹迖煤
.Cells(8, "g") = ThisWorkbook.Sheets(1).Cells(i, 15) '黍冪煤
End With
template.SaveCopyAs ThisWorkbook.Path & "" & ThisWorkbook.Sheets(1).Cells(i, 1) & Format(d(f), "00") & ".xls"
Next
template.Close False
Application.DisplayAlerts = False
End Sub

复制代码

Chip_Kenny · 发表于 2018-7-19 15:17

审核中，請看圖。

giuber · 发表于 2018-7-19 17:02

Chip_Kenny 发表于 2018-7-19 15:17
审核中，請看圖。

大神。。截图中怎么还有个方块英的图片，挡住代码了。。。

Chip_Kenny · 发表于 2018-7-19 19:51

4樓审核了，複製代碼即可。

giuber · 发表于 2018-7-20 09:19

本帖最后由 giuber 于 2018-7-20 09:46 编辑

Chip_Kenny 发表于 2018-7-19 19:51
4樓审核了，複製代碼即可。

大神，新生成的文件把原有的文件覆盖掉了。。。
比如要生成的文件名有3个CH-1807-UT-，导出文件CH-1807-UT-01，CH-1807-UT-02，CH-1807-UT-03
如果我再次导出还是只有这3个，我的目标是再次生成是进位04,05,06
这样的话本次导出文件不会覆盖之前的文件，这个能做到么？
审核怎么还会漏东西。。。晕，少了2个"/"

lsc900707 · 发表于 2018-7-20 09:21

giuber 发表于 2018-7-20 09:19
大神，新生成的文件把原有的文件覆盖掉了。。。
比如要生成的文件名有3个CH-1807-UT-，导出文件CH-1807- ...

另外大神也有纰漏哦。。。上面代码少了2个"/"这是论坛自身的原因，不是老师的纰漏！

Chip_Kenny · 发表于 2018-7-20 09:53

先多謝 lsc900707 版主解釋沒了 \ 的原因, 另樓主需要的效果，衹需將 06-13 幾行代碼刪除即可。

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

[求助] 自动生成文件的命名