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

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

本文为：《别怕，Excel VBA其实很简单（第3版）》随书问题参-

要想获得活动工作簿中所有工作表名称，并将工作表名称写入活动工作表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小时内删除侵权内容。