雖然循環忽略參數

Question

我試圖創建一個循環來阻止一個數字的增加，但它低於另一個數字，一個簡單的y<=x，但由於某種原因它只是繼續前進。

iv = 0 
While iv <= vIC 
    oExcel.Cells(1,1).value= vURL & iv 
    oExcel.Cells(iv,2).value= vFileName & iv 
    oExcel.Cells(iv,3).value= vIC 
    iv = iv + 1 
Wend 

Answer 1

最有可能您輸入一個字符串，所以比較整數它始終產生結果False。爲了避免這種情況，你需要convert the string to an integer：

iv = 0 
While iv <= CLng(vIC) 
    oExcel.Cells(1,1).value= vURL & iv 
    oExcel.Cells(iv,2).value= vFileName & iv 
    oExcel.Cells(iv,3).value= vIC 
    iv = iv + 1 
Wend

或使用For環路的字符串參數隱式轉換爲整數：

For iv = 0 To vIC 
    oExcel.Cells(1,1).value= vURL & iv 
    oExcel.Cells(iv,2).value= vFileName & iv 
    oExcel.Cells(iv,3).value= vIC 
Next 

Answer 2

我更換了while循環與for循環，它似乎已解決問題

For count = iv to vIC 

     'Row 
     r = r + 1 

     'Writes values to excel 
     oExcel.Cells(r,1).value= vURL & iv 
     oExcel.Cells(r,2).value= vFileName & iv 
     oExcel.Cells(1,3).value= vIC 

     'adds 1 to iv 
     iv = iv + 1 
    Next