[已解决]VBA怎么解决这个变化的问题

excel白兔

主要实现的也就是  做3月表时引用的就是2月的，4月时引用的就是3月的 格式2012-03-（新）费用及直接人工报表.xls就是这样的   首先2月和3月的都是在一个文件夹下 麻烦老师帮我想想 怎么才能实现这个功能 谢谢

最佳答案

月排行榜 / 总排行榜

lisachen

2012-4-16 20:00

1. 
   
2. Sub test()
   
3. Dim str As String
   
4. Dim str1 As String
   
5. Dim arr
   
6. Application.ScreenUpdating = False
   
7. Application.DisplayAlerts = False
   
8. Application.AskToUpdateLinks = False
   
9. str = ThisWorkbook.Path
   
10. str1 = ThisWorkbook.Name
    
11. str = str & "" & Left(str1, 5) & Format(Mid(str1, 6, 2) - 1, "00") & Right(str1, 17)
    
12. Workbooks.Open (str)
    
13. arr = Range("b8:b23")
    
14. ActiveWorkbook.Close Save = False
    
15. Range("c8:c23") = arr
    
16. Application.DisplayAlerts = True
    
17. Application.ScreenUpdating = True
    
18. Application.AskToUpdateLinks = True
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

lisachen

VBA怎么实现呢.rar (126.72 KB, 下载次数: 3)

2012-4-16 18:35 上传

点击文件名下载附件

1. 
   
2. Sub test()
   
3. Dim str As String
   
4. Dim str1 As String
   
5. Dim arr
   
6. Application.ScreenUpdating = False
   
7. Application.DisplayAlerts = False
   
8. str = ThisWorkbook.Path
   
9. str1 = ThisWorkbook.Name
   
10. str = str & "" & Left(str1, 5) & Format(Mid(str1, 6, 2) - 1, "00") & Right(str1, 17)
    
11. Workbooks.Open (str)
    
12. arr = Range("b8:b23")
    
13. ActiveWorkbook.Close Save = False
    
14. Range("c8:c23") = arr
    
15. Application.DisplayAlerts = True
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码

excel白兔

lisachen 发表于 2012-4-16 18:36

file:///C:/Documents%20and%20Settings/Administrator/Application%20Data/Tencent/Users/447347034/QQ/WinTemp/RichOle/T3GRU2{PEIUC2E8}~U)9WGS.jpg
老师我每次点 按钮时都提示这个  我每次都得点下不更新 ，这个代码能否+点语句 把这个给弄掉呀 麻烦老师了

excel白兔

lisachen 发表于 2012-4-16 18:36

就是这个 图片 老师

lisachen

1. 
   
2. Sub test()
   
3. Dim str As String
   
4. Dim str1 As String
   
5. Dim arr
   
6. Application.ScreenUpdating = False
   
7. Application.DisplayAlerts = False
   
8. Application.AskToUpdateLinks = False
   
9. str = ThisWorkbook.Path
   
10. str1 = ThisWorkbook.Name
    
11. str = str & "" & Left(str1, 5) & Format(Mid(str1, 6, 2) - 1, "00") & Right(str1, 17)
    
12. Workbooks.Open (str)
    
13. arr = Range("b8:b23")
    
14. ActiveWorkbook.Close Save = False
    
15. Range("c8:c23") = arr
    
16. Application.DisplayAlerts = True
    
17. Application.ScreenUpdating = True
    
18. Application.AskToUpdateLinks = True
    
19. End Sub
    

复制代码