2

関数パラメーターの 1 つを使用してセルの値を設定しようとしています。コードでエラー 91 が発生しています。コードの 6 行目でエラーが発生しています。

前もって感謝します。

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
4

1 に答える 1

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
于 2013-05-08T14:48:06.007 に答える