sub 取值(路径 as string,文件 as string,工作表,单元格 as string)
with activecell.resize(range(单元格),Rows.count,range(单元格),columns.count)
.formulaarray = "='" & 路径 & “\[" & 文件 & ”]" & 工作表 & "'!" & 单元格
.value=.value
end with
end sub
sub 取值(路径 as string,文件 as string,工作表,单元格 as string)
with activecell.resize(range(单元格),Rows.count,range(单元格),columns.count)
.formulaarray = "='" & 路径 & “\[" & 文件 & ”]" & 工作表 & "'!" & 单元格
.value=.value
end with
end sub