Question

我正在努力处理输入范围和文件名。我有很多工作表2014 ... 2018。我从今天的日期中提取年份，然后我想用年份来设置inputRange我希望从中提取数据的电子表格。我把这一年放在Cell F1中，但是我得到了错误消息。有人能帮助我吗？

以下是我的代码：

Set InputRange = Worksheets(Chr(34) & F1.Value & Chr(34)).Range("a4:a418")

Answer 1

首先，您的标题与您提供的信息不符。您尝试打开这些单独的工作簿，还是只在同一工作簿中打开工作表？如果是后者，请参阅下文。否则，您需要编辑您提出的问题，以使其更清晰。

我猜两个chr（34）函数是不必要的，因为单元格F1的值无论如何都可能是一个字符串。此外，除非您将F1设置为等于Worksheet.Range（＆＃34; F1＆＃34;），否则您将不会引用单元格F1。下面是一个简单的示例，您很可能需要稍微编辑它以使其实际工作。

Dim F1 As Range
Dim ws as Worksheet
Dim InputRange As Range

Set ws = ThisWorkbook.Worksheets("base worksheet name")
Set F1 = ws.Range("F1")

Set InputRange = ThisWorkbook.Worksheets(F1.Value).Range("A4:A418")

使用单元格内容打开文件

1 个答案: