请问如何用OLE删除EXCEL工作簿中的某张表，该怎么写啊?

Question

请问如何用OLE删除EXCEL工作簿中的某张表，该怎么写啊?

Answer 1

要操作excel工作簿，就直接引用一个excel，然后open出来操作！为什么要用ole？？？Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  Dim i As Long, j As Long
  On Error GoTo ErrorHandle
  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlBook.Worksheets(1)
  xlSheet.Name = Sheet_Name
  xlSheet.StandardWidth = k '设定默认列宽
  xlSheet.Range("A1", "Z900").Font.Bold = False '设定范围内的字体是否加粗
  xlSheet.Range("A1", "Z900").Font.Size = 9 '设定字体大小
  xlSheet.Range("A1", "Z900").HorizontalAlignment = xlLeft '设定对齐方式
  xlSheet.Range("a1", "n1").Font.Bold = True '设定第一行为加粗
  xlSheet.Application.Visible = True
  xlBook.Close
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing
  Exit Sub
ErrorHandle:
  MsgBox "错误：" & Err.Number & vbCrLf & Err.Description, vbOKOnly, "运行错误"上面是一个新建excel文档的例子！

Answer 2

在EXCEL中录一段宏代码
自已改一下吧:
Sub 宏1()
    Sheets("Sheet3").Select      '这一句是选中要删除的工作表
    ActiveWindow.SelectedSheets.Delete     '删除
End Sub

Answer 3

xlSheet.delete  就是删除表