ACTIVEX DLL 代码出错，求大侠指点迷津

hzybit 发布于 2014-04-12 10:57， 357 次点击

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

1 回复

hzybit2014-04-12 14:06

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
这样就对了