错误“91”对象variables或块variables未设置

嗨，大家好，我是全新的VBA，我想设置一个单元格的function参数之一的值。 代码给出错误91.代码中的第六行提高了错误。 我无法解决它，请任何人都可以帮助我。

提前致谢。

Sub report_file(a, r_row) Dim wb_dst As Workbook Dim ws_dst As Worksheet Set wb_dst = Workbooks.Open("F:\Projects\vba_excel\report.xlsx") ws_dst = wb_dst.Sheets(1) ws_dst.Cells(r_row, 2).Value =a End Sub 

错误行是。

 ws_dst.Cells(r_row, 2).Value =a 

Answer 1

 Option Explicit Sub report_file(a, r_row) Dim wb_dst As Workbook Dim ws_dst As Worksheet Set wb_dst = Workbooks.Open("F:\Projects\vba_excel\report.xlsx") Set ws_dst = wb_dst.Sheets(1) ws_dst.Cells(r_row, 2).Value = a If a = "savior" Then wb_dst.Cells(r_row, 2).Value = a End If End Sub