列出表格的目录,并添加超级链接

版权声明:本文为博主原创文章,遵循 CC 4.0 by-sa 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/ribut9225/article/details/85146913
‘列出表格的目录,并添加超级链接
Sub cb_test()
Dim ll_SheetCount
Dim ls_SheetName
Dim ll_Item
Dim ls_SubAddress

Dim ls_ryxm     '人员姓名 B2
ll_SheetCount = Worksheets.Count

For ll_Item = 2 To ll_SheetCount
   ls_SheetName = Sheets(ll_Item).Name
   ls_ryxm = Sheets(ll_Item).Cells(2, 2).Value '人员姓名
   
   If InStr(1, ls_SheetName, "(") > 0 Then
      ls_SubAddress = "'" + ls_SheetName + "'!A1"  '带空格需要引号,特殊处理
   Else
        ls_SubAddress = ls_SheetName + "!A1"
   End If
   
   Sheets(1).Cells(ll_Item, 5).Value = ls_ryxm
   Sheets(1).Cells(ll_Item, 4).Value = ls_SheetName
   
   
   Sheets(1).Cells(ll_Item, 4).Select
   Sheets(1).Hyperlinks.Add anchor:=Selection, Address:="", SubAddress:=ls_SubAddress, TextToDisplay:=ls_SheetName
   
Next

End Sub

 

展开阅读全文

flash按钮添加超级链接网址,超级链接网址从外部读取

04-30

在文档里做两个图层:顶层放代码,下层放一个按钮,取名为link_btn。rn...............rn代码:rnrnfunction getHttpFile(url)rnvar loader:URLLoader = new URLLoader();rnrnlink_Btn.addEventListener(MouseEvent.CLICK, openWeb);rnfunction openWeb(event:MouseEvent):void rn var myload:URLRequest=new URLRequest("url.txt");rn //url.txt的内容是:"u1=http://www.blogxxzww.ccoo.cn"rn //loader.dataFormat=URLLoaderDataFormat.TEXT;//读取普通文本rn loader.dataFormat=URLLoaderDataFormat.VARIABLES;//读取值对格式的文本rn loader.load(myload);rn loader.addEventListener(Event.COMPLETE, loader_complete);rnrnrnfunction loader_complete(e:Event):void rn var m:String =loader.data.u1;//输出值对格式的文本rn //var m:String=loader.data;//完全输出rn var url:URLRequest=new URLRequest(m);rn navigateToURL(url);rnrn..............................rn在外部文本文件中输入你要保存的网址。我的例子:rn文本名为url.txt,内容是:"u1=http://www.blogxxzww.ccoo.cn"rn放在与flash文档同一目录下。rnrnrn但是运行后报错如下:rn**错误** 场景=场景 1, 图层=图层 4, 帧=1:第 5 行: 无法加载类或接口'URLLoader'rn var loader:URLLoader = new URLLoader();rnrn**错误** 场景=场景 1, 图层=图层 4, 帧=1:第 8 行: 无法加载类或接口'flash.events.MouseEvent'rn function openWeb(event:MouseEvent):void rnrn**错误** 场景=场景 1, 图层=图层 4, 帧=1:第 9 行: 无法加载类或接口'URLRequest'rn var myload:URLRequest=new URLRequest("url.txt");rnrn**错误** 场景=场景 1, 图层=图层 4, 帧=1:第 17 行: 无法加载类或接口'flash.events.Event'rn function loader_complete(e:Event):void rnrn**错误** 场景=场景 1, 图层=图层 4, 帧=1:第 20 行: 无法加载类或接口'URLRequest'rn var url:URLRequest=new URLRequest(m);rnrnActionScript 错误总数:5 报错:5rnrn请教各位高手如何解决,急,非常感谢~!rn 论坛

没有更多推荐了,返回首页