同一文件夹下的多个工作簿里同一单元格写入公式

jc847860351

求教各位高手：
           现有近300份工作簿（在同一文件夹下），想要在每份工作簿A1单元格（属于合并单元格A1：H1）写入公式。
           请问用VBA编程怎么做？望指教。谢谢

不知道为什么

http://club.excelhome.net/thread-1421581-2-1.html

刚回答过，同样的求助又出来了？楼主自己先参考下链接

jc847860351

不知道为什么 发表于 2018-6-27 11:53
http://club.excelhome.net/thread-1421581-2-1.html

刚回答过，同样的求助又出来了？楼主自己先参考下 ...

谢谢您，我先试试，待会送花

不知道为什么

jc847860351 发表于 2018-6-27 12:07
谢谢您，我先试试，待会送花

不客气不客气，对你有用处就好哦

jc847860351

公式==LEFT(MID(CELL("filename",A1),FIND("\",CELL("filename",A1),5)+1,255),FIND(".",MID(CELL("filename",A1),FIND("\",CELL("filename",A1),5)+1,255))-1)

jc847860351

不知道为什么 发表于 2018-6-27 12:21
不客气不客气，对你有用处就好哦

你好，在五楼描述里，公式在VBA里不能用。
公式=LEFT(MID(CELL("filename",A1),FIND("\",CELL("filename",A1),5)+1,255),FIND(".",MID(CELL("filename",A1),FIND("\",CELL("filename",A1),5)+1,255))-1)
是提取工作表名称
请问：公式是否需要修改，怎么修改？

不知道为什么

jc847860351 发表于 2018-6-27 13:03
你好，在五楼描述里，公式在VBA里不能用。
公式=LEFT(MID(CELL("filename",A1),FIND("\",CELL("filename ...

因为你公式里有 引号“”  需要用的时候就得这样 “”“”“”。这么一堆不知道您能看清除。所以要仔细点分别加上去。

jc847860351

不知道为什么 发表于 2018-6-27 13:06
因为你公式里有 引号“”  需要用的时候就得这样 “”“”“”。这么一堆不知道您能看清除。所以要仔细点 ...

如图，程序运行出错了

不知道为什么

把错误句的 This 这个单词去掉，open不是这么用的。

jc847860351

不知道为什么 发表于 2018-6-27 13:37
把错误句的 This 这个单词去掉，open不是这么用的。

如图，原以为是公式错误，遂改为123测试，仍然写不进，求解。
另：我是新手，难为你耐心指教了，非常感谢