MsgBox "記錄為空,本操作無效", , "提示"
else
If bb = False and MsgBox("本操作將替換原文件,確定嗎?", vbQuestion + vbOKCancel, "警告") <> vbOK then exit sub
Updt()
end if