[已解决]如何批处理各工作薄首行数据？

greenday

附件 批量转化数据.zip (281.01 KB, 下载次数: 4)

2014-3-30 16:14 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-30 16:35

EH已回复……

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim wb As Workbook, mypath$, wj$, i&
   
3. mypath = ThisWorkbook.Path & "\数据集"
   
4. Application.ScreenUpdating = False
   
5. Application.DisplayAlerts = False
   
6. wj = Dir(mypath & "*.xls*")
   
7. Do While wj <> ""
   
8.     Set wb = GetObject(mypath & wj)
   
9.     With wb.Sheets(1)
   
10.         arr = .Range(.Cells(1, 1), .Cells(1, .Columns.Count))
    
11.         For i = 1 To UBound(arr, 2)
    
12.             arr(1, i) = arr(1, i) Mod 49
    
13.         Next
    
14.         .Range("a1").Resize(1, UBound(arr, 2)) = arr
    
15.     End With
    
16.     Application.Windows(wb.Name).Visible = True
    
17.     wb.Close 1
    
18.     wj = Dir
    
19. Loop
    
20. Application.DisplayAlerts = True
    
21. Application.ScreenUpdating = True
    
22. End Sub
    

复制代码

dsmch

EH已回复……