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]"
不行?
提示这句
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"是不同的。