我正在尝试通过html表单添加附件然后通过邮件发送该附件但是在下面的特定行上发现了一个错误,例如未定义的索引,所以请任何人帮助我。
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Range("B6:B112")
If cell.Value <> "" Then
cell.EntireRow.Hidden = False
Else
cell.EntireRow.Hidden = True
End If
Next cell
End Sub
Sub UnlockCells()
Worksheets("Sheet1").Range("D6:BC116").Locked = False
Worksheets("Sheet1").Protect
End Sub
答案 0 :(得分:0)
在您提交的表单中使用enctype="multipart/form-data"