測試IP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

11^# 跳轉到 »

發表於 2013-8-29 11:33 | 只看該作者

回復 10# linderlong

RetVal = Shell("command.com /c Ping -n 1 " & 工作表1.Cells(cts, 1) & " > " & ThisWorkbook.Path & "\iptest" & cts & ".txt")

複製代碼

經實地在 Excel 2010 下測試是無誤的，
請檢查你的執行錯誤點是在哪一段？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

12^#

發表於 2013-8-29 12:02 | 只看該作者

回復 10# linderlong

TOP

linderlong

中學生 Rank: 2

帖子: 14
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: 宜蘭
註冊時間: 2013-8-26
最後登錄: 2013-12-19

13^#

發表於 2013-8-29 13:41 | 只看該作者

應該不是office的問題，而是作業系統w7，32位元，可以執行，而在64位元系統，則錯在
RetVal = Shell("command.com /c Ping -n 1 " & 工作表1.Cells(cts, 1) & " > " & ThisWorkbook.Path & "\iptest" & cts & ".txt")
這行指令上，不知為何原因？謝謝！

龍

TOP

linderlong

中學生 Rank: 2

帖子: 14
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: 宜蘭
註冊時間: 2013-8-26
最後登錄: 2013-12-19

14^#

發表於 2013-8-30 14:41 | 只看該作者

本帖最後由 linderlong 於 2013-8-30 14:43 編輯

在w7,64位元,office2007下，逐步執行時，則停在下列指令，
RetVal = Shell("command.com /c Ping -n 1 " & Cells(i, 1) & " > " & ThisWorkbook.Path & "\" & i & ".txt")

按一下說明，出現以下文字，但看不懂，不知如何修正？不知道是不是找到 command.com 這個dos指令？

找不到檔案 (錯誤 53)

所指定的檔案找不到。此錯誤有以下的起因和解決方法：
‧ 陳述式如 Kill、SetAttr 或 Name 等，引用到一個不存在的檔案。
檢查檔案名稱的拼字以及路徑說明。
‧ 欲呼叫動態連結程式庫 (DLL) 中的程序或 Macintosh程式碼資源區，但找不到在 Declare 陳述式的 Lib 子句中所指定程式庫檔案名稱或資源當案名稱。
檢查檔案名稱的拼字以及路徑說明。
‧ 在發展環境中，如果您欲開啟不存在的專案或載入不存在的文字檔案，將發生錯誤。
檢查檔案名稱或專案名稱的拼字以及路徑說明。
詳細資訊，可選取有疑問的項目並按下 F1 (在Windows中) 或 HELP (在Macintosh上)。

龍

TOP

c_c_lai