二元边际计算和汇总主要程序代码.docxVIP

二元边际计算和汇总主要程序代码Sub 提取文件夹名称()Dim fs As Objectn = 1Set fs = CreateObject(Scripting.FileSystemObject)Set f = fs.getfolder(C:\Users\Administrator\Desktop\二元边际)For Each fd In f.subfoldersCells(n, 1) = fd.Namen = n + 1NextSet f = NothingSet fs = NothingEnd SubSub 子文件夹新建并读取数据()Dim iFile As String, b As Integer, c, d, opath, npath As Stringb = Sheets(1).UsedRange.Rows.CountFor a = 1 To b c = Sheets(1).Cells(a, 1) d = c .xls iFile = ThisWorkbook.Path \ c \ d Workbooks.Add ActiveWorkbook.SaveAs iFile, True On Error Resume Next 防止已经改过名 opath = C:\Users\Administrator\Desktop\二元边际\ c \comtrade.csv npath = C:\Users\Administrator\Desktop\二元边际\ c \comtrade(0).csv Name opath As npath For i = 0 To 12 Workbooks.Open (C:\Users\Administrator\Desktop\二元边际\ c \comtrade( i ).csv) Columns(O:O).Select Selection.Copy Windows(d).Activate Columns(2 * i + 1).Select ActiveSheet.Paste Windows(comtrade( i ).csv).Activate Columns(U:U).Select Selection.Copy Windows(d).Activate Columns(2 * i + 2).Select ActiveSheet.Paste Application.DisplayAlerts = False Workbooks(comtrade( i ).csv).Close False Application.DisplayAlerts = True Next Workbooks(d).Close TrueNextEnd SubSub 计算二元边际()Dim a, b, c, d, e, f, r, r1, m, h, j As Integer, str, name, ads As String r1 = Workbooks(总表.xlsx).Sheets(1).UsedRange.Rows.Count For r = 1 To r1 Workbooks(总表.xlsx).Activate name = Sheets(1).Cells(r, 1) ads = name .xls Workbooks.Open (C:\Users\Administrator\Desktop\二元边际\ name \ ads) Workbooks(ads).Activate str = ThisWorkbook.Path Sheets(2).Range(A1).FormulaR1C1 = YEAR Sheets(2).Range(B1).FormulaR1C1 = CN Sheets(2).Range(C1).FormulaR1C1 = EX Sheets(2).Range(D1).FormulaR1C1 = IM Sheets(2).Range(E1).FormulaR1C1 = OLD Sheets(2).Range(F1).FormulaR1C1 = NEW For i = 2 To 13 S