ファイル名の取得

投稿者 : ymicky     投稿日時 : 2024/07/14(Sun) 11:25:12     OS : Windows 10     EXCEL : Office 365

---

　
エラーとなるVBA
「 ActiveCell.FormulaR1C1 ="= Mid(CELL("filename"), Find("[", CELL("filename")) + 1, Find("]", CELL("filename")) - Find("[", CELL("filename")) - 6)"」

エラー表示
---------------------------
Microsoft Visual Basic for Applications
---------------------------
コンパイル エラー:

構文エラー
---------------------------
OK ヘルプ
---------------------------



セルに直接　「= Mid(CELL("filename"), Find("[", CELL("filename")) + 1, Find("]", CELL("filename")) - Find("[", CELL("filename")) - 6)」と書き込むと正常にファイル名が表示されます。

ご教示お願いします。

投稿者 : モリス     投稿日時 : 2024/07/14(Sun) 11:37:05

---

>セルに直接　「= Mid(CELL("filename"), Find("[", CELL("filename")) + 1, Find("]", CELL("filename")) - Find("[", CELL("filename")) - 6)」と書き込む

これをマクロ記録してください
原因が解ります

投稿者 : モリス     投稿日時 : 2024/07/14(Sun) 14:31:23

---

ああ、

CELL("filename")
　↓
CELL("filename",A1)
の方が良い

投稿者 : てらてら     投稿日時 : 2024/07/15(Mon) 06:22:02

---

こんにちは。

エスケープシーケンスじゃないですかね。
文字列内の"は、"" としなければなりません。

Sub macro()
    ActiveCell.FormulaR1C1 = "= MID(CELL(""filename""), FIND(""["", CELL(""filename"")) + 1, FIND(""]"", CELL(""filename"")) - FIND(""["", CELL(""filename"")) - 6)"
End Sub

以下に、シート内の数式を復活用に書き出してくれるコードがあります。
https://help-vba.com/reformulamakecode/