Question

当名称每天都会从另一个工作簿更改时，引用工作簿的最佳方法是什么？我有一个参考多个工作表的工作簿，我的目标是每天下载报告时都提取新数据，但是报告的名称会发生变化（例如InvoiceSoldReport2019-4-15 [兼容模式]与InvoiceSoldReport2019-4-16 [兼容模式]）。

Answer 1

如果您知道工作簿名称中只有日期更改，那么您可以将日期作为字符串动态包括在名称中。喜欢：

Dim current_date as Date
Dim wb_name as string
Dim wb_open as Workbook
...
date = ...
wb_name = "InvoiceSoldReport"
Set wb_open = Workbooks.Open(wb_name & date) 'concatenate name and date
....

Answer 2

您可以在工作中使用文件选择器。

posmean <- possibly(function(dat) if(sum(dat$cat == 1) > 2) 
     mean(dat$var2, na.rm  = TRUE) else NA_real_, otherwise = NA_real_)
ex %>% 
     mutate(mean_var2 = map_dbl(bfr, posmean))

每天更改工作簿名称时，在VBA中引用工作簿的最佳方法是什么？

2 个答案: