按工作表建立的时间次序，获取工作表名称（不要按Excel中工作表排列的顺序）

sun2842451

yaozong 发表于 2019-1-10 17:55
参考附件。。。。。。。。。。。

请高手过目！
Sub 工作表的名称按不同发生获取() ''更新版-2019年01月11日15时14分43秒
Dim k&, x&, k1&, x1&
Dim s As String
x = Worksheets.Count
x1 = Worksheets.Count
    For k = 1 To x
      s = ThisWorkbook.VBProject.VBComponents(k + 1).Name
      Cells(k + 1, 1) = Sheets(k).Name
      Cells(k + 1, 2) = Sheets(k).Name
      Cells(k + 1, 3) = Sheets(k).CodeName
      Cells(k + 1, 4) = ThisWorkbook.VBProject.VBComponents(k + 1).Name
     'MsgBox s
        For k1 = 1 To x1
            If ThisWorkbook.VBProject.VBComponents(k + 1).Name = Sheets(k1).CodeName Then
             Cells(k + 1, 5) = Sheets(k1).Name
            End If
        Next
    Next
[a2].Resize(x).Sort [a2]
End Sub