每次當我運行第一次的時候，程式正常運行，但是第二次運行到排序的地方，就提示遠程服務器不存在或不能使用；希望大家幫個忙，萬分的感謝，下面是一部分代碼：
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(xlspath)
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)
m = xlSheet.Range("D65536").End(xlUp).Row
code_col = 4
letter_count = 0
存放位置 = "d:\Split_Excel\"
xlSheet.Range("D2").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
uj5u.com熱心網友回復：
有個說在程式后加個END,但加END就程式退出了////uj5u.com熱心網友回復：
把所有用到global的函式，前面加上你的application前綴。比如CentimetersToPoints(21)，改為wdApplication.CentimetersToPoints(21)。原因，CentimetersToPoints函式沒有前綴時，默認用的是global方法，然而office的global物件有bug，沒有動態連接到新的app上。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130459.html
標籤：VBA