请教老师，对象不支持该属性或方法怎么改？

7016427

Private Sub UserForm_Initialize()
Dim wt As Workbook, i
Set wt = Workbooks.Open(ThisWorkbook.Path & "\校验客运定额收据.xls")
With wt.Sheet1' 这句提示：对象不支持该属性或方法
.Visible = -1
.Activate
.Unprotect (4080922)
For i = 4 To 8
If Month(.Range("a2").Value) <> Month(Date) And .Range("d" & i).Value <> "" Then
.Range("c" & i).Value = .Range("d" & i).Value + 1
End If
Next i
.Range("a2").Value = Format(Date, "yyyy年m月d日")
.Range("d4:d8").ClearContents
Label9 = .Range("c4"): Label10 = .Range("c5"): Label11 = .Range("c6"): Label12 = .Range("c7")
.Protect (4080922)

End With
End Sub

duquancai

不支持这种用法！至于原因，别追问，记住就好。

7016427

duquancai 发表于 2018-8-6 18:53
不支持这种用法！至于原因，别追问，记住就好。

请问老师怎么改？

duquancai

sheet1    改为 sheets(1)  或者sheets("表名")