末世之我是巫妖:其中的ROWS是什么
来源:百度文库 编辑:高考问答 时间:2024/05/14 13:10:27
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