vba - 如何使用 VBA 在字符串中列出工作簿中的所有工作表？

Question

如何使用 VBA 获取活动工作簿中所有工作表（或最多三个）的名称以作为字符串返回？对于上下文，我将在保存工作簿时使用该字符串命名工作簿。我已经想出了如何使用输入对话框等为文件创建保存名称，所以这只是让 VBA 返回类似“[工作表 1 名称] 和 [工作表 2 名称]”的情况。

非常感谢！

Answer 1

Option Explicit

Sub namesheets()

Dim wks as Worksheet, strName as String

For each wks in Worksheets
     strName = strName & wks.Name
Next

End Sub

您还可以搜索“Excel vba 循环通过工作簿中的工作表”或类似的内容，并很容易找到答案。

此外，这个问题是在这个网站上以某种形式提出的。见链接...循环工作表的子集