文書番号: 402465
最終更新日: 1997/10/20
Sub FileShareCheck() Dim MyFile As String On Error GoTo ErrorTrap MyFile = Dir("F:\DATA\SAMPLE.XLS") If MyFile = "" Then MsgBox "指定したファイルはありません" Else '書き込み専用でオープン Open "F:\DATA\SAMPLE.XLS" For Binary Access Write As #1 Close #1 Application.Workbooks.Open Filename:="F:\DATA\SAMPLE.XLS" End If Exit Sub ErrorTrap: MsgBox Err & Error(Err) MsgBox "このファイルは使用中です" Exit Sub End Sub
Keywords: KBHOWTO KB402465
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch