主题：[求助] 转Excel

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" &  Format(date.now,"yyyyMMddHHmmsss")  ".xls"
    Proc.Start
End If