2011年计算机等考二级VB辅导(26)

2011年计算机等考二级VB辅导(26) #

一组有用的操作Excel的函数

在用VB做程序的时候,它本身的报表并不太好使用,因此应用Excel输出数据,是一个好方法,以下是一组操纵Excel的函数据,希望能帮助大家. #

'Excel VBA控制函数 #

'Write By WeiHua 2000.10.12

'检测文件 #

Function CheckFile(ByVal strFile As String) As Boolean #

Dim FileXls As Object

#

Set FileXls = CreateObject("Scripting.FileSystemObject")

If IsNull(strFile) Or strFile = "" Then

CheckFile = False

Exit Function

#

End If

If FileXls.FileExists(strFile) = False Then

#

CheckFile = False #

Set FileXls = Nothing

#

Exit Function #

Else

#

CheckFile = True #

Set FileXls = Nothing

#

End If #

End Function #