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