如何对多个表格生成目录，紧急！请大侠们帮忙！

luhnyu008 · 发表于 2011-10-31 15:30

如何生成目录.rar (4.76 KB, 下载次数: 40)

如何对多个工作簿生成目录？{:soso_e109:}

wshcw · 发表于 2011-10-31 15:54

EXCEL百宝箱有这功能，在本论坛下载吧

luhnyu008 · 发表于 2011-10-31 16:18

请2楼给个链接！

luhnyu008 · 发表于 2011-10-31 16:32

单个工作簿对SHEET生成目录简单，但是对多个工作簿的sheet生成目录又该如何解决？急急，盼解决！

wshcw · 发表于 2011-10-31 17:11

Excel百宝箱9.0版发布啰
http://club.excelhome.net/thread-520408-1-1.html

luhnyu008 · 发表于 2011-10-31 17:54

百宝箱只能给单个工作薄里的sheet建立目录，我没发现在另外一个工作薄里对其他工作薄里的sheet建立目的功能，请大侠指教！

wshcw · 发表于 2011-11-1 09:11

Sub Excel各页名()
Dim XStr, YStr, ZStr
XStr = " -"
ZStr = ""
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "目录" Then
Exit For
End If
Next
If i > Worksheets.Count Then
Sheets.Add
ActiveSheet.Name = "目录"
End If
Sheets("目录").Move Before:=Sheets(1)
Sheets("目录").Select
Range("A:B").Clear
Range("B:B").NumberFormatLocal = "@"
Worksheets(1).Cells(1, 1).Value = "序号"
Worksheets(1).Cells(1, 2).Value = "名称"
For i = 2 To Worksheets.Count
Worksheets(1).Cells(i, 1).Value = i - 1
Worksheets(1).Cells(i, 2).Value = Worksheets(i).Name
For j = 1 To Len(Worksheets(i).Name)
YStr = Mid(Worksheets(i).Name, j, 1)
If InStr(XStr, YStr) <> 0 Then
ZStr = "'"
Exit For
End If
Next
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Cells(i, 2), Address:="", SubAddress:=ZStr & Worksheets(i).Name & ZStr & "!A1", TextToDisplay:=Worksheets(i).Name
Next
Range("A:A").HorizontalAlignment = xlCenter
Rows("1:1").HorizontalAlignment = xlCenter
Cells.Select
Selection.Columns.AutoFit
Range("A1").Select
End Sub

luhnyu008 · 发表于 2011-11-1 09:25

可能上面传得有所误会，现在重新传下附件，希望大侠们帮忙解决下！

luhnyu008 · 发表于 2011-11-2 11:07

如何在一个工作簿中对其他工作薄中按sheet生成目录！

luhnyu008 · 发表于 2011-11-2 14:20

斑竹们，帮忙啊！

		自动登录	找回密码
密码			免费注册

[求助] 如何对多个表格生成目录，紧急！请大侠们帮忙！