'------------------------------------------------------
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
'------------------------------------------------------
沒有留言:
張貼留言