Hsieh

回復 1# starbox520

1. Sub inputraw()
   
2. ActiveSheet.UsedRange.Offset(1).ClearContents
   
3. Application.ScreenUpdating = False
   
4. fd = "C:\Users\Rawdata\" 'rawdata檔案路徑
   
5. fs = Dir(fd & "*")
   
6. r = 2
   
7. Do Until fs = ""
   
8. With Workbooks.Open(fd & fs)
   
9.    ActiveSheet.Cells(r, 1).Resize(, 21) = .ActiveSheet.Cells(8, 1).Resize(, 21).Value
   
10.    ActiveSheet.Cells(r, 22).Resize(, 20) = .ActiveSheet.Cells(19, 2).Resize(, 20).Value
    
11.    .Close 0
    
12. End With
    
13. fs = Dir
    
14. r = r + 1
    
15. Loop
    
16. Application.ScreenUpdating = True
    
17. End Sub

複製代碼