末世之我是巫妖:其中的ROWS是什么
来源:百度文库 编辑:高考问答 时间:2024/04/29 08:47:25
Private Sub Command1_Click()
If GridData.Rows <= 1 Then '首行显示字段名
MsgBox "没有数据,无法输出!", vbOKOnly, "提示"
Else
Call OutPut(GridData) 'OutPut-自定义函数(输出到Excel)
End If
End Sub
If GridData.Rows <= 1 Then '首行显示字段名
MsgBox "没有数据,无法输出!", vbOKOnly, "提示"
Else
Call OutPut(GridData) 'OutPut-自定义函数(输出到Excel)
End If
End Sub