提取工作表名稱后鏈接出現問題

zhangchangshu

(化金)FD-FD總表226.rar (95.15 KB, 下载次数: 7)

2012-6-5 20:51 上传

点击文件名下载附件

各位才師，我的這個EXCEL檔用了VB提取工作表的名稱后，但鏈接總出現參照無效，請教下或幫我更改下，小弟成分感謝。

wshcw

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

yjh_27

鏈接中的工作表名数字开头的要用单引号括起来

zhangchangshu

zhangchangshu 发表于 2012-6-6 10:05
wshcw老师，这此代码用在我的电脑上就可以，如果换到别的电脑上用，就提示宏被停用了，将EXCEL安全级别设置 ...

那有没有不重装就可以解决的办法吗，

zhangchangshu

OK,能用了，太好了，还自动加入了目录，感谢大家的帮助。

zhangchangshu

wshcw老师，这此代码用在我的电脑上就可以，如果换到别的电脑上用，就提示宏被停用了，将EXCEL安全级别设置为低，还是提示宏被停用，怎么解决呀。谢谢了