ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó±N¤U­±ªºµ{¦¡½X§ï¦¨¥u¶×¦b¦P¤@­Ó¸ê®Æªí

¦^´_ 4# qwern
Àɮ׳£©ñ¦b¦P¤@­Ó¸ê®Æ§¨¤º
  1. Sub ex()
  2. fs = Dir(ThisWorkbook.Path & "\*.xls*")
  3. Do Until fs = ""
  4. If fs <> ThisWorkbook.Name Then
  5.   With Workbooks.Open(ThisWorkbook.Path & "\" & fs)
  6.      .Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
  7.   .Close 0
  8.   End With
  9. End If
  10. fs = Dir
  11. Loop
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD