摘要:
Private Sub xlsout1_Click() '导出Excel文档 If rs1.RecordCount 2 Then If Not .EOF Then .MoveNext End If DoEvents outstate1.Caption = "正在导出,完成: " + CStr(Int(100 * (iRow - 2) / iRowCo... 阅读全文
摘要:
Private Sub docout_Click() '导出WORD按钮 If rs1.RecordCount < 1 Then MsgBox "导出失败,当前列表中没有记录!" outstate1.Visible = False Exit Sub End IfOn Error GoTo not_installword '当没装word软件时的出错处理If MsgBox(Chr(13) + ... 阅读全文