vb 如何获取EXCEL所有工作表名并显示在List1上

Private Sub Command1_Click()
Dim XlApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Set XLWorkBook = XlApp.Workbooks.Open(App.Path & "\1.xls")
For i = 1 To XLWorkBook.Worksheets.Count
List1.AddItem XLWorkBook.Sheets(i).Name
Next i
XlApp.Quit
End Sub
读取存储在程序所在路径的1.xls
循环取出1.xls所有的工作表明

Private Sub Command1_Click()
Dim XlApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Set XLWorkBook = XlApp.Workbooks.Open(App.Path & "\1.xls")
For i = 1 To XLWorkBook.Worksheets.Count
List1.AddItem XLWorkBook.Sheets(i).Name
Next i
XlApp.Quit
End Sub

/