On Error Resume Next '¹J¿ù»~nÄ~Äò°õ¦æ
Reset:
x = InputBox("½Ð¿é¤J¹wÂsÄý¤§±Æµ{¤é´Á", , "½Ð¿é¤J¤é´Á <¨Ò¦p 1007 1010 >")
ActiveWorkbook.FollowHyperlink "http://zipsum/fileupload/LCD6RPT/01.«e±Æµ{¬ÛÃö¸ê°T/00.LCD6%20«e¬q±Æµ{%20Watch%20This%20!!/201510/LCD6%20¥Í²£±Æµ{%20»P%20Watch%20This" & x & "«e±Æª©.xls"
If Err.Number <> 0 Then 'Y«e±¦³µo¥Í¿ù»~
result = MsgBox(prompt:=Err.Description & vbCrLf & vbCrLf & "nÄ~Äò°õ¦æ¶Ü?", _
Buttons:=vbYesNo, Title:="µo¥Í¿ù»~", HelpFile:=Err.HelpFile, Context:=Err.HelpContext)
GoTo Reset
If Not result = vbYes Then Exit Sub 'Y«ö "§_" ´Nµ²§ô
End If
End Sub
¤p§Ìªº°ÝÃD¦b©ó¦pªG¥X²{¿ù»~¡A«ö§_À³¸Ó¬O·|µ²§ô¡Aµ²ªG¥LÅܦ¨µL°j°é¡A«Âаõ¦æinputbox
¯à§_½Ð¦U¦ì¹F¤HÀ°À°¦£¡@À°¤p§Ìקï¤@¤U ¥X²{¿ù»~ «ö¬O«·s°õ¦æ «ö§_ª½±µÂ÷¶}
¥t¤@°Ý ¦pªGÀɮפ¤¦³ºô¶ªº§ó·s³sµ²°T®§,¬O§_¤]·|³Q·í¦¨¬O¿ù»~¥N½X ±a¤J on error ¤¤©O?? |