通過vb匯出wps的表格，第一次運行沒問題，再次運行到“ Sheets("sheet1").Activate”就出現462錯誤，遠程服務器不存在或不能使用。停止除錯后，關閉所有ET行程又可以運行一次，這是什么原因？
Sub DaochuWpsAll() '
'參考WPS Spreadsheets 2.0Object Library
'WPS 表格9.1.0.5016
Dim xlBook As ET.workbook
Dim xlSheet As ET.Worksheet
Dim etApp As ET.Application
Set etApp = CreateObject("ET.Application")
Set xlBook = etApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets(1)
Sheets("sheet1").Activate
ActiveSheet.Name = "匯總"
Set xlSheet = xlBook.Worksheets("sheet2")
Sheets("sheet2").Activate
ActiveSheet.Name = "明細1"
Set xlSheet = xlBook.Worksheets("sheet3")
Sheets("sheet3").Activate
ActiveSheet.Name = "明細2"
Sheets("匯總").Activate
etApp.DisplayAlerts = False
xlBook.SaveAs App.Path & "\統計表.xls"
Set xlSheet = Nothing
xlBook.Close
Set xlBook = Nothing
etApp.Application.Quit
etApp.Quit
Set etApp = Nothing
MsgBox App.Path & "\統計表.xls", vbInformation, "匯出完成"
Exit Sub
End Sub
uj5u.com熱心網友回復：
看我發的EXCEL基礎那個帖子
uj5u.com熱心網友回復：
原來如此
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/261140.html
標籤：VB基礎類