-1

Excel 2007 の VBA の学習を開始しました。実行中にこのエラーが発生する理由を教えてください。

コードは

Public Sub LastVariable_Check()
    'Check if Last Variable is of latest month sales

    'lastvariable  = lv

    lv = wkbOut.Sheets("Sheet1").Range("B1",Range("B1").End(xlToRight)).End(xlToRight).Text
    If "0" & Mid(lv, InStr(lv, "Month/") + 6, 1) = strmth _
    And Mid(lv, InStr(lv, "Month/") + 8, 4) = strYear Then
        Set wkbRaw = Workbooks.Open(strInputQCPath & "Errorlog.xlsx")

        wkbRaw.Sheets("Sheet1").Range("A1").Offset(i, 2).Value = "Correct"
        wkbRaw.SaveAs Filename:=strInputQCPath & "Errorlog.xlsx"
        wkbRaw.Close
    Else
        Set wkbRaw = Workbooks.Open(strInputQCPath & "Errorlog.xlsx")

        wkbRaw.Sheets("Sheet1").Range("A1").Offset(i, 2).Value = "Incorrect"
        wkbRaw.SaveAs Filename:=strInputQCPath & "Errorlog.xlsx"
        wkbRaw.Close
    End If 
End Sub

助けてください
ありがとう！

4

1 に答える 1

0

このワークブック wkbOut の範囲外で、この LastVariable_Check を呼び出しました。wkbOut を別のワークシート名として保存していたコードの前にカットアンドペーストして呼び出すだけで、機能しました。

于 2012-09-14T10:59:49.010 に答える