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

±q¤@­ÓWorkbook§Û¼g¸ê®Æ¨ì¥t¤@­ÓWorkbook

±q¤@­ÓWorkbook§Û¼g¸ê®Æ¨ì¥t¤@­ÓWorkbook

¦³¨â­ÓWorkbook,ºÙ¤§¬°A©MB
¸ê®Æ¦bB
²{¦b¹Á¸Õ¦bAªºVBA¶}啓B,¹BºâBªºmacro,¦W¬°test
§Y
  1. workbooks.open thisworkbook.path & "\B.xls"
  2. application.run worbooks("'B.xls'!test")
½Æ»s¥N½X
¨ì³o¸Ì¨S¦³°ÝÃD
¦¨¥\¶}啓«á
Bªºvba§ä¥X¬ÛÃö¦ì¸m¤Î§Û¼g,¥Hrange A1¬°¨Ò
  1. sub test()
  2. with sheet1
  3. .range(.cells(1,1),.cells(1,1).end(xldown).end(xltoright).address).copy workbooks("A.xls").sheet1.range("A1")
  4. end sub
½Æ»s¥N½X
¦b³o¸Ì¥¦¥X²{¤Ferror 438 ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk
¤£ª¾¨º¸Ì¿ù¤F
ÁÂÁ¦U¦ì¸Ñµª
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD