Question

Excel中，如何用特定单元格重命名文件名？想问一下，你用vba是怎么实现的？

Answer 1

Dim i, j, k
'当日
i = UCase(Format(Now, "mmmddyyyy") & "N")
Sheet1.Name = i
'上一日
j = UCase(Format(DateAdd("d", -1, Now), "mmmddyyyy") & "N")
Sheet1.Name = j

Answer 2

Dim FileName As String
FileName = Application.GetSaveAsFilename(ThisWorkbook.Worksheets(1).[A1].Value & ".xls")
ThisWorkbook.SaveAs FileName

Answer 3

sheet1 mame=a1