idnoidno

1. Option Explicit
   
2. Sub test12()
   
3.     Dim p As String
   
4.     Dim f As String
   
5.     Dim ws As Worksheet
   
6.     Dim wb As Workbook
   
7.     Dim r As Range
   
8.      
   
9.     p = "D:\TEMPWS\"  'CVSÀɮתº¸ê®Æ§¨
   
10.      
    
11.     f = Dir(p & "*.csv")
    
12.     If f = "" Then Exit Sub
    
13.     Set ws = Workbooks.Open(p & f).Sheets(1)
    
14.      
    
15.     f = Dir()
    
16.     Do While f <> ""
    
17.         Set wb = Workbooks.Open(p & f)
    
18.         Set r = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    
19.         wb.Sheets(1).Cells(1).CurrentRegion.Offset(1).Copy Destination:=r
    
20.         wb.Close
    
21.         f = Dir()
    
22.     Loop     
    
23.     Application.Goto ws.Cells(1)     
    
24. End Sub

½Æ»s¥N½X

idnoidno

§O«È®ð¡A¥u¬O­è¦n¦³µª®×¥i¥Hµ¹§A°Ñ¦Ò¡AÀ°¨ì¦£¬O§ÚªººÖ®ð°Õ