使用VBA生成Excel目录列表

一、个人需求
最近使用Excel整理一些术语解释的文档，每个术语都对应一个sheet，最后有个索引页，可以快速链接到指定的sheet。

由于sheet会不断增加，做索引页时需要自动生成。考虑使用VBA实现，由于初次接触VBA，在此留个备份。

二、功能实现

（1）新建“索引”sheet，在此工作表中插入一个“生成索引”的按钮，如下图：



（2）为此按钮添加事件处理代码，如下：



（3）收集各资料sheet信息，例下sheet列表：



（4） 生成后的索引如下图：



三、附代码

Sub create_Click()
'获取所有sheet的名字
For x = 2 To Sheets.Count
'sheet名
Sheets(1).Cells((x + 2), 3) = Sheets(x).Name
'序号
Sheets(1).Cells((x + 2), 2) = "=ROW()-3"
'超链接
Range("C" + CStr(x + 2)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(x).Name + "!A1"
Next x

'设置指定单元格边框
Dim rng As Range
Set rng = Range("B4:C" + CStr(Sheets.Count + 2))
With rng.Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 1
.Weight = xlThin
End With

'设置指定单元格的字体样式
Range("B4:C" + CStr(Sheets.Count + 2)).Select
With Selection
.Font.Name = "宋体"      '字体
.Font.Size = 12          '字号
.WrapText = True         '自动换行
.Font.Color = FFFFFF     '颜色
End With

'删除指定范围的单元格内容
Range("B" + CStr(Sheets.Count + 3) + ":C65530").ClearContents
'删除指定范围的边框
Range("B" + CStr(Sheets.Count + 3) + ":C65530").Borders.LineStyle = xlNone
End Sub