请教一个VB操作excel的问题

Option Explicit
  
dim beginrow
DIM EXCEL,workBook,dirSheet
set EXCEL = CREATEOBJECT("Excel.Application")
excel.visible=true
set workBook=EXCEL.workbooks.add(-4167)'新建工作簿

workBook.sheets(1).name ="表结构"
'set dirSheet = workBook.sheets("表结构")

workBook.Sheets.Add After:=Worksheets(Worksheets.count)
'worksheets("表1").Move after:=worksheets("表结构")

以上代码，我是想将新建的工作表放到最后，但运行代码始终报错，
还望高手指点啊，多谢！！ --------------------编程问答-------------------- 没人知道吗？？？！！ --------------------编程问答-------------------- 试试看：
set workBook=EXCEL.workbooks.add()'新建工作簿 --------------------编程问答-------------------- Dim xlApp As New Excel.Application  
Dim xlBook As Excel.Workbook  
Dim xlSheet As Excel.Worksheet  
    Set xlApp = CreateObject("Excel.Application")  
    Set xlBook = Nothing  
    Set xlSheet = Nothing  
    xlApp.Workbooks.Add  
    Set xlBook = xlApp.Workbooks(1)  
    Set xlSheet = xlBook.Worksheets(1)  
    xlSheet.Activate  
    xlSheet.Cells(1, 1)="赋值"

....
参考：
http://blog.csdn.net/linjimu/article/details/2521110
http://blog.csdn.net/linjimu/article/details/6656405 --------------------编程问答-------------------- 不行，还时报错

Option Explicit
  
dim beginrow
DIM EXCEL,workBook,dirSheet
set EXCEL = CREATEOBJECT("Excel.Application")
excel.visible=true
set workBook=EXCEL.workbooks.add() '新建工作簿

'workBook.sheets(1).name ="目录"
'workBook.sheets(2).name ="tab1"
'workBook.sheets(3).name ="tab2"

workbook.sheets.add.name="tab3"
'set dirSheet = workBook.sheets("表结构")
workSheets("tab3").move after:=worksheets("sheet1")
'workBook.Sheets.Add After:=Worksheets(Worksheets.count)

报错信息：

错误：缺少语句
代码：800A0400
源：Microsoft VBScript 编译器错误 --------------------编程问答--------------------  Dim beginrow
 Dim EXCEL, workBook, dirSheet
 Set EXCEL = CreateObject("Excel.Application")
 EXCEL.Visible = True
 Set workBook = EXCEL.Workbooks.Add(-4167) '新建工作簿

 workBook.Sheets(1).Name = "表结构"
 'set dirSheet = workBook.sheets("表结构")

 workBook.Sheets.Add After:=workBook.Sheets(workBook.Sheets.Count)
 'worksheets("表1").Move after:=worksheets("表结构")
--------------------编程问答--------------------

workBook.Sheets.Add After:=Worksheets(Worksheets.count)

'改为

Workbook.Sheets.Add Null, Workbook.Sheets(Workbook.Sheets.Count), Null, Null

'或者

workBook.Sheets.Add , Workbook.Sheets(Workbook.Sheets.count)

--------------------编程问答--------------------

  Public Function AddSheet(ByVal SheetName As String) As Excel.Worksheet  

        '添加一个工作表   

        Dim s As Excel.Worksheet = DirectCast(wb.Worksheets.Add(Type.Missing, Type.Missing, Type.Missing, Type.Missing), Excel.Worksheet)  

        s.Name = SheetName  

        Return s  

    End Function  

补充：.NET技术 ,  VB.NET