新手请教问题，用vb调用excel，第一次正常运行，第二次报错。谢谢

也许有一天

Dim xlapp11 As New Excel.Application
Dim xlbook11 As Excel.Workbook
Dim jianche_XlsSheet_1 As Excel.Worksheet
Set xlapp11 = New Excel.Application

With xlapp11.Workbooks.Open(yuan_wenjian & jiancha_name_1 & "评估数据模板.XLSX")

        Set xlbook11 = xlapp11.Workbooks.Open(pinggu_wenjian)
        Set jianche_XlsSheet_1 = xlbook11.Worksheets(1)
        jianche_hang_1 = jianche_XlsSheet_1.Range("A65536").End(xlUp).Row              '查A列的上下限界,从列的开始往下查，
         Sheets(1).Select    ’**第二次这个地方报错**，报错内容为”远程服务器不存在或不能使用“
        Range("A4", Cells(jianche_hang_1, 10)).Select
        Selection.Copy .Worksheets(1).Range("A2")


        Set jianche_XlsSheet_2 = Excel.Application.ActiveWorkbook.Sheets(2)
             jianche_hang_2 = jianche_XlsSheet_2.Range("A65536").End(xlUp).Row              '查A列的上下限界,从列的开始往下查，
        Sheets(2).Select
        Range("A3", Cells(jianche_hang_2, 3)).Select              'TQI里程
        Selection.Copy .Worksheets(2).Range("A2")

        With xlapp11.Workbooks.Open(yuan_wenjian & jiancha_name_1 & "线路信息模板.XLSX")
                    Set xlbook12 = xlapp11.Workbooks.Open(xianlu_wenjian)
                    Set jianche_XlsSheet_1 = xlbook12.Worksheets(1)
                    jianche_hang_1 = jianche_XlsSheet_1.Range("H65536").End(xlUp).Row         
                    Sheets(1).Select
                    Range("A4", Cells(jianche_hang_1, 12)).Select                                  '复制"线路管界"
                    Selection.Copy .Worksheets(1).Range("A2")

                    Set jianche_XlsSheet_2 = Nothing
                    xlbook12.Close (True)

         End With
End With

    xlbook11.Close (True)
    xlapp11.Quit
    Set jianche_XlsSheet_1 = Nothing
    Set xlbook11 = Nothing
    Set xlapp11 = Nothing

也许有一天

问题已解决，记录一下方法，以供他人参考。
Sheets(1).Select 改为xlapp11.Sheets(1).Select 。Cells(jianche_hang_1, 10)改为jianche_XlsSheet_1.Cells(jianche_hang_1, 10)。Selection.Copy .Worksheets(1).Range("A2")改为xlapp11.Selection.Copy .Worksheets(1).Range("A2")。后面的也是这么改。

mikewolf2k

在EXCEL VBA环境内，默认了excelapp，所以可以直接sheets(1)。在VB里，没有这个默认，所以前面要加上excelapp。
另外select是录制时候产生的，对于程序来说，就没必要select了，这样快些。

也许有一天

mikewolf2k 发表于 2021-3-8 09:25
在EXCEL VBA环境内，默认了excelapp，所以可以直接sheets(1)。在VB里，没有这个默认，所以前面要加上excela ...

受教了，非常感谢。

bingshan23

遇到同样的问题，非常感谢