一键生成目录

fjnf

老师们好！在WPS中创建一键生成目录，运行不了，恳请老师帮忙：

fjnf

接上，如果删除表头，还是执行不了：

fjnf

Sub 建立目录()
    Dim i As Integer
        For i = 1 To Sheets.Count
            Sheets(1).Range("b" & 1 + i) = Sheets(i).Name
            Sheets(1).Range("b" & 1 + i).Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            "'" & Sheets(i).Name & "'!a1", TextToDisplay:=Sheets(i).Name
        Next
End Sub

fjnf

Sub 建立目录()     Dim i As Integer         For i = 1 To Sheets.Count             Sheets(1).Range("b" & 1 + i) = Sheets(i).Name             Sheets(1).Range("b" & 1 + i).Select             ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _             "'" & Sheets(i).Name & "'!a1", TextToDisplay:=Sheets(i).Name         Next End Sub

小凡、、、

js里面跑vba？

白栎

vba和jsa界面不太一样呢……

3190496160

fjnf 发表于 2023-2-16 10:32
接上，如果删除表头，还是执行不了：

你目前的代码是vba代码，就得在vba环境下运行，但是，在却在js环境下运行，肯定是要出错的嘛，切换到vb环境下运行代码呀

3190496160

3190496160

js宏建立超链接。可以试试这段代码

fjnf

我试试看，谢谢老师指导！