請教：有關EXCEL的問題

[zlj113]

請教：
，EXCEL里的宏代码如下：
Selection.Subtotal(GroupBy:=4, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 _
, 36, 37, 38), Replace:=True, PageBreaks:=False, SummaryBelowData:=True)
我要弄到vb.net里該怎麼樣用呀？？

我這樣寫提示出錯啦

Dim Myexcel As Excel.Application = New Excel.Application
Dim MyBook As Excel.Workbook
Dim Mysheet As Excel.Worksheet
MyBook = Myexcel.Workbooks.Open(Application.StartupPath & "\TEMP.xls")
Mysheet = MyBook.Worksheets(1)
Myexcel.Visible = False
Mysheet.Activate()

Myexcel.Selection.Subtotal(GroupBy:=4, Excel.XlConsolidationFunction.xlsum, TotalList:=Array(5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 _
, 36, 37, 38), Replace:=True, PageBreaks:=False, SummaryBelowData:=True)

出錯提示為：Excel.XlConsolidationFunction.xlsum這里的EXCEL需要命名參數，
TotalList:=Array(....)這里的Array是一個類型，不能用作表達式

該怎麼樣寫呢???

[jinjazz]

55555～～～～～～我不知道:(

[机器人]

TotalList:={5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 _
, 36, 37, 38},

[zlj113]

謝兩位了，
我已經搞定了

Myexcel.Selection.Subtotal(GroupBy:=4, Function:=Excel.XlConsolidationFunction.xlSum, TotalList:=New Object() {5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38}, Replace:=True, PageBreaks:=False, SummaryBelowData:=True)

[zlj113]

嗯，還是剪剪好，那些家伙一個都不來幫我UP下的

[zlj113]

To: fangxinggood(JustACoder)
你那樣不行的，我剛才特意試了下的:)

[jFresH_MaN]

顶一下。混点分。

[kofboyx]

我是鹏鹏,这里果真很好用

[zlj113]

55555～～～～～～沒人知道嗎？？