lpk187

¦^´_ 1# oliwa


        Do
        MsgBox file
        Workbooks.Open (path & file)
        StartRow = Range("A1:A10").Find("µo²¼¸¹½X").Row + 1
        CopyRow = Cells(65535, "A").End(xlUp).Row  '¤£­n±q²Ä¤@¦C©¹¤U§ä¡A·í²Ä¤@¦C¬OªÅ¥Õ¡A©Î²Ä¤@¦C¦³­È¡A¦Ó²Ä¤G¦CªÅ¥Õ¬O§ä¨ìªºrow ³£·|¬O³Ì«á¤@¦C¡A§ä¨ìªº´X¥G¬O1048576 ©Î 65535
        MsgBox SatrRow & "+" & CopyRowy
        Range("A" & StartRow & ":K" & CopyRow).Select
        Selection.Copy
        
        Windows("ReceiveList.xlsm").Activate
        'Sheets("¤u§@ªí1").Select
        LastRow = Cells(65535, "A").End(xlUp).Row '¦P¤W¸ÑÄÀ
        MsgBox LastRow
        Range("A" & LastRow + 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        Workbooks(file).Close '³o¬O¤£¬OÃö³¬ Wihdows ¡A¦Ó¬O­nÃö³¬¬¡­¶Ã¯
        
        
        file = Dir
   
    Loop While file <> "" And first <> file