Excel 怎样批量删除文件夹中文件名的特定字符
1个回答
展开全部
Sub FReName()
On Error Resume Next
Dim str As String
str = Dir(ThisWorkbook.Path & "\*.xls", vbNormal)
Do While str <> ""
Name ThisWorkbook.Path & "\" & str As ThisWorkbook.Path & "\" & Replace(str, "表", "")
str = Dir
Loop
End Sub
On Error Resume Next
Dim str As String
str = Dir(ThisWorkbook.Path & "\*.xls", vbNormal)
Do While str <> ""
Name ThisWorkbook.Path & "\" & str As ThisWorkbook.Path & "\" & Replace(str, "表", "")
str = Dir
Loop
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
