请问个位大虾，VB如何等到XLS文件的所有工作表名称？在线等

Question

小弟在此跪谢

Answer 1

faysky20都不来帮我？5555555555555555555555555555，那其他人呢？

Answer 2

Dim EXL As New Excel.Application 
        Dim WK As Excel.Workbook 
        dim j as integer
        WK = EXL.Workbooks.Open("*.xls") 
for j =1 to wk.sheets.count          MsgBox(wk.sheets(j).name) 
next 
        WK.Close() 
        EXL.Quit()