vb调用excel，怎么插入新的工作表？

Dim strfile As String
Private Sub Form_Load()
strfile = AppPath
End Sub
Private Sub Command1_Click()
Dim xlsApp As ExcelApplication
Dim xlsBook As ExcelWorkbook
Set xlsApp = ExcelApplication
Set xlsBook = xlsAppWorkbooksOpen(strfile & "\1xls")
xlsAppVisible = False
xlsAppSheetsAdd After:=Sheets(SheetsCount)
xlsAppActiveSheetName = "2013年8月"

xlsBookClose (True)
Set xlsApp = Nothing
End Sub

你可以使用VBA宏来添加和删除Excel工作簿中的工作表（Sheet）。
以下是添加工作表的示例VBA代码：
vbnetCopy code
Sub AddSheet()
Dim NewSheet As Worksheet
Set NewSheet = ThisWorkbookSheetsAdd(After:=ThisWorkbookSheets(ThisWorkbookSheetsCount))
NewSheetName = "New Sheet"
End Sub
这将在当前工作簿中添加一个名为“New Sheet”的新工作表。
以下是删除工作表的示例VBA代码：
vbnetCopy code
Sub DeleteSheet()
Dim SheetToDelete As Worksheet
Set SheetToDelete = ThisWorkbookSheets("Sheet2")
ApplicationDisplayAlerts = False '禁用删除工作表的警告
SheetToDeleteDelete
ApplicationDisplayAlerts = True '启用删除工作表的警告
End Sub
这将删除名为“Sheet2”的工作表。在删除工作表时，要记得在执行删除 *** 作前禁用删除工作表的警告，并在删除 *** 作完成后启用删除工作表的警告。这是为了防止意外删除工作表时出现的警告d窗。

    With ThisWorkbook
        WorksheetsAdd after:=Worksheets(WorksheetsCount)
        Worksheets(WorksheetsCount)Name = Date
    End With

---