运行时错误' 91':对象变量或未设置块变量

时间:2016-07-14 14:54:42

标签: vba excel-vba excel-2010 excel

我在Microsoft Excel 2010中的Visual Basic for Application(VBA)中编写了一个过程。此过程使用自定义窗体并要求用户从自定义窗体上的下拉列表中选择一个选项以设置特定范围。然后,它使用该范围循环遍历名称列表,并要求用户选择要打开的文件,以便可以在所选文件中执行SUMIFS并将其插入到活动文档中。虽然,该过程失败了第一个** FromWorkbook = Application.GetOpenFilename **行。以下是完整代码:

$out =  Request::find()->select(['id','IF('.$t.' = 0, 0, 1) as userType','agent','id', 'source','reference',
        'type','bedrooms','agent', 'size','budget',
        'interested', 'full_name','phone','email',
        'note','for','furnished', 'user_id','updated_by',
        'inserted_at','updated_at', 'price','showed','offered',
        'status','phone2','phone3', 'area','priority' ,'feed_back'])->where($where)->with('sources')->with('exchange')->with(['agen'=>function($q){$q->select(['username','id']);}])->with(['requestNoteLess'=>function($q){$q->select('*')->limit(3)->all();}])->orderBy(['id'=>SORT_DESC])->groupBy(['id'])->limit(300)->asArray()->all();

    return json_encode($out);

1 个答案:

答案 0 :(得分:0)

使用了错误的变量。声明变量和工作簿变量。应该使用变体,但使用了工作簿变量。