如何弹出出错对话框

Question

本帖最后由 bcrun 于 2010-08-06 10:14:45 编辑

Answer 1

private sub command1_click()
on error goto errhandleOpen A.txt For Input As #3Do While Not EOF(3)
  row = row + 1
  ReDim Preserve column1(row)
  ReDim Preserve column2(row)
  ReDim Preserve column3(row)
  ReDim Preserve column4(row)
  ReDim Preserve column5(row)
  ReDim Preserve column6(row)
  ReDim Preserve column7(row)
  Input #3, column1(row), column2(row), column3(row), column4(row), column5(row), column6(row), column7(row)
Loop
Close #3exit sub'错误处理
ErrHandle:
    msgbox "操作失败，错误原因为：" & err.description,vbexclamation,"提示"
    exit sub
end sub