【常用自定义函数001】VBA高容错性地打开文件
来源:互联网 发布:软件 质量保证承诺书 编辑:程序博客网 时间:2024/05/17 13:45
代码:
Function OpenExcelFile(sPath As String, ByVal sFileName As String, bDisplay As Boolean, sPwd As String) As Integer
'打开Excel文件
'Ver 1.05
'完成时间:2007.12.01
'设计:美猴王软件工作室 www.okexcel.com.cn
'参数说明:
'sPath:文件绝对路径;sFileName:Excel文件名;bDisplay:True显示错误信息;sPwd:文件打开密码
'返回值:-1:同名文件已经打开;-2:文件不存在或密码错误;0:成功打开;1:文件已经被打开
Dim bOpen As Boolean
Dim sFullName As String
On Error Resume Next
If InStr(LCase(sFileName), ".xls") = 0 Then sFileName = sFileName & ".xls"
sFullName = Workbooks(sFileName).FullName
'检查是否已经打开同名的Excel文件
'如果有sFullName不为空
On Error GoTo 0
bOpen = False
If sFullName <> "" Then
If LCase(sFullName) = LCase(sPath & "/" & sFileName) Then
bOpen = True
'判断已经打开的同名文件是否本次需要打开的文件
OpenExcelFile = 1
'文件已经被打开
Else
If bDisplay Then
MsgBox "请首先关闭“" & sFileName & "”文件!" & Chr(13) & "不能同时打开同名文件,这是Excel的规定!", vbOKOnly + vbExclamation, "文件的打开错误"
End If
bOpen = True
OpenExcelFile = -1
'不能同时打开同名文件,这是Excel的规定
End If
End If
If Not bOpen Then
On Error GoTo errOpen
Workbooks.Open Filename:=sPath & "/" & sFileName, Password:=sPwd
On Error GoTo 0
OpenExcelFile = 0
'成功打开文件
End If
Exit Function
errOpen:
If bDisplay Then MsgBox Err.Description, vbOKOnly + vbExclamation, "文件的打开错误"
OpenExcelFile = -2
'文件不存在或密码错误
On Error GoTo 0
End Function
- 【常用自定义函数001】VBA高容错性地打开文件
- Excel VBA选择文件、高容错性地打开文件
- VBA自定义函数-打开文件对话框
- VBA自定义函数-选择文件对话框
- VBA自定义函数-保存文件对话框
- vba自定义功能函数
- Excel自定义函数VBA
- VBA 常用函数
- vba常用函数
- 打开,保存文件(VBA)
- Excel VBA打开文件目录
- VBA文件对话框的应用(VBA打开文件、VBA选择文件、VBA选择文件夹)
- VBA文件对话框的应用(VBA打开文件、VBA选择文件、VBA选择文件夹)
- 用Excel VBA选择文件、打开文件
- 用Excel VBA选择文件、打开文件
- VBA常用函数及记事
- VBA常用类型转换函数
- VBA常用功能函数集
- CFile m_fileTestLog;
- 不依赖于DLL就能工作的全局钩子
- 动态页面静态化技术
- HTTP Headers 入门
- 用Excel VBA选择文件、打开文件
- 【常用自定义函数001】VBA高容错性地打开文件
- [求助]怎样一次打开多个文件
- Excel-VBA操作文件四大方法(一)
- 学习c++的五十条忠告
- Excel-VBA操作文件四大方法之二
- Excel-VBA操作文件四大方法之三
- Windows链接时期所需要的函数库
- Excel-VBA操作文件四大方法之四(1)
- Excel-VBA操作文件四大方法之四(2)