以下一段代码,总出错,请大家帮忙解决!谢谢!

Question

点解你的这么复杂的,我的这样,可是没有出错
=========================================================
Private Sub Form_Click()
    Dim excelApp As Excel.Application
    Set excelApp = New Excel.Application
    On Error Resume Next
    excelApp.Visible = True
    excelApp.Workbooks.Add
    With excelApp.ActiveSheet
        Dim i As Integer, j As Integer
        For i = 1 To 10
            For j = 1 To 10
                 .Cells(i, j).Value = "A"
            Next j
            DoEvents
        Next i
    End With
        Set excelApp = NothingEnd Sub

Answer 1

With .LvwReport '开始写数据
这是什么东西?