主题：[求助] 转Excel

老师， 以下是把表ConsumableMaterial中的内容转到Excel sheet中，每次生成，都在sheet中，如何改成每次生成单个的excel文件，名称名“list + 日期时间”

Dim flg As New  SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True

ShowAppWindow("list.xls",5)
Tables("ConsumableMaterial").SaveExcel(ProjectPath & "RM\list.xls",format(Date.now,"yyyyMMddHHmmss") ,flg)

If  ShowAppWindow("Orderlist.xls",1) = False Then
    Dim  Proc As New Process
    Proc.File = ProjectPath & "RM\list.xls"
    Proc.Start
End If