作者:乔山办公网日期:
返回目录:excel表格制作
Private Sub Command1_Click()
Dim xx As Boolean
xx = IsExistExcel
If xx = True Then
MsgBox "已安装来EXCEL"
Else
MsgBox "未安源装EXCEL"
End If
End Sub
'判断Excel是否安装的函数百,是则返回True,否则度返回False
Function IsExistExcel() As Boolean
On Error GoTo sERR:
Dim sExcel As Object
Set sExcel = CreateObject("EXCEL.Application")
IsExistExcel = True
Exit Function
sERR:
Err.Clear
IsExistExcel = False
End Function
excel.cells[i,j].Value.ToString()