12
返回列表 上一主題 發帖

測試IP

linderlong

帖子
14 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
宜蘭 
註冊時間
2013-8-26 
最後登錄
2013-12-19 
11# 跳轉到 »
發表於 2013-8-30 16:59 | 顯示全部帖子
本帖最後由 linderlong 於 2013-8-30 17:00 編輯

回復 19# c_c_lai
加入doevents還是不行。果然是找不到command指令，不知有無其它替代方法？不好意思，下班了，下星期一才有空再上來。謝謝！

龍

TOP

linderlong

帖子
14 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
宜蘭 
註冊時間
2013-8-26 
最後登錄
2013-12-19 
12#
發表於 2013-9-2 14:59 | 顯示全部帖子
回復 24# c_c_lai
真是搞笑，微軟不知在做什麼，xp及w7，32位元下，均有command指令可用，而在w7，64位元下，則改為cmd，command反而不能用。
因此只要將
RetVal = Shell("command.com /c Ping -n 1 " & Cells(i, 1) & " > " & ThisWorkbook.Path & "\" & i & ".txt")
改為
RetVal = Shell("cmd /c Ping -n 1 " & Cells(i, 1) & " > " & ThisWorkbook.Path & "\" & i & ".txt")
即可正確執行，實在感謝大大的指導，謝謝！:L
龍

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
12
返回列表 上一主題