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
'==========================================================
回來了 空 「」 0 – Spy