Excel VBA 宏轉.NET 中的VBS...

[sound02]

在Excel 中录制的宏
要在.NET中用

System.Text.StringBuilder sb=new System .Text .StringBuilder ();

sb.Append (" <Script Language=VBScript>");

sb.Append (" <!--\r\n");

sb.Append ("dim xls\r\n");

sb.Append ("Set xls=CreateObject(\"Excel.Application\")\r\n");
sb.Append ("xls.WorkBooks.Open(C:\\MyExcel.xls)\r\n");

写出来 要注意什么？比如 添加超链接的宏
Sub Macro2()
'
' Macro2 Macro
' oêóé yuyu ￡ ê± : 6/19/2009
'

'
Range("G10").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Inetpub", _
TextToDisplay:="C:\Inetpub"
End Sub

[sound02]

document.onclick=function()
{
document.cookie="scrollTop="+document.body.scrollTop;
document.cookie="scrollLeft="+document.body.scrollLeft;
}
document.onselectionchange=function()
{
document.cookie="scrollTop="+document.body.scrollTop;
document.cookie="scrollLeft="+document.body.scrollLeft;
}
window.onload=function()
{
var allcookies=document.cookie;

if(allcookies==null) return;
var pos=allcookies.indexOf("scrollTop=");
if(pos!=-1)
{
var start=pos+10;
var end=allcookies.indexOf(";",start);
if(end==-1) end=allcookies.length;
var value=allcookies.substring(start,end);
value=unescape(value);
document.body.scrollTop=value;
}
pos=allcookies.indexOf("scrollLeft=");
if(pos!=-1)
{
var start=pos+11;
var end=allcookies.indexOf(";",start);
if(end==-1) end=allcookies.length;
var value=allcookies.substring(start,end);
value=unescape(value);
document.body.scrollLeft=value;
}
}