A1=日报202304012201写一段代码让excel文件保存时以a1单元格进行命名

Sub SaveAsA1CellName() Dim fileName As String fileName = ThisWorkbook.Sheets(1).Range("A1").Value & ".xlsx" ThisWorkbook.SaveAs fileName End Sub

原文地址: https://www.cveoy.top/t/topic/bb8K 著作权归作者所有。请勿转载和采集!