Sub TEST(ByVal WB As Object)


Dim WS As Object

Dim myRange As Excel.Range

Dim Rng As Object


.................................................
    WB.DisplayAlerts = False ‘这里要怎么改

    WB.Sheets("SHEET1").Select

    Set WS = WB.Sheets("SHEET1")

    Set Rng = WS.Cells.Select

   myRange(Rng).ClearContents’提示需要对象，不知道错哪了



End Sub

Sub TEST(ByVal WB As Object,ByVal app as Object)


Dim WS As Object
.................................................
    app.DisplayAlerts = False

    WB.Sheets("SHEET1").Select

    Set WS = WB.Sheets("SHEET1")

    WS.Cells.ClearContents

   app.DisplayAlerts = True


End Sub
这样就对了