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
用vb调用excel,第一次正常运行,再次点击运行报错”远程服务器不存在“是怎么回事,谢谢。
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- CSDN技术专家团—大象 2021-03-06 21:42关注
把代码中的Cells属于哪一个sheet指定下试试,如jianche_XlsSheet_1.Cells(jianche_hang_1, 10)
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用
悬赏问题
- ¥25 关于##爬虫##的问题,如何解决?:
- ¥15 ZABBIX6.0L连接数据库报错,如何解决?(操作系统-centos)
- ¥15 找一位技术过硬的游戏pj程序员
- ¥15 matlab生成电测深三层曲线模型代码
- ¥50 随机森林与房贷信用风险模型
- ¥50 buildozer打包kivy app失败
- ¥30 在vs2022里运行python代码
- ¥15 不同尺寸货物如何寻找合适的包装箱型谱
- ¥15 求解 yolo算法问题
- ¥15 虚拟机打包apk出现错误