while循环忽略参数

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