如何使用javascript在excel单元格中设置超链接

kuangyan1 2006-10-13 10:34:06

请问那位高手可以告诉我怎样使用javascript在excel的单元格中设置超链接啊

...全文

369 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

fantiny 2006-10-13

打赏
举报

<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<script>
function out(){

try{
var elTable = document.getElementById("out");
var oRangeRef = document.body.createTextRange();
oRangeRef.moveToElementText( elTable );
oRangeRef.execCommand( "Copy" );

var oXL = new ActiveXObject("Excel.Application")
var oWB = oXL.Workbooks.Add ;
var oSheet = oWB.ActiveSheet ;
oSheet.Paste();
oSheet.Cells.NumberFormatLocal = "@";

oSheet.Columns("D:D").Select
oXL.Selection.ColumnWidth = 20

//oSheet.Columns("A:A").Select
//oSheet.Columns("A").Width = 1000;

oSheet.Hyperlinks.Add(oSheet.Range("F14"), "http://www.sina.com.cn", "", "", "sina")

oXL.Visible = true;
oSheet = null;
oWB = null;
appExcel = null;

}catch(e){alert(e.description)}

}

</script>
</head>

<body>

<table id ='out'>
<tr>
<td x:str bgcolor="#FF0000">00001</td>
<td x:str>0002</td>
</tr>
<tr>
<td height=18 align=right style='height:13.5pt' x:str>00001</td>
<td align=right x:str>000002</td>
</tr>
<tr>
<td x:str>0003</td>
<td x:str>00003</td>
</tr>
</table>
<INPUT type="button" value="Button" id=button1 name=button1 onclick="out()">
</body>
</html>

hbhbhbhbhb1021 2006-10-13