使用VBA动态重命名Excel工作表
我有大约50本工作手册，每本有两个标签。我想用与工作簿名称相同的名称重命名第一个工作表。当工作簿中只有一个工作表选项卡时，我知道如何解决此问题。但它不适用于多个选项卡。如何使用VBA动态重命名与工作簿名同名的工作表？
共有1个答案
这将重命名工作表，使其与工作簿中的工作表具有相同的名称：
Worksheets(1).Name = ActiveWorkbook.Name
如果有多个工作簿，并且希望自动重命名每个工作簿中的第一个工作表，可以围绕此语句构建一个循环，打开每个工作簿，然后运行上面的代码行。
-
本文向大家介绍excel-vba 检索活动工作簿中的所有工作表名称，包括了excel-vba 检索活动工作簿中的所有工作表名称的使用技巧和注意事项，需要的朋友参考一下 示例
-
我们要求用户可以隐藏/取消隐藏Excel列并在其中移动。用户单击generate CSV按钮后，我们希望列按特定顺序排列。例如，Col1、Col2、Col3是Excel第一行A、B、C列中的列标题。用户将Col2列移到了末尾，并隐藏了Col2：A、B、C列现在有标题：Col1、Col3、Col2（隐藏） 我们的CSV文件应该生成为：Col1，Col2，Col3。使用下面的代码，我们无法看到Col2
-
假设我有一个包含3张工作表的工作簿，“工作表1”、“工作表2”和“工作表3”。现在我只想打印“第1页”,所以在VBA我用了 但宏仍然打印所有3个工作表。当我专门编写只打印1的代码时，发生了什么导致它打印所有3张纸？ 我正在使用： 微软卓越卓越专业增强版 2010
-
我阅读了一些在线教程，并使用宏记录来学习如何设置格式。但是我想知道有没有一种方法可以不使用.select来完成以下操作？或者程序员更喜欢的方式是什么？ 简单宏的要求： 循环所有工作表（仅可见） 将粗体格式设置为顶部行，并将背景设置为灰色 将所选内容重置到A1位置 （）
-
我的问题是：我正在处理一个大型工作簿中的命名区域。我需要复制数据，比如从某个工作表x中的某个命名区域复制数据，并将其粘贴到另一个命名区域，比如WKSheetY，然后才能对其进行排序，并将其显示在wksheet Z中的另一个区域上。 我通过vba实现了所有这些，只是在执行代码时屏幕闪烁很多。 Im使用语句application.goto reference:=“”来选择范围，这会激活这些工作表，因此
-
问题内容： 我想在VBA中查询Excel工作表 并 指定条件。 简单的查询可以完美地工作，但是我不知道如何添加WHERE子句。 我尝试过，但随后它抱怨缺少参数。 这是完整的代码： 问题答案： 在您的连接字符串中，您说 这意味着不管第一行包含什么内容，都将被视为标题。如果要使用F1，F2等，请说
-
问题内容： 如何在詹金斯重命名工作？除了创建新工作并销毁旧工作之外，还有其他方法吗？ 问题答案： 在我们正在运行（1.480）的版本，它只是改变的事情在菜单和击球后保存。 干杯，