程序运行出现的问题

mayuezxl

Dim XlappBook As Excel.Workbook
Dim xlapp As Excel.Application

 Set xlapp = CreateObject("Excel.Application") 
 Set XlappBook = xlapp.Workbooks.Open("d:\book3.xls")
   xlapp.Visible = True '==========设置EXCEL可见
   XlappBook.Worksheets("sheet1").Range("A2").Value = 123
   XlappBook.save '============保存文件的修改