批量处理文件夹内的文件

hjq018

如附件，有相同格式的原文件，如何快速的批量删除不要的列和行后别存为另一件文件（样式为加了“导入”的文件格式）

chxw68

修改好了。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim wb As Workbook
   
5.   Dim wb1 As Workbook
   
6.   Dim ws As Worksheet
   
7.   Dim mypath$, myname$
   
8.   Application.ScreenUpdating = False
   
9.   Application.DisplayAlerts = False
   
10.   mypath = ThisWorkbook.Path & "\原文件"
    
11.   myname = Dir(mypath & "*.xls")
    
12.   Do While myname <> ""
    
13.     Set wb = GetObject(mypath & myname)
    
14.     With wb
    
15.       With .Worksheets("sheet1")
    
16.         r = .Cells(.Rows.Count, 3).End(xlUp).Row
    
17.         arr = .Range("c2:h" & r - 1)
    
18.         Application.SheetsInNewWorkbook = 1
    
19.         Set wb1 = Workbooks.Add
    
20.         With wb1
    
21.           With .Worksheets(1)
    
22.             .Range("a1").Resize(UBound(arr), 1) = Application.Index(arr, 0, 1)
    
23.             .Range("c1").Resize(UBound(arr), 1) = Application.Index(arr, 0, 6)
    
24.           End With
    
25.           .SaveAs Filename:=ThisWorkbook.Path & "\转换后文件" & Split(myname, ".")(0) & "导入", FileFormat:=xlExcel8
    
26.           .Close False
    
27.         End With
    
28.       End With
    
29.       .Close False
    
30.     End With
    
31.     myname = Dir
    
32.   Loop
    
33. End Sub
    

复制代码

chxw68

详见附件。

hjq018

chxw68 发表于 2018-7-17 17:06
详见附件。

666666，师傅，你这个有一个问题，就是能不能第一列为文本格式啊，因为转换后第一列的值前面是0开始的就变成没有了，比如0102003变成了102003

jiminyanyan

hjq018 发表于 2018-7-17 17:52
666666，师傅，你这个有一个问题，就是能不能第一列为文本格式啊，因为转换后第一列的值前面是0开始的就 ...

设置文本，录个宏就行了．

jiminyanyan

hjq018 发表于 2018-7-17 17:52
666666，师傅，你这个有一个问题，就是能不能第一列为文本格式啊，因为转换后第一列的值前面是0开始的就 ...

．．．．．．