在VB中处理excel文件

Question

各位高手：
    请教一个问题，我想利用VB打开一个excel文件，在文件中新建一个sheet，并且为这个sheet重新起个名字，不知道代码怎么写？
请各位高手指教！！！急！！

Answer 1

Dim xlsApp As Excel.Application
    Dim xlsBook As Excel.Workbook
    Dim xlsSheet1 As Excel.Worksheet, xlsSheet2 As Excel.Worksheet    Set xlsApp = CreateObject("Excel.Application")
    xlsApp.Visible = True
    xlsApp.DisplayAlerts = False
    Set xlsBook = xlsApp.Workbooks.Open("d:\111.xls")
    Set xlsSheet1 = xlsBook.Sheets(2)
    Set xlsSheet2 = xlsBook.Sheets.Add(xlsSheet1)
    xlsSheet2.Name = "aaaa"
    xlsBook.Save