2015-08-28 74 views
1

我的腳本不會進入任何一個For循環,我一直在使用MsgBox來幫助檢查,似乎它只是跳過整個循環而不輸入它。 「< < <」表示問題在這一點上的腳本應該進入一個循環,在文檔和文件週期來讀這和存儲數據VBS腳本不會進入循環

MsgBox "front For"       <<< 

For Cx = 1 to Cint(vTFileC) 
    MsgBox "in loop 1" 
    Cxx = 1 

    'Setting Target 
    Target = CStr(FullPath & "\" & vTFolder & "\"& vTFile & Cx &".html") 

    For x = Cxx to PC 
     MsgBox "in loop 2" 

     'Sets Book 1 
     set oBook1 = oExcel.Workbooks.Open(Target) 

     'Reading Table 
     set Stock = oExcel.Cells(RR,5) 
     set ID  = oExcel.Cells(RR,3) 

     'Displays Info 
     MsgBox (Cx &"/"& vTFileC &" RR: "& RR & " ID: " & ID & " Stock: " & Stock) 

     'Closes Book 1 
     oBook1.Close 

     MsgBox "3" 
     call Find_Write_Row 

     r = r + 1 
     Cxx = Cxx + 1 
     RR = RR + 1 
    Next 

    'to cycle to next document 
    Cx = Cx + 1 

Next 

這就是開始

'========================================================== 
Sub Read 
'====================================================== 

'Read Row 
RR = 6 
PC = 25 

腳本繼續,跳過這裏和最後一段非代碼之間的所有內容。

MsgBox "End" 

'Quitting 
oExcel.Quit 

End Sub 
'========================================================== 

這導致我的腳本運行,然後立即關閉而無需執行任何操作。

這是正在使用

'========================================================== 
' HTML INPUTS 
'====================================================== 
    'Sets Target folder from HTML input 
    set oTFolder = document.getElementById("Folder_") 
    vTFolder = oTFolder.value 

    'Sets Target file from HTML input 
    set oTFile = document.getElementById("File_") 
    vTFile = oTFile.value 

    'Sets file count from HTML input 
    set oTFileC = document.getElementById("C_") 
    vTFileC = oTFileC.value 

    'Toggles visibility of excel 
    set oVT = document.getElementById("VT") 
    vVT = oVT.value 
'========================================================== 

回答

1

如果For Cx = 1 to Cint(vTFileC)沒有進入環我的劇本的部分,其設置一些值,然後Cint(vTFileC)計算的東西,小於1所以vTFileC需求是檢查:

>> MsgBox TypeName(vTFileC) 
>> MsgBox vTFileC 
>> MsgBox CInt(vTFileC) 
+0

回來了 空 「」 0 – Spy