实时异常462远程服务器不存在或不能使用

实时错误462远程服务器不存在或不能使用
请教一个问题，我看论坛里也有同样的问题，他们解决了，但是没有写解决方法，问了他们也没有回复，所以想请教一下大家，问题如下：
Private   Sub   Cmd_change_Click()
            Dim   cstrfilename   As   String
            Dim   cstrfilelist(0   To   100)   As   String
            On   Error   GoTo   Errmess
            For   i   =   1   To   FileList.ListCount
                    cstrfilelist(i   -   1)   =   FileList.List(i   -   1)
            Next   i
            If   FileList.ListCount   <=   0   Then
                    MsgBox   "文件夹为空，请从新选择！ ",   vbOKOnly,   "系统提示 "
            Else
                        For   j   =   1   To   FileList.ListCount
                                Dim   xls   As   Excel.Application
                                Dim   xlsBook   As   Excel.Workbook
                                Dim   xlsSheet   As   Excel.Worksheet
                                Dim   xlsBook2   As   Excel.Workbook
                                Dim   xlSheet2   As   Excel.Worksheet

                                Set   xls   =   CreateObject( "Excel.Application ")
                                xls.Workbooks.Add
                                Set   xlsBook   =   xls.Workbooks.Add
                                Set   xlsSheet   =   xlsBook.Sheets( "Sheet1 ")

                                Set   xlsBook2   =   xls.Workbooks.Open(FileDir.Path   +   "\ "   +   cstrfilelist(j   -   1))
                                Set   xlssheet2   =   xlsBook2.Sheets(Left(cstrfilelist(j   -   1),   Len(cstrfilelist(j   -   1))   -   4))

                                xlsBook2.Sheets(1).Select
                                xlsBook2.Sheets(1).Copy   Before:=xlsBook.Sheets( "Sheet1 ")

                                Set   xlssheet2   =   Nothing