发布网友 发布时间:2022-04-22 02:45
共3个回答
热心网友 时间:2023-10-23 10:22
采用函数来实现,方法如下:
在单元格中输入“=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)”,回车;
如下图即可得到excel的文件名。
热心网友 时间:2023-10-23 10:22
以桌面为例
Sub Macro1()
'
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\桌面\" & Trim(Range("a2").Text) & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
热心网友 时间:2023-10-23 10:22
将单元格内容直接复制-直接重命名文件名-粘贴文件夹内容-回车