- ©«¤l
- 27
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 38
- ÂI¦W
- 0
- §@·~¨t²Î
- window
- ³nÅ骩¥»
- window7
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-12-12
- ³Ì«áµn¿ý
- 2021-4-21
|
½Ð°Ý¦p¦ó±N¥H¤U°õ¦æÀɧ令¥i¿ï¨úÀx¦s¦b¤£¦PSHEET???
Sub °õ¦æ()
For Each a In Range([A1], Cells(Rows.Count, 1).End(xlUp))
With Workbooks.Open(a)..............³o¸Ìªº¤p¼ga,¦bvba²z·|¸õ¦¨¤j¼gA, ¦³Ãö«Y¶Ü
.Sheets(1).[A1:C6].Copy
ThisWorkbook.Sheets("Result").Cells(Rows.Count,1).End(xlUp).Offset(1)
.Close 0
End With
Next
End Sub |
|