excel VBA不打开工作薄情况下提取单元内容到另一个开工作薄

Question

Sub 不打开工作薄提取内容()
With Sheet18.Range("CL14")
.Value = "F:\SINO管理学\NWE \工作文档\[统计50.xls]审核表!R[-6]C[-87]"
End With
End Sub
请问这个宏对吗?
为什么运行不了,结果显示F:\SINO管理学\NWE \工作文档\[统计50.xls]审核表!R[-6]C[-87]"

Answer 1

Sub 不打开工作薄提取内容()
Sheet18.Range("CL14").FormulaR1C1="='F:\SINO管理学\NWE \工作文档\[统计50.xls]审核表'!R[-6]C[-87]"
End Sub追问

不行?
提示这句
Sheet18.Range("CL14").FormulaR1C1="='F:\SINO管理学\NWE \工作文档\[统计50.xls]审核表'!R[-6]C[-87]"

追答

首先你的工作表要有sheet18

追问

工作表要有sheet18

追答

那可能你的sheet18其实只是名字是18，而不是代号18，改这个看看
Sheets("sheet18").Range("CL14").FormulaR1C1="='F:\SINO管理学\NWE \工作文档\[统计50.xls]审核表'!R[-6]C[-87]"

追问

是不是这句不对啊
可能你的sheet18其实只是名字是18，而不是代号18，改这个看看
Sheets("sheet18").Range("CL14").FormulaR1C1="='F:\SINO管理学\NWE \工作文档\[统计50.xls]审核表'!R[-6]C[-87]"
你试了吗?

追答

两个情况我都试了，我写代码全是测试通过的。
sheet18和"sheet18"是不同的。