制作目录是通过Hyperlinks.Add添加超链接。主要思路是构造工作表索引的连续数字通过map获得表名。效果如下图:

 

 代码:

function 制作工作表目录(){
	var arr=Array.from(new Array(Sheets.Count+1).keys()).slice(2).map(itm=>Sheets(itm).Name)
	var sht=Sheets("目录")
	sht.Cells(1,1).Value2="目录超链接"
	arr.forEach((item,index)=>{
		var rng=sht.Cells(index+2,1);
		rng.Value2=item;
        sht.Hyperlinks.Add(rng,"",item+"!$A$1")})
}