Question

我有2个excel文件。一个设置为只读并从数据库收集数据。另一个excel文件的目的是复制所需的列。代码启动并运行我没有问题。但是，生成的excel文件名始终在每个月的月初更改。为了使代码工作，我需要每次都更改代码中的源名称。任何人都知道如何解决这个问题？

以下是我如何声明工作簿和工作表变量：

'set variables for wkb and ws to copy
Dim wbSource As Workbook
Set wbSource = Workbooks("UK2_2016_06.xlsx")

Dim wsCopy As Worksheet
Set wsCopy = wbSource.Worksheets("UK2_2016_06") 'change name as needed

Answer 1

这是你想要的吗？

Dim mnth As Long, Dt As Long

mnth = Month(Date)
Dt = Day(Date)

'~~> If 06 is month then
Set wsCopy = wbSource.Worksheets("UK2_" & Year(Date) & "_" & Format(mnth, "00"))

'~~> If 06 is date then
Set wsCopy = wbSource.Worksheets("UK2_" & Year(Date) & "_" & Format(Dt, "00"))

同样适用于工作簿：）

如何处理更改，生成的文件名到变量？

1 个答案: