苏木地伟:其中的ROWS是什么
来源:百度文库 编辑:神马品牌网 时间:2024/04/29 09:30:02
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