on error resume next'就是不理是否发生错误，还要往下运行。

'这句话一般放在有可能发生错误的地方。以最后发生的一个错误为准。
If Err.Number <>0 Then
MsgBox Err.Number&vbcr&Err.Description&vbcr&Err.Source
End If

vbcrlf=回车(carriage return)+换行(line feed)
vbcr=回车
在屏幕上,回车就是光标回到行首,换行光标下移一行
针式打印机上,回车是打印头回到左边,换行是要进纸