关于Excel.application 错误 80010105的问题

[chinaonset001]

写了个脚本
Call Createexcel()

sub Createexcel

set Excelapp= CreateObject("Excel.Application")
ExcelApp.DisplayAlerts = False
ExcelApp.visible = False

set ExcelBook1 = Excelapp.Workbooks.open("D:\vbtest\automail\天对天.xlsx")
set ExcelBook2 = ExcelApp.Workbooks.open("D:\vbtest\automail\天对月.xlsx")

Excelbook1.RefreshAll
Excelbook1.save
Excelbook1.saveas attachfiletdt
Excelbook1.close

Excelbook2.RefreshAll
Excelbook2.save
Excelbook2.saveas attachfiletdy
Excelbook2.close


excelapp.quit
set ExcelBook1 = nothing
set ExcelBook2 = nothing
set ExcelApp = nothing

end sub
以上脚本 在win 7 上 win 10执行没有问题
我变了一下
Call Createexcel()

sub Createexcel

set Excelapp= CreateObject("Excel.Application")
ExcelApp.DisplayAlerts = False
ExcelApp.visible = False

set ExcelBook1 = Excelapp.Workbooks.open("D:\vbtest\automail\天对天.xlsx")


Excelbook1.RefreshAll
Excelbook1.save
Excelbook1.saveas attachfiletdt
Excelbook1.close

set ExcelBook2 = ExcelApp.Workbooks.open("D:\vbtest\automail\天对月.xlsx")

Excelbook2.RefreshAll
Excelbook2.save
Excelbook2.saveas attachfiletdy
Excelbook2.close


excelapp.quit
set ExcelBook1 = nothing
set ExcelBook2 = nothing
set ExcelApp = nothing

end sub
把set ExcelBook2 = ExcelApp.Workbooks.open("D:\vbtest\automail\天对月.xlsx") 这句移到了下面就报错了

win 7 可以执行过去 win 10 就不行 百思不得其解，还请大神们帮忙。