If ShowAppWindow("订单.XLS",1) = False Then Dim Proc As New Process Proc.File = "C:\data\订单.xls" Proc.Start End If