【VBA】ブックが開いているか判定|IsBookOpened
記事更新日:2022-12-02

指定パスのブックが開いていたらtrueを返す
Public Function IsBookOpened(ByVal fullPath As String) As Boolean
IsBookOpened = False
On Error Resume Next
Open fullPath For Append As #1
Close #1
If Err.Number > 0 Then IsBookOpened = True
End Function
テキストの追記モードで開いてエラーが出るかどうかで確認
※追記モードとは
既存ファイルの末尾にデータを追記するための開き方
開いているファイルには追記できないようにするためエラーが出る
使い方
関連記事
CLICK
CLICK
CLICK
fsoのセット
2022-12-02
編集後記:
この記事の内容がベストではないかもしれません。