function ShtLinks(){
with(Columns.Item(1)){
ClearContents();//删除旧数据
NumberFormat="@";//设置单元格格式文本
}
let cnt=Worksheets.Count;//工作表数量
for(let i=1;i<=cnt;i++){//遍历工作表
let strName=Worksheets.Item(i).Name;//工作表名称
let rng=Cells(i,1);
rng.Hyperlinks.Add(rng, "", "'"+strName+"'!A1", "", strName);//创建超链接
}
MsgBox("ok",0,"豪情云天");
}
12-05
1万+
06-06