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

【问题标题】：How can I use VBA to list all worksheets in a workbook within a string?如何使用 VBA 在字符串中列出工作簿中的所有工作表？
【发布时间】：2013-09-09 19:48:19
【问题描述】：

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

非常感谢！

【问题讨论】：

通过遍历所有工作表并从.Name 属性中获取它们的名称？

标签： vba worksheet

【解决方案1】：

Option Explicit

Sub namesheets()

Dim wks as Worksheet, strName as String

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

End Sub

您还可以在 Google 上搜索“Excel vba 循环遍历工作簿中的工作表”或类似的内容，然后很容易找到答案。

此外，这个问题是在这个网站上以某种形式提出的。见链接...Loop through subset of worksheets

【讨论】：

谢谢。我确实有几个后续问题 - 由于我对 VBA 的了解不足，我必须承认。最初，我将如何使用这个字符串？我目前有使用字符串保存文件的代码： SaveFile = VendorCode & " - " & VendorName & " - " & ContentDate - 我会在其中插入什么来使用这个字符串？最后，是否有办法在工作表名称之间插入逗号？非常感谢！
我会要求您深入了解您所拥有的。您正在尝试构建一个字符串，并且您有一个由变量和文本（“ - ”）构建的字符串。根据我写的内容和你已经拥有的内容继续，你将能够制作你的字符串（提示 = a = Scott b = Holtzman -> strName = a & " " & b strName = Scott Holtzman。请不要'如果你觉得你得到了你想要的，不要忘记将你的答案标记为已接受。
我明白了 :) 感谢您的帮助。