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

¦p¦ó±N¿ï¨úªºÄæ¦ì¦Ü¤£¦PÀɮתº³Ì«á¤@¦C

¦p¦ó±N¿ï¨úªºÄæ¦ì¦Ü¤£¦PÀɮתº³Ì«á¤@¦C

½Ð°Ý¦ì¤j¤j...±NAAA.XLSÀɸÌShee1¿ï¨ú½Æ»sA1:E1
¦Ü¨C¦¸½Æ»s¨ìBBB.XLSÀɸÌShee1©T©wAÄ檺³Ì«á¤@¦C..

·PÁÂ

¦^´_ 1# xlarge16803


    ¥¼¶}±Òbbb.xlsª½±µcopyªº¼gªk
  1. Sub test()
  2. Workbooks("aaa.xls").Sheets("sheet1").Range("a1:e1").Copy
  3. Workbooks.Open ("d:\bbb.xls")
  4. Workbooks("bbb.xls").Sheets("sheet1").Range("a65536").End(3).Offset(1, 0).Select
  5. ActiveSheet.Paste
  6. End Sub
½Æ»s¥N½X
¦bbbb¦³¶}±Òªº±¡§Î¤Uªº¼gªk
  1. Sub test2()
  2. Workbooks("aaa.xls").Sheets("sheet1").Range("a1:e1").Copy
  3. Workbooks("bbb.xls").Activate
  4. Workbooks("bbb.xls").Sheets("sheet1").Range("a65536").End(3).Offset(1, 0).Select
  5. ActiveSheet.Paste
  6. End Sub
½Æ»s¥N½X
¸ô®|½Ð¦Û¦æ­×§ï

TOP

·PÁ¤j¤j ±Ð¾É...¤v§¹¦¨¤F
¤S¾Ç·|¤@ºØ·sªº»yªk

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD