打开一个EXCEL文件，新建一个页面。

Question

Dim oleExcel As New Excel.Application
Dim oleWorkBook As Workbook
Dim oleWorkSheet As Worksheet
Set oleWorkBook = oleExcel.Workbooks.Add
Set oleWorkSheet = oleWorkBook.Sheets(1)
—————————————————————————————————————
以上为新建一EXCEL文件，新建一页面，
但如果我本来就有一个Excel文件，D;\备份.xls
该怎样将该文件打开，判断里面有没有一个叫‘库存 ’的页面，如果没有，则新建立一个页面‘库存’。分少，倾囊而谢。

Answer 1

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i As Integer
Dim blnHave As BooleanOn Error GoTo errt
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("e:\test.xls") '打开已经存在的EXCEL工件簿文件
For i = 1 To xlBook.Worksheets.Count
    If xlBook.Worksheets(i).Name = "库存" Then
        blnHave = True
        Exit For
    End If
Next
If Not blnHave Then
    Set xlSheet = xlBook.Worksheets().Add
    xlSheet.Name = "库存"
End If
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
Set xlBook = Nothing
Set xlSheet = Nothingerrt:
    Debug.Print Err.Description
    xlApp.Quit
    Set xlApp = Nothing '释放xlApp对象
    Set xlBook = Nothing
    Set xlSheet = Nothing