VBA，求问如何获取sub的名称？

Question

VBA，求问如何获取sub的名称？如果获取sub宏的名称？由于需要谢谢

Answer 1

Sub test() Dim FileName, xlsName As String FileName = Application.GetOpenFilename("Excel文件(*.xls),*.xls") xlsName = Mid(FileName, InStrRev(FileName, "\") + 1, 100) MsgBox xlsName End Sub本回答被提问者和网友采纳