QQ网名大全

求大神指点着个是怎么弄的,excel修改文件名,里面文件的名字就自动修改了,是怎么做到的!

用VBA
Sub WJlc()'文件另存
ActiveWorkbook.S**eAs Filename:=ThisWorkbook.Path&"\"&Evaluate("mid(a4,6,20)&mid(d4,6,20)")&".xls
End Sub
佚名
2024-06-06 21:11:22
最佳回答
类似问题(10)