Question

 Dim wb As Workbook
    Set wb = Application.Workbooks("Book2.xlsx")
    wb.Activate
    wb.Sheets("Sheet1").Range("A1").Select

Ps：有些时候代码工作正常，大部分时间都会抛出异常

看着这个链接 Run Time Error '1004': Select method of Range Class failed using ThisWorkbook我做的与上面相同仍然失败

Answer 1

尝试拳头激活表格，然后使用选择，但首先你真的需要选择吗？这是你可以打电话的最昂贵的方法（有时仍然需要）

如果您只需要在单元格中读取/写入值，就可以这样做

public function store(Request $request)
   {   $id = Auth::id();
           $loan=New loan;
            $loan->cod_user=$id;
            $loan->nume =$request->name;
            $loan->data=$request->date;
            $loan->durata=$request->period;
            $loan->valoare_rata_luna=$request->month;
            $loan->valoare_totala=$request->amount;
            $loan->save();

            return redirect()->route('loans');
        }

Answer 2

如果您想引用不同工作表中的范围，则无法使用select metod。你应该编写如下代码

Application.Goto Sheets(1).Range("A1")

使用ThisWorkbook选择Range类失败的方法

2 个答案: