Error " 91" Object variable or With block variable not set

Question

I am trying to set the value of a cell with one of the function parameters. The code is giving an error 91. The 6th line in the code is raising the error:

Thanks in advance.

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

The error line is:

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

6th line? remove Set in this line Set wb_dst.cell(r_row, 2).Value = a and give us a feedback what is going wrong now. — Kazimierz Jawor
– Kazimierz Jawor, Commented May 8, 2013 at 14:48
what's the value of 'a' and what's the value of 'r_row'? Also you have a typo in your if statement. It should be wb_dst.Cells and not wb_dst.cell. Actually I'm pretty sure you don't need that if statement at all..unless you're just doing it as a test. — sous2817
– sous2817, Commented May 8, 2013 at 14:48
add Set instruction to this line ws_dst = wb_dst.Sheets(1) to create Set ws_dst = wb_dst.Sheets(1) — Kazimierz Jawor
– Kazimierz Jawor, Commented May 8, 2013 at 14:57

score 2 · Accepted Answer · 2013-05-09 07:00:22Z

2

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

Collectives™ on Stack Overflow

Error " 91" Object variable or With block variable not set

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related