ACTIVEX DLL 代码出错,求大侠指点迷津
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