在EXCel中录制的宏 转到.net中用 System.Text.StringBuilder sb=new System .Text .StringBui

Question

 在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要怎么转呢？ 还有画折线图 ，饼图的宏 ？

Answer 1

ActiveSheet用xls.WorkBooks(0).Worksheet(0)代替就行了

Answer 2

不行的
ActiveSheet用xls.WorkBooks(0).Worksheet(0) 根本就沒有0  寫成0會超出數組的索引.
 誰知道阿
熱切期待中!

Answer 3

還有生成折綫圖的宏 要怎麽轉阿Sub Macro2()
'
' Macro2 Macro
' Macro recorded 2009/6/19 by ASM
''
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("留眞摸参璸").Range("B4:M7"), PlotBy:= _
        xlRows
    ActiveChart.SeriesCollection(1).XValues = "=留眞摸参璸!R3C2:R3C13"
    ActiveChart.SeriesCollection(1).Name = "=留眞摸参璸!R4C1"
    ActiveChart.SeriesCollection(2).XValues = "=留眞摸参璸!R3C2:R3C13"
    ActiveChart.SeriesCollection(2).Name = "=留眞摸参璸!R5C1"
    ActiveChart.SeriesCollection(3).XValues = "=留眞摸参璸!R3C2:R3C13"
    ActiveChart.SeriesCollection(3).Name = "=留眞摸参璸!R6C1"
    ActiveChart.SeriesCollection(4).XValues = "=留眞摸参璸!R3C2:R3C13"
    ActiveChart.SeriesCollection(4).Name = "=留眞摸参璸!R7C1"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="留眞摸参璸"
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlRight
    ActiveWindow.Visible = False
    Windows("留眞参璸08 (2).xls").Activate
    Range("Q14").Select
    ActiveWindow.SmallScroll Down:=9
End Sub

Answer 4

Sub a()
Dim xls As Excel.Application
Dim xlSheet1 As Worksheet
Dim newWorkBook As Workbook
Dim newRange As Range
Set xls = CreateObject("Excel.Application")
Set newWorkBook = xls.Workbooks.Open("\\stknts46.stkex.asmpt.com\ProgramModule\safetyMange\SafeHiddrenAll.xls")
xls.Sheets(1).Select
xls.Sheets(1).Name = "all"
xls.Sheets(1).Activate
Set xlSheet1 = xls.Sheets(1)
Set objWorksheet = newWorkBook.Worksheets(1)
objWorksheet.Cells(1, 1) = "Script Center"
xls.Sheets(1).Activate
xls.Visible = True
Set newRange = xls.Range("A1")
Set objLink = objWorksheet.Hyperlinks.Add _
    (newRange, "http://www.microsoft.com/technet/scriptcenter")
End Sub