在Excel中添加一个Sheet，并命名为“mingrisoft”

利用VB程序在Excel中添加一个Sheet，设置名称为“mingrisoft”，并向A1中填入数据，将其设置为“明日科技”。程序代码如下：

    Dim xApp As New Excel.Application

    Dim xBook As New Excel.Workbook

    Dim xSheet As New Excel.Worksheet

    Set xApp = New Excel.Application

    Set xBook = xApp.Workbooks.Add

    xApp.Visible = True

    xBook.Worksheets.Add

    Set xSheet = xBook.Worksheets(1)

    xSheet.Name = "mingrisoft"

    xSheet.Cells(1, 1) = "明日科技"