Dim xlApp As New Excel.Application要引用Micrsoft Excel 14.0bject Library这个才对也可以用后期绑定的方式CreateObject(“excel.Application”)