判断excel文件是否被打开
来源:互联网 发布:淘宝一千零一夜2男主角 编辑:程序博客网 时间:2024/04/29 17:22
Private Declare Function lOpen()Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lClose()Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
' 判断某文件是否在使用中
Public Function IsFileAlreadyOpen()Function IsFileAlreadyOpen(ByVal FileName As String) As Boolean
Dim hFile As Long
Dim lastErr As Long
hFile = -1 ' 初始化文件句柄.
lastErr = 0
hFile = lOpen(FileName, &H10)
If hFile = -1 Then ' 文件是否能正确打开并可共享
lastErr = Err.LastDllError
Else
lClose(hFile)
End If
IsFileAlreadyOpen = (hFile = -1) And (lastErr = 32)
End Function
Private Sub Command1_Click()Sub Command1_Click()
Dim strFileName As String
strFileName = "d:/050304_chengji.xls" ' 你的文件
If IsFileAlreadyOpen(strFileName) Then
MsgBox("指定文件已打开")
Else
MsgBox("指定文件未打开")
End If
End Sub
- 判断excel文件是否被打开
- 如何判断Excel文件是否打开
- 判断文件是否被打开
- 判断文件是否被打开
- VB判断指定的Excel文件是否打开
- 判断文件是否打开
- 判断文件是否被打开(word)
- C#判断文件是否被打开占用
- C#判断文件是否被打开占用
- C#判断文件是否被打开占用
- C#判断文件是否被打开占用
- C#判断文件是否打开
- C#判断文件是否打开
- C#判断文件是否打开
- Excel操作Bug引出的问题:如何判断文件是否被占用、打开
- 判断上传文件是否是Excel文件
- 判断文件是否为excel文件
- C#判断已经被打开过的excel文件
- 关于Picasa
- [转载] linux启动流程分析(4)---汇编部分(1)
- js动画效果
- [转载] linux启动流程分析(4)---汇编部分(2)
- [转载] linux启动流程分析(4)---汇编部分(3)
- 判断excel文件是否被打开
- [转载] linux启动流程分析(4)---汇编部分(4)
- EXT2.0 checkbox树的扩展(支持单选,级联多选,只选叶子等)
- 看不到英雄的年代
- [转载] linux启动流程分析(4)---汇编部分(5)
- C++ primer 习题练习:8.3~8.4
- [转载] linux启动分析(5)---C程序入口函数start_kernel
- js动画效果
- 推荐一本好书《spring 技术内幕---深入解析spring架构与设计原理》