Merhaba.

xlApp.Visible = True

kodu fazladan. Devamındaki kodların da

  xlBook.Close True

    

    Set xlSheet = Nothing

    Set xlBook = Nothing

    

    xlApp.Quit

    

    Set xlApp = Nothing

şeklinde deneyiniz.