VBA 保存文件名和储存

Sub 保存文件名()


    Range("A1:J20").Select        '选中区域
        
    aa = Mid(ActiveWorkbook.Name, 1, 22)    '切片文件名字符

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\excel-HONG\" & aa & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

Sub 文件储存()
'
' 保存
'
    ActiveWorkbook.Save
End Sub