獲得一個VBScript運行時錯誤

Question

下面的VBScript代碼讓我在該行的錯誤」

.Range(.Cells(lRow, lCol), .Cells(lRow, lCol + 3)).Delete Shift:=xlToLeft 

正確

.Range(.Cells(lRow, lCol), .Cells(lRow, lCol + 3)).Delete(-4159) 

錯誤是： 「預期的陳述結束」

代碼

Sub DataShiftFromRightToLeft(Ob6) 

    Dim lCol,COL_FIRST,startCol 
    Dim NUM_TASKS:NUM_TASKS=36 

COL_FIRST = objExcel1.Application.WorksheetFunction.Match("Parent Business Process ID", ob6.Rows(1), 0) 
COL_FIRST=COL_FIRST+1 

'Set wst = Ob6.ActiveSheet 

With ob6.ActiveSheet 

    For lRow = 2 To .UsedRange.Rows.Count 
     lTask = 1 
     Do While lTask <= NUM_TASKS 
      lCol = COL_FIRST + (lTask - 1) * 4 
      If Len(.Cells(lRow, lCol).Value) = 0 And _ 
       Len(.Cells(lRow, lCol + 1).Value) = 0 And _ 
       Len(.Cells(lRow, lCol + 2).Value) = 0 And _ 
       Len(.Cells(lRow, lCol + 3).Value) = 0 Then 
       ' make sure there is something to the right to shift over 
       If .Cells(lRow, lCol).End(xlToRight).Column < .Columns.Count Then 
        ' delete the empty cells and shift everything left`` 
        .Range(.Cells(lRow, lCol), .Cells(lRow, lCol + 3)).Delete Shift:=xlToLeft 
       Else 
        ' force the loop to the next row 
        lTask = NUM_TASKS + 1 
       End If 
      Else 
       lTask = lTask + 1 
      End If 
     Loop 
    Next lRow 
End With 

End Sub 

Answer 1

您的Shift:=xlToLeft正試圖使用​​命名參數。這在VBScript中是不可能的。您必須定義xlToLeft（Const）並確保您在正確的位置傳遞xlToLeft（使用VBA文檔檢查參數的數量和順序.Delete）。

P.S.

如果你谷歌的「vbscript刪除xltoleft」，the first hit會幫助你。