张志晨:我测试了,引用了Micrsoft Excel 11.0bject Library之后;Dim xlApp As New Excel.Application 有效。
Set xlapp = CreateObject("Excel.Application")