将工作簿中所有工作表名称写入活动工作表的A列

网友投稿 648 2025-03-31

将工作簿中所有工作表名称写入活动工作表的A列

本文为:《别怕,Excel VBA其实很简单(第3版)》随书问题参-

将工作簿中所有工作表名称写入活动工作表的A列

要想获得活动工作簿中所有工作表名称,并将工作表名称写入活动工作表A列,可以用多种解决办法。下面提供两种解决思路,供参考。

1、用For…Next循环语句解决

Sub 获取工作表名()Dim i As Integer, ShtCount As IntegerShtCount = Worksheets.Count '求工作簿中包含的工作表数量For i = 1 To ShtCountRange("A" & i) = Worksheets(i).NameNext iEnd Sub

2、用Do While循环语句解决

Sub 获取工作表名()Dim i As Integer, ShtCount As Integeri = 1ShtCount = Worksheets.Count '求工作簿中包含的工作表数量Do While i <= ShtCountRange("A" & i) = Worksheets(i).Namei = i + 1LoopEnd Sub

其中,下面的代码用于求活动工作簿中包含的工作表数量。ShtCount = Worksheets.Count

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:制造业MES生产管理系统,提升生产效率的关键
下一篇:如何在播放视频时将进度条隐藏(如何隐藏视频的进度条)
相关文章