巨集è list excel sheet

 

===================================

Sub All_sheet()

 

Dim s As String

s = ""

For Each w In Worksheets

s = s & Chr(10) & w.Name

Next

MsgBox (s)

 

End Sub

arrow
arrow
    全站熱搜

    我喵了就算 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄