在WPS里设置宏后运行报错是什么原因

欧阳纳兰

第1、 颜色处报错，提示语为：运行错误 '-1880948725 (8fe3000b)'"   方法 'FormulaR1C1' 作用于对象 'Range'时失败

       Range("E2").Select    ActiveWindow.SelectedSheets.Select Replace:=True
    ActiveWindow.SelectedSheets.Select Replace:=True
    Windows("库存.xls").Activate
    ActiveWindow.SelectedSheets.Select Replace:=True
    ActiveWindow.SelectedSheets.Select Replace:=True
    With Selection
        .FormulaR1C1 = "=VLOOKUP(A:A,[库存.xls]库存状态查询!$B:$I,8,0)"
        With .Characters.Font
            .Name = "MS Sans Serif"
            .Bold = False
            .Italic = False
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .ColorIndex = xlColorIndexAutomatic
            .TintAndShade = 0
            .Underline = xlUnderlineStyleNone
            .Size = 10
            .Name = "宋体"
            .Bold = False
            .Italic = False
            .Strikethrough = False
            .Superscript = False
            .Subscript = False