Private Sub docout_Click() '导出WORD按钮
If rs1.RecordCount < 1 Then
MsgBox "导出失败,当前列表中没有记录!"
outstate1.Visible = False
Exit Sub
End If
If rs1.RecordCount < 1 Then
MsgBox "导出失败,当前列表中没有记录!"
outstate1.Visible = False
Exit Sub
End If
On Error GoTo not_installword '当没装word软件时的出错处理
If MsgBox(Chr(13) + "是否将当前列表中的数据导出为WORD数据? ", vbQuestion + vbYesNo) = vbNo Then Exit Sub
Dim wdApp As Word.Application '定义word变量
Dim wdDoc '定义word文档变量
Dim wdTable '定义WORD表格变量
Dim FieldLen() '存放字段长度值
Dim FieldLen1 As Integer '存放每列的最大宽度
Dim FieldValue As String
Dim iRow, iCol As Integer
Dim iRowCount, iColCount As Integer '存放行数、列数值
main.Enabled = False
outstate1.Visible = True '显示导出状态
outstate1.Caption = "正在导出,请稍后..."
With rs1
.MoveLast
iRowCount = .RecordCount + 2 '记录总数
i