EXCEL VBA中建立工作表目录索引

如何在Excel表中自动建立工作表索引，即建立目录。打开目录自动索引打开对应的工作表。如下图：

1497342851655546.jpg

1497342851962534.jpg

详细代码：Option Compare Database
Sub 生成目录链接2()   Dim i As Long   For i = 1 To Sheets.Count       Sheets(i).Columns(1).Clear       Sheets(i).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name     Next   For j = 1 To Sheets.Count - 1       Sheets(j).Columns(1).Copy Sheets(j + 1).Cells(1, 1)     Next   For k = 1 To Sheets.Count       Sheets(k).Cells(1, 1).Font.Color = 255       ActiveWindow.Zoom = 100  '工作表串口视图100%，防止相同的字号大小看起来不一样大       Columns.AutoFit  '每个工作表中的列根据输入的内容自动调整列宽       Rows.AutoFit  '每个工作表中的列根据输入的内容自动调整行高     Next   ThisWorkbook.Save End Sub

1497343033607307.jpg