|
はじめましてどうしても解決できないので
ご教授よろしくお願いいたします。
他のユーザーが目的のファイル(csv)を開いている間
(読み取り専用の間)処理を待機したいのですが・・・
///////////////////////////////////////////////
Dim s_path As String
Dim s_name As String
Dim s_fpath As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
s_path = ActiveWorkbook.Path
s_name ="ファイル名"
s_fpath = s_path & "\" & s_name & ".csv"
file_open:
Workbooks.Open Filename:= s_fpath
Do Until ActiveWorkbook.ReadOnly = False
ActiveWorkbook.Close
GoTo file_open:
Loop
次の処理へ
//////////////////////////////////////////////
と言うように開いたファイルが読み取り専用の場合は閉じて
また開くという繰り返しのコードを組んでみました。
ただ問題なのは処理を繰り返している間に他のユーザーが目的のファイルを
閉じた際に「ファイルが使用可能になりました」というような表示がされる
ということです。
これを表示しない方法。若しくは目的のファイルを開く前にそのファイルが
使用中かどうか調べる方法はありますか?
よろしくお願いいたします。
|
|