关于如何用Excel VB 提取sheet名字

Question

如题，如何通过VB在Excel中提取sheet的名字。
例如:将sheet1,sheet2,sheet3的名字在单元格中表示出来。

Answer 1

Sub listSheetName()
i = 1
For Each sSheet In Application.Sheets

Cells(i, 1).Value = sSheet.Name
i = i + 1
Next sSheet

End Sub

Answer 2

引用"Microsoft Excel Object Library"
Private Sub Form_Load()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlST As Excel.Sheets
Dim I As Integer
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open("D:\My Documents\Test.xls")
For I = 1 To xlWB.Sheets.Count
xlWB.Sheets(1).Cells(I, 1) = xlWB.Sheets(I).Name
Next I
xlApp.Visible = True
Set xlApp = Nothing
End Sub