[已解决]如何跨工作薄引用数据

hhczxe

如何编写代码，实现在工作薄book1的表sheet1的单元格A1中引用工作薄book2的表sheet1的单元格A1中的内容
想了解两种情况下代码
一是工作薄book2处于打开状态如何写代码
二是工作薄book2处于关闭状态如何写代码
谢谢！

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-9 12:07

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

这个是不打开取值。打开取值一样可以用这个。

跳转到最佳答案楼层

sunjing-zxl

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

这个是不打开取值。打开取值一样可以用这个。