VB Exel Sort 第二次出错 462

每次当我运行第一次的时候，程序正常运行，但是第二次运行到排序的地方，就提示远程服务器不存在或不能使用；希望大家帮个忙，万分的感谢，下面是一部分代码：

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(xlspath)
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)

m = xlSheet.Range("D65536").End(xlUp).Row
code_col = 4
letter_count = 0
存放位置 = "d:\Split_Excel\"
xlSheet.Range("D2").Select
    Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin 
--------------------编程问答-------------------- 有个说在程序后加个END,但加END就程序退出了//// --------------------编程问答--------------------

补充：VB ,  VBA