excel - 如何每天从特定范围获取数据我的范围不同（VBA Excel）

Question

如何从特定范围获取数据，每天不同的范围显示在我的工作表中..我只需要可用的单元格数据值，只需要剩余的应该是空白的..

我在这里粘贴了我的enter code here

Windows("Daily Operation 14-Oct -13 using vab.XLSM").Activate
Application.CutCopyMode = False

Range("O3").Select
ActiveCell.FormulaR1C1 = _
    "=IF(TODAY()=RC[-9],""Today EDD"",IF((TODAY()>RC[-9]),""EDD Crossed"",IF((TODAY()+1)=RC[-9],""T+1"",IF(OR((RC[-9]=(TODAY()+2)),(RC[-9]=(TODAY()>=3))),""T+2"",""Future EDD""))))"

ActiveCell.Offset(0, -1).Select

ActiveCell.End(xlDown).Select

ActiveCell.Offset(0, 1).Select

ActiveCell.End(xlUp).Select

Selection.End(xlDown).Select

Range(Selection, Selection.End(xlUp)).Select

Selection.FillDown

Answer 1

我不太明白你真正需要的是什么。但我确实有一个小代码建议：
不要将文件名放在Windows("Daily Operation 14-Oct -13 using vab.XLSM").Activate.

将其存储在 excel 工作表上的命名范围中，然后在代码中使用它，如下所示：

dim r as range
set r = range("filename")
windows(r.value).activate 

你也可以使用类似的东西

fname = activewindow.caption`
windows(fname).activate`

像您一样放置它可能会导致您出现问题，因为文件名等经常会更改，另一方面您希望尽可能少地更改代码。

干杯，

乌迪