VBA_excel.rar_NPOI库_npoi _vba excel_批量excel

Sub test() c = Array(1, 6, 7) p = "F:\各省农作物面积整理-卢珍\山西省\原始表格\" '根据实际修改 注意别遗漏最后的\ f = Dir(p & "*.xls") Set ns = ActiveSheet Do Until f = "" Set wb = Workbooks.Open(p & f) For i = 0 To 2 n = n + 1 ns.Cells(1, n).Resize(200).Value = wb.Sheets("Sheet1").Cells(2, c(i)).Resize(200).Value Next wb.Close False f = Dir Loop End Sub Sub test() c = Array(1, 5, 6, 7, 8, 9, 10) '根据实际提取的列修改，提取哪几列。 p = "F:\各省农作物面积整理-卢珍\吉林省\原始表格\" '根据实际修改 注意别遗漏最后的\ f = Dir(p & "*.xls") 'd = Left(f, 19) h = InStrRev(f, ".") - 1 d = Left(f, h) Set ns = ActiveSheet Do Until f = "" Set wb = Workbooks.Open(p & f) For i = 0 To 6 ’根据数组c的元素个数修改。 n = n + 1 ns.Cells(1, n).Resize(64).Value = wb.Sheets(1).Cells(2, c(i)).Resize(64).Value Next wb.Close False f = Dir h = InStrRev(f, ".") - 1 d = Left(f, h) Loop End Sub //将面积和产量分别提取 Sub test() c = Array(2, 9, 16, 23, 30, 37, 44, 51, 58) '根据实际提取的列修改，提取哪几列。 p = "F:\各省农作物面积整理-卢珍\内蒙\成果库\" '根据实际修改 注意别遗漏最后的\ f = Dir(p & "*.xlsx") 'd = Left(f, 19) h = InStrRev(f, ".") - 1 d = Left(f, h) m = c(1) - c(0) - 1 Set ns = ActiveSheet Do Until f = "" Set wb = Workbooks.Open(p & f) For j = 0 To m For i = 0 To 8 '根据数组c的元素个数修改。 n = n + 1 ns.Cells(1, n).Resize(300).Value = wb.Sheets(1).Cells(1, c(i) + j).Resize(300).Value Next Next wb.Close False f = Dir h = InStrRev(f, ".") - 1 d = Left(f, h) Loop End Sub