我的这个工作薄里面有好几个工作表，例如：sheet1，sheet2，sheet3，sheet4。我想把这几个表名赋值到一个数组里面怎么弄啊？刚学VBA求大侠帮助啊！！！
Sub test()
Dim shName() As String, shCount As Integer, i As Integer
shCount = ThisWorkbook.Sheets.Count
ReDim shName(1 To shCount)
For i = 1 To shCount
shName(i) = Sheets(i).Name
Next i
End Sub
Dim shName() As String, shCount As Integer, i As Integer
shCount = ThisWorkbook.Sheets.Count
ReDim shName(1 To shCount)
For i = 1 To shCount
shName(i) = Sheets(i).Name
Next i
End Sub
温馨提示：答案为网友推荐，仅供参考
