VBA Excel：Cells.Value上的錯誤400

Question

我在以下函數中的Cells.Value上收到400錯誤：

Function Add_Buttons(myColumn)

    Dim btn As Button
    ActiveSheet.Buttons.Delete
    Dim t As Range

    'Search for last row
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    'Force-Update
    Application.Calculate

    'Generate a button for each cell, if it's not empty
    For i = 3 To lastRow
        Set t = Range(Cells(i, myColumn), Cells(i, myColumn))
        If Cells(i, t.column - 1).Text = "Nicht OK" Then
            Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.RowHeight)
            With btn
              .OnAction = "'DieseArbeitsmappe.Update_DB """ & ActiveSheet.Cells(i, myColumn).Value & """'" 'THIS IS WHERE THE ERROR OCCURS
              .Caption = "Update"
              .Name = "Btn_" & ActiveSheet.Name & "_" & i
            End With
        End If
    Next i

End Function

我在代碼中找不到任何錯誤。 肯定是帶有ActiveSheet.Cells(i, myColumn).Value ，因為沒有此參數， .OnAction可以正常工作。

Answer 1

我知道了 如果您遇到類似的情況，請確保單元格中的引號已轉義。 這樣您可以避免此錯誤。