以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]判断文件已经打开  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12056)

--  作者:易服
--  发布时间:2011/8/21 9:42:00
--  [求助]判断文件已经打开
If 文件已经打开("D:\\My Documents\\Reports\\数据分类.xls") Then
    messagebox.show("文件已经打开请先关闭之")
End If

--  作者:布莱克朱
--  发布时间:2011/8/21 9:45:00
--  
Dim FName As String = "文件路径及文件名"
If FileSys.FileExists(FName) Then
    Try
    Dim f As New System.IO.FileStream(FName,IO.FileMode.Open,IO.FileAccess.Read,IO.FileShare.None)
    f.Dispose()
    Catch ex As Exception
    MessageBox.Show("目标文件处于打开状态")
End Try

--  作者:易服
--  发布时间:2011/8/21 11:13:00
--  

如果文件处于打开状态,再点击按钮


图片点击可在新窗口打开查看此主题相关图片如下:2011-8-21 10-27-29.png
图片点击可在新窗口打开查看

If FileSys.DirectoryExists("D:\\My Documents\\Reports") Then \'目录存在
Else
    FileSys.CreateDirectory("D:\\My Documents\\Reports") \'创建目录
End If

Dim FName As String = "D:\\My Documents\\Reports\\数据分类.xls"
If FileSys.FileExists(FName) Then
    Try
        Dim f As New System.IO.FileStream(FName,IO.FileMode.Open,IO.FileAccess.Read,IO.FileShare.None)
        f.Dispose()
    Catch ex As Exception
        MessageBox.Show("目标文件处于打开状态")
    End Try
End If

If DataTables.Contains("后台统计") Then \'如果存在后台统计
Tables("后台统计").SaveExcel("D:\\My Documents\\退耕报表\\数据分类.xls","后台统计")
Dim flg As New SaveExcelFlags
flg.MergedRanges = True
\'  CurrentTable.SaveExcel("D:\\My Documents\\退耕报表\\数据分类.xls","后台统计",flg)
Tables("后台统计").SaveExcel("D:\\My Documents\\Reports\\数据分类.xls","后台统计",flg)
Dim Result As DialogResult
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\My Documents\\Reports\\数据分类.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Rg.Borders.Linestyle = MSExcel.XlLineStyle.xlContinuous  \'边框线型
Rg.Borders.Weight = MSExcel.XlBorderWeight.xlThin        \'边框粗细
Rg.Borders.ColorIndex = 1 \'边框颜色
Dim M As MSExcel.Range = Ws.Cells
M.EntireColumn.AutoFit   \'自动调整列宽
M.EntireRow.AutoFit      \'自动调整行高
App.Visible = True
Wb.Save
Else
    MessageBox.show("先按后台统计按钮")
End If

[此贴子已经被作者于2011-8-21 11:57:14编辑过]

--  作者:布莱克朱
--  发布时间:2011/8/21 11:34:00
--  

If FileSys.DirectoryExists("D:\\My Documents\\Reports") Then \'目录存在
Else
    FileSys.CreateDirectory("D:\\My Documents\\Reports") \'创建目录
End If

Dim FName As String = "D:\\My Documents\\退耕报表\\数据分类.xls"

你看看,既然判断的是Reports目录,那么这个文件应该是在次目录下的,但是你的路径好像没有吗?你再查查路径
--  作者:易服
--  发布时间:2011/8/21 12:06:00
--  

是我大意,改成:D:\\My Documents\\Reports\\数据分类.xls 后虽然返回("目标文件处于打开状态")但仍然弹出错误窗口。

要么用代码直接关闭 D:\\My Documents\\Reports\\数据分类.xls


--  作者:czy
--  发布时间:2011/8/21 12:59:00
--  

http://www.foxtable.com/help/topics/2070.htm