行数   = Com获取行数(工作簿, 页签)
  Com清除排序字段(工作簿, 0)
  Com添加排序字段(工作簿, 1, 'C2', 1, 1)   
  工作域 = format('A2:G%d',[行数])
  TRACE('工作域:' + 工作域)
  Com排序(工作簿, 1, 工作域,2, False,1, 1) 
  
  Com保存工作簿(工作簿, 数据表)