2008年3月13日 星期四

08.透過LS增加Excel的工作表範例語法。

可以使用以下範例語法:
'------------------------------------------------------


Set xlApp = CreateObject("Excel.Application")
' expression.Add(Before, After, Count, Type)
' "Before" is null 增加在目前工作表前面的參數
' "After" is the last sheet that currently exists
' "Count" is null 增加在目前工作表後面的參數
' "Type" is xlWorksheet which the Excel Object Browser shows is -4167
xlApp.Worksheets.Add ,xlApp.Worksheets(xlApp.Worksheets.Count), , -4167
'------------------------------------------------------

沒有留言: