ws.Activate
这是一个例子,我如何在求解器的参数化中引用单元格。
SolverOk SetCell:=Range("$E$" & i)
Workbooks.Open "foo.xls" wb.Activate ws.Activate