[已解决]如何获取工作表名称？

沙豆

如何将EXECL中所有的工作表名称输出到一个单元格中或一个文本文件中，用逗号或分号分开？

最佳答案

月排行榜 / 总排行榜

仔仔

2012-6-8 19:13

Sub getsht()
For Each sht In ThisWorkbook.Sheets
x = x & sht.Name & ","
Next
[a1] = x
End Sub

跳转到最佳答案楼层

tony3

如果是我，第一步，用VBA提取到单元格里。（论坛或百度一下代码）

第二步，再用单元格里的数据复制到word里，用替换的方法，回车替换成逗号。

仔仔

Sub getsht()
For Each sht In ThisWorkbook.Sheets
x = x & sht.Name & ","
Next
[a1] = x
End Sub

hrpotter

1. Sub test()
   
2.     Dim sh As Worksheet
   
3.     Dim arr()
   
4.     Dim i As Integer
   
5.     For Each sh In Worksheets
   
6.         i = i + 1
   
7.         ReDim Preserve arr(1 To i)
   
8.         arr(i) = sh.Name
   
9.     Next
   
10.     Range("a1") = Join(arr, ",")
    
11. End Sub

复制代码