VBAでファイルを展開する前に展開済みか否か確認したい

Question

VBAでファイルを展開する前に展開済みか否か確認したい

こんにちは、初心者です。
どうしてもエラー内容を解決することができません。

発生している問題・エラーメッセージ

コンパイルエラー
sub または　fanction が定義されていません。

該当のソースコードボールドテキスト

Sub フォルダ内のファイルを出力2()

'入力シート
read_row = Sheets("入力").Range("B2")
read_col = Sheets("入力").Range("C2")

'変数指定
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
 
Dim datFile As String
datFile = ActiveWorkbook.Path & "\" & Format(Date, "yyyymmdd") & "Sql.impex "

Dim arr As Variant
arr = WorksheetFunction.Transpose(Range("A1:L100"))
 
 

'②テキストを展開　※展開済の場合スルー
Dim ret As Boolean
ret = IsBookOpened(datFile)
If (ret = False) Then
    MsgBox "開いている"
    Open datFile For Output As #1
    Exit Sub
End If
MsgBox "開いている"
Debug.Print "開いている"

試したこと

検索サイトで調べましたが、解決することができませんでした。

Comments

[mattuwan]

ファイルを展開とはなんでしょう？
1）テキストファイルをエクセルで今、開いているか？
2）テキストファイルのテキストを、エクセルのシート上に書き出したか？
3）その他

それから、
エラーの原因さえわかればいい？
できれば、エラーをなくし、結果がほしい？

Answer 1

ご自分で作られたプログラムに「IsBookOpened関数」はありますか？
おそらく下記サイトの内容を参考にされたのだとおもいますが、コピペが足りていないと思われます。

Excel作業をVBAで効率化/ブックが開かれているかチェックする

自分のプログラムに用意していない関数を利用すると発生するエラーです。

Comments

[yumeno]

この方は「IsBookOpened関数」を作っている(準備している？)んですね。そこから理解できていませんでした。ご指摘いただかなければ気づかなかったため、大変助かりました。ありがとうございます！