VB操作EXCEL文件总是出现”远程服务器不存在或不能使用“

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlBook = xlApp.Workbooks.Open("C:\Users\Administrator\Desktop\888.xlsx")
Set xlSheet = xlBook.Worksheets(1)
  Rows("3:3").Select
  Selection.Delete Shift:=xlUp

xlBook.Save
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

上面这段VB代码，点击第一次时可以删除EXCEL文件的第3行。但是再次点击，就会出现“远程服务器不存在或不能使用"
请教该如何修改上面的代码？？

参考：
https://blog.csdn.net/hljqfl/article/details/86014820