VB操作EXCEL打印，赋值，给赋值的单元格加边框，第一遍顺利，执行第二遍时，在给单元格赋值语句停止，提示 远程服务器不存在或不能使用，错误代码462
重新关闭程序，再启动，还是只能执行一遍。度娘上所有方法都尝试，均无效。跪求答案！

[此贴子已经被作者于2018-5-19 10:14编辑过]

excel所有关闭顺序都实验了，还是没有解决。多谢大哥，再替我想想

                       Dim xlapp As New Excel.Application
                       Dim xlbook As New Workbook
                    
                      Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
                                   
                      Set xlbook = xlapp.Workbooks.Open("e:\shujuku\zggddy.xlsx") '打开已经存在的EXCEL工件簿文件
                      xlapp.Visible = True '设置EXCEL对象可见（或不可见）
                      Set xlsheet = xlbook.Sheets("sheet1")  '设置活动工作表
                                          
                      Adodc1.Recordset.MoveFirst
                     
                      Do While Not Adodc1.Recordset.EOF
                                                xlapp.Cells(i, 1) = Adodc1.Recordset.Fields(0)
                                                xlapp.Cells(i, 2) = Adodc1.Recordset.Fields(1)
                                                xlapp.Cells(i, 3) = Adodc1.Recordset.Fields(2)
                                                xlapp.Cells(i, 4) = Adodc1.Recordset.Fields(3)
                                                xlapp.Cells(i, 5) = Adodc1.Recordset.Fields(4)
                                                xlapp.Cells(i, 6) = Adodc1.Recordset.Fields(5)
                                                xlapp.Cells(i, 7) = Adodc1.Recordset.Fields(6)
                                                xlapp.Cells(i, 8) = Adodc1.Recordset.Fields(7)
                                                xlapp.Cells(i, 9) = Adodc1.Recordset.Fields(8)
                                                xlapp.Cells(i, 10) = Adodc1.Recordset.Fields(9)
                                                
                                                Adodc1.Recordset.MoveNext
                                                i = i + 1
                       Loop
                        第二次执行都是下面这句报警。上面的都能执行。第一次执行下面这句也能通过。                         
                       With xlapp.Range(Cells(4, 1), Cells(3 + n, 10)).Borders
                             .LineStyle = 1
                             .Weight = 2
                       End With
                    
                       isok = MsgBox("确认打印内容是否正确", vbYesNo + vbQuestion)
                       
                       
                       If isok = vbYes Then
                                    
                                
                                    Set xlsheet = Nothing
                                    xlbook.Close (True) '关闭工作簿
                                    Set xlbook = Nothing
                                    xlapp.Quit '结束EXCEL对象
                                    Set xlapp = Nothing '释放xlApp对象
                                    Command2.Visible = True
                    
                       Else
                                    xlbook.Close (True) '关闭工作簿
                                    Set xlbook = Nothing
                                   xlapp.Quit '结束EXCEL对象
                                   Set xlapp = Nothing '释放xlApp对象
                                    Kill ("E:\shujuku\zggddy.xlsx")
                                   
                       End If

  Do While Not Adodc1.Recordset.EOF
                                                xlapp.Cells(i, 1) = Adodc1.Recordset.Fields(0)
                                                With xlapp.Cells(i, 1).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                               
                                                xlapp.Cells(i, 2) = Adodc1.Recordset.Fields(1)
                                                With xlapp.Cells(i, 2).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                
                                                xlapp.Cells(i, 3) = Adodc1.Recordset.Fields(2)
                                                With xlapp.Cells(i, 3).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                                                                  
                                                xlapp.Cells(i, 4) = Adodc1.Recordset.Fields(3)
                                                With xlapp.Cells(i, 4).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                
                                                xlapp.Cells(i, 5) = Adodc1.Recordset.Fields(4)
                                                With xlapp.Cells(i, 5).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                xlapp.Cells(i, 6) = Adodc1.Recordset.Fields(5)
                                                With xlapp.Cells(i, 6).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                
                                                xlapp.Cells(i, 7) = Adodc1.Recordset.Fields(6)
                                                 With xlapp.Cells(i, 7).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                xlapp.Cells(i, 8) = Adodc1.Recordset.Fields(7)
                                                With xlapp.Cells(i, 8).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                
                                                xlapp.Cells(i, 9) = Adodc1.Recordset.Fields(8)
                                                With xlapp.Cells(i, 9).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                xlapp.Cells(i, 10) = Adodc1.Recordset.Fields(9)
                                                With xlapp.Cells(i, 10).Borders
                                                        .LineStyle = 1
                                                        .Weight = 2
                                                End With
                                                
                                                Adodc1.Recordset.MoveNext
                                                i = i + 1
                       Loop
                                                        
                    '   With Sheets("sheet1").Range(Cells(4, 1), Cells(3 + n, 10)).Borders
                            ' .LineStyle = 1
                            ' .Weight = 2
                     '  End With
以上修改暂时都通过了。各种测试均正常。最终原因还是没找到。

多谢楼主，测试通过！
我曾实验过  With xlapp.xlsheet.Range(Cells(4, 1), Cells(3 + n, 10)).Borders
结果系统提示 无此语法，武艺不精，没想到楼主的更改。
但是心问题出来了，这些赋值语句，没有xlsheet为啥每次都能执行成功呢？
                                                xlapp.Cells(i, 1) = Adodc1.Recordset.Fields(0)
                                                xlapp.Cells(i, 2) = Adodc1.Recordset.Fields(1)
                                                xlapp.Cells(i, 3) = Adodc1.Recordset.Fields(2)
                                                xlapp.Cells(i, 4) = Adodc1.Recordset.Fields(3)
    每次总是在给单元格画边框时出问题。
我把画边框提到赋值语句前面，也是提示462的错误。
能帮我研究一下。叩谢！                                

跟您探讨：
1、为了确保cell的唯一，我给这个打印专门设置了一个Excel，里面只有一个sheet,还是出现这样的问题。
   理论上讲，只有一个表，一个sheet,可以保证cell的唯一了。
2、APP有什么办法彻底干掉吗？调用同一个APP，也视作两个APP？
3、cell没有xlsheet，第二次采用你创建的第二个app，此时调用第一个app的cell，因此报错【可能是app内部没有完全销毁】 这句话，可能没
完全解释原因。第二次调用时，赋值语句执行顺利（数据正确），我觉得调用的是第二个APP的cell。

多谢楼主费心！
1，XLAPP.CELL形式与RANGE连用，
必须像楼主第一次写的那样才行With 。其他方式我试过，基本报错。
例如xlapp.XLSHEET.Range(Cells(4, 1), Cells(3 + n, 10)).Borders的形式
再次感谢！