±q¤@ÓWorkbook§Û¼g¸ê®Æ¨ì¥t¤@ÓWorkbook
- ©«¤l
- 135
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 165
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-12-9
- ³Ì«áµn¿ý
- 2012-8-27
|
±q¤@ÓWorkbook§Û¼g¸ê®Æ¨ì¥t¤@ÓWorkbook
¦³¨âÓWorkbook,ºÙ¤§¬°A©MB
¸ê®Æ¦bB
²{¦b¹Á¸Õ¦bAªºVBA¶}啓B,¹BºâBªºmacro,¦W¬°test
§Y- workbooks.open thisworkbook.path & "\B.xls"
- application.run worbooks("'B.xls'!test")
½Æ»s¥N½X ¨ì³o¸Ì¨S¦³°ÝÃD
¦¨¥\¶}啓«á
Bªºvba§ä¥X¬ÛÃö¦ì¸m¤Î§Û¼g,¥Hrange A1¬°¨Ò- sub test()
- with sheet1
- .range(.cells(1,1),.cells(1,1).end(xldown).end(xltoright).address).copy workbooks("A.xls").sheet1.range("A1")
- end sub
½Æ»s¥N½X ¦b³o¸Ì¥¦¥X²{¤Ferror 438 ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk
¤£ª¾¨º¸Ì¿ù¤F
ÁÂÁ¦U¦ì¸Ñµª |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 107
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 127
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-29
- ³Ì«áµn¿ý
- 2023-11-17
|
¦^´_ 1# FAlonso
¥ý°Ý¤@ÂIÂI¸ê®Æ,
¬°¦ón°õ¦æ B ªº vba ¤~§@§Û¼gªº°Ê§@,
¤£¥Ñ A ¤ºªº vba ¥þµ{°õ¦æ? |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¦ó¤£°®¯Ü¥Îusedrange- Sub test()
- With Sheets(1)
- .UsedRange.Copy Workbooks("A.xls").Sheets(1).Range("A1")
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|