求修改代码，并附上原代码与附件

考试加油站

表中有3个文件夹，要求：
1.新生成的表放在《生成的本月数据》中。                          
2.新生成的表中本月数据等于<去年同期数>中文件的去年本月数的1.32倍。（实际也就是说比去年增长32%）               
3.新生成表的本月累计数等于本新表的本月数+<原始数据上月>表的本月累计。（实际上就是说本月累计=本月数+上月累计数）         
说了这么多：其实原理很简单。领导要求本月新表数据要比去年同期增长32%，本月累计数=本月数+前一个月的累计数。

原代码如下：

产值产量表中数据doitbest 设计.rar (19.6 KB, 下载次数: 4)

2012-3-22 17:22 上传

点击文件名下载附件

1. Public Sub qw()
   
2. Dim S, D, mydir$, sht As Worksheet, ar, i%, a%, b%, n%
   
3. 
   
4. With Application.FileDialog(msoFileDialogFolderPicker)
   
5.     .Show
   
6.     CreateObject("Scripting.FileSystemObject").CopyFolder .SelectedItems(1), ThisWorkbook.Path & "\生成的本月数据"
   
7. End With
   
8. 'Stop
   
9. mydir = Dir(ThisWorkbook.Path & "\生成的本月数据" & "\*.xls")
   
10. n = 1
    
11. Do While Len(mydir) > 0
    
12.    Workbooks.Open ThisWorkbook.Path & "\生成的本月数据" & mydir
    
13.    Debug.Print mydir
    
14.    For Each sht In ActiveWorkbook.Worksheets
    
15.         With sht
    
16.             If .[a5] = "" Then Exit For
    
17.             ar = .Range("d5:g" & .[a65536].End(3).Row)
    
18.             For i = 1 To UBound(ar)
    
19.                 a = ar(i, 1)
    
20. '                Debug.Print sht.Index = 1 And i = UBound(ar)
    
21.                 ar(i, 1) = IIf(sht.Index = 1 And i = UBound(ar), Round(ar(i, 1) * 1.1, 1), Round(ar(i, 1) * 1.1, 0))
    
22.                 ar(i, 2) = IIf(sht.Index = 1 And i = UBound(ar), Round(ar(i, 2) + ar(i, 1), 1), Round(ar(i, 2) + ar(i, 1), 0))
    
23.                 a = ar(i, 3)
    
24.                 ar(i, 3) = IIf(sht.Index = 1 And i = UBound(ar), Round(ar(i, 3) * 1.1, 1), Round(ar(i, 3) * 1.1, 0))
    
25.                 ar(i, 4) = IIf(sht.Index = 1 And i = UBound(ar), Round(ar(i, 4) + ar(i, 3), 1), Round(ar(i, 4) + ar(i, 3), 0))
    
26. 
    
27.             Next
    
28.             .Cells(5, 4).Resize(UBound(ar), 4).NumberFormatLocal = "G/通用格式"
    
29.             .Cells(5, 4).Resize(UBound(ar), 4) = ar
    
30.         End With
    
31.    Next
    
32.    ActiveWorkbook.Close (True)
    
33.    mydir = Dir
    
34.    n = n + 1
    
35.    If n > CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path & "\生成的本月数据").Files.Count Then Exit Do
    
36. Loop
    
37. End Sub
    
38. 
    

复制代码