在EXCEL中把文件路径和文件名定义成一个变量

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

本人是菜鸟，下面是一个有效的自定义函数，取指定 sheet 名的 指定单元格的数据。

Function GetSheet(ST As String, Rg As Range)

GetSheet = Worksheets(ST).Range(Rg.Address)

End Function

例如：工作簿中 有 SHEET1 ,SHEET2 两个工作表

sheet1.A1="你好吗"

sheet2.B5="SHEET1"

在 SHEET2.C5单元格中输入公式 getsheet(b5,a1)

则 SHEET2.C5返回值为 “你好吗”

现在我想把这个公式扩展一下，比如说：

C:\BOOK1.XLS.A1="你好吗"

C:\BOOK2.XLS\sheet2.B5="C:\BOOK1.XLS.A1"

我想在book2中引用BOOK1 的数据，

也就是说，我想把这个公式扩展到绝对路径，如何定义公式，谢谢？

解析:

Function GetSheet(path as string ,ST As String, Rg As Range)

GetSheet = WorkBook(path).Worksheets(ST).Range(Rg.Address)

End Function

可以用inderct函数：

=indirect(“Z:\Daily report\[DR_”&A1&”.xlsx]T(5)!$O9”)

A1放你的变量

---