VBA获取所有Sheet名字

oleobject o_WorkBook
long ll_Row,ll_RowCount,ll_NewRow
String ls_SheetName

o_WorkBook = Message.PowerObjectParm

ll_RowCount = o_WorkBook.Worksheets.Count

FOR ll_Row = 1 TO ll_RowCount
    ls_SheetName = o_WorkBook.WorkSheets(ll_Row).Name
    
    ll_NewRow = dw_1.InsertRow( dw_1.RowCount() + 1 )
    
    dw_1.SetItem(ll_NewRow,"bxh",ll_Row)    //表序号
    dw_1.SetItem(ll_NewRow,"bm",ls_SheetName) //表名
NEXT