图片 本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。...

Private Sub CommandButton1_Click()     '关闭屏幕刷新     Application.ScreenUpdating = False     '定义变量     Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$   &...