如何解決變化，生成的文件名稱變量？

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")) 

同樣工作簿:)