c_c_lai

回復 10# linderlong

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

複製代碼

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

c_c_lai

回復 10# linderlong

下載 (54.25 KB)

2013-8-29 12:02

linderlong

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

linderlong

在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上)。

c_c_lai

回復 14# linderlong
試著在 WinX 64 位元環境下測試是否OK？

下載 (13.38 KB)

2013-8-30 15:44

c_c_lai

回復 14# linderlong
你直接將 Debug 畫面完整 Copy 上傳 (需有錯誤點指向)

linderlong

回復 16# c_c_lai
不好意思，公用電腦，目前有人使用，俟空檔時再上傳，謝謝！

linderlong

回復 16# c_c_lai
錯誤說明如下圖；

下載 (55.1 KB)

2013-8-30 16:10

c_c_lai

回復 18# linderlong
RetVal  上行插入 DoEvents 試試看。

1.     DoEvents
   
2.     RetVal = Shell("command.com /c Ping -n 1 " & Cells(i, 1) & " > " & ThisWorkbook.Path & "\" & i & ".txt")

複製代碼

linderlong

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

下載 (20.29 KB)

2013-8-30 16:57