用日期格式命名的文件夹的宏,需要移动工作表到里面,请求修改宏代码.

tianyk · 发表于 2018-9-21 11:16

求助:根据需要,有时会更改子文件夹名,当子文件夹被替换成日期格式后,移动工作表的宏就不起作用了.请见附件帮忙改改.谢谢!

改子文件夹名并移动工作表.zip (29.12 KB, 下载次数: 5)

xiangbaoan · 发表于 2018-9-21 11:40

更名后的文件夹，其名称并不存在于B列，没装入数组之中，复制文件时故被排除。

tianyk · 发表于 2018-9-21 12:36

本帖最后由 tianyk 于 2018-9-21 12:37 编辑

xiangbaoan 发表于 2018-9-21 11:40
更名后的文件夹，其名称并不存在于B列，没装入数组之中，复制文件时故被排除。

这个宏在更改子文件夹为日期数字型格式的名后,操作移动工作表宏,里面有同名表不被替换.但是不用日期数字型格式的命名是可以替换的.(是空白文件夹也不能移进去工作表),帮改一下下面这个宏.
Sub 移动文件夹()
Set fso = CreateObject("Scripting.FileSystemObject")
fth = ThisWorkbook.Path & "\*客户搜索词*.xlsx "
Arr = [a1].CurrentRegion
Application.ScreenUpdating = False
For j = 2 To UBound(Arr)
      If Len(Arr(j, 1)) > 0 Then
         pth = ThisWorkbook.Path & "\" & Arr(j, 1)
         For i = 2 To UBound(Arr)
            If Len(Arr(i, 2)) > 0 Then
                  pth = ThisWorkbook.Path & "\" & Arr(j, 1) & "\" & Arr(i, 2) & "\"
                     If Not fso.folderexists(pth) Then
                           MkDir pth
                        End If
                        fso.copyfile fth, pth, True
            End If
         Next i
      End If
Next j
Application.ScreenUpdating = True
End Sub

改子文件夹名并移动工作表.rar (74.13 KB, 下载次数: 1)

xiangbaoan · 发表于 2018-9-21 13:43

tianyk 发表于 2018-9-21 12:36
这个宏在更改子文件夹为日期数字型格式的名后,操作移动工作表宏,里面有同名表不被替换.但是不用日期数字 ...

……我也不是很明确了……

tianyk · 发表于 2018-9-21 16:13

本帖最后由 tianyk 于 2018-9-21 16:14 编辑

xiangbaoan 发表于 2018-9-21 13:43
……我也不是很明确了……

xiangbaoan老师:
原来更改子文件夹名是对的. 就是更改成日期数字型子文件夹名以后,再操作"移动工作表"宏,同名新表不能替换到更改了带日期数字子文件夹的表.其它的子文件夹名称命名的,是可以替换的.能否修改原移动工作表代码,或者帮另写?谢谢!

xiangbaoan · 发表于 2018-9-21 16:23

tianyk 发表于 2018-9-21 16:13
xiangbaoan老师:
原来更改子文件夹名是对的. 就是更改成日期数字型子文件夹名以后,再操作"移动工作表" ...

日期数字型是什么样的? 举例说明具体的日期数字型是什么一个样式。

tianyk · 发表于 2018-9-21 17:37

xiangbaoan 发表于 2018-9-21 16:23
日期数字型是什么样的? 举例说明具体的日期数字型是什么一个样式。

xiangbaoan 老师:
附件里面有,C列 20180513-0712 ;20180714-0912 替换到B列,子文件夹变成了20180513-0712 ;20180714-0912名称了.我称之为日期数字型,这样对子文件夹命名后,里面的"移动工作表"宏,不能移动工作表了.希望更改原"移动工作表"宏来针对处理现在这种情况.谢谢!

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

[求助] 用日期格式命名的文件夹的宏,需要移动工作表到里面,请求修改宏代码.