摘要：
Sub GetSheetName() Dim Path As String Dim File As String Dim WB As Workbook Dim sht As Worksheet Dim arr() As String Dim narr() As String Application. 阅读全文
摘要：
Sub GetSheetName() Dim Path As String Dim File As String Dim WB As Workbook Dim sht As Worksheet Application.ScreenUpdating = False Path = ThisWorkboo 阅读全文