±q¨ä¥LexcelÀɮװŶK¦Ü«ü©w°Ï°ì
- ©«¤l
- 44
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 8
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-8-15
- ³Ì«áµn¿ý
- 2017-4-18
|
±q¨ä¥LexcelÀɮװŶK¦Ü«ü©w°Ï°ì
¦¦w¡A¦U¦ì¤j¤j¥ý¶iÌ¡C¤pªº·Q½Ð°Ý ¦p¦ó±qB.xls ªº ¯S©w°Ï°ì °Å¶K ¦Ü A.Xls ªº¯S©w°Ï°ì ¡A¤pªº¼g¤F¤@¨Çµ{¦¡½X¡A¦ý¬O...¥¢±Ñ¤F
¥H¤U¬OÓ¤H¼gªºµ{¦¡½X
Sub ±q¨ä¥LexcekÀɰŶK()
Dim A As Workbook, B As Workbook
Set A = Workbooks("a.xlsx")
Set B = Workbooks("b.xlsx")
B.Worksheets("¤u§@ªí1").Range("a1:c3").Copy Destination:=A.Worksheets("¤u§@ªí1").Range("a1:c3")
End Sub |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 8
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-8-15
- ³Ì«áµn¿ý
- 2017-4-18
|
** µ{¦¡¦WºÙ ,Åܼƪº«Å§i ¬Ò¶·ÁקK¨Ï¥Î»PVBA¤WªºÃöÁä¦r(ª«¥ó,¨ç¼Æ,ÄÝ©Ê,¤èªk)¬Û¦Pªº¤å¦r **
¬Ý¨ì·s¤â±Ð¾Ç¡A±NÅܼÆA.B §ï¬°ÅܼÆX.Y «á¡A ¤Î¥t¦s·sÀɬ°±Ò¥Î¥¨¶°ªº¬¡¶Ã¯«á¡C
¦A¦¸°õ¦æµ{¦¡½X¡A¨ÌµMÅã¥Ü§ä¤£¨ì¤èªk©Î¦¨û... |
|
|
|
|
|
|
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
     
|
¥»©«³Ì«á¥Ñ ML089 ©ó 2016-2-29 13:57 ½s¿è
¦^´_ 1# ¾Ç¨ì¦Ñ¦º
§Aªºµ{¦¡¥i¥H°õ¦æ
¥i¥H¸Õ¸Õ³o¼Ë
Sub ±q¨ä¥LexcekÀɰŶK()
Dim A As Workbook, B As Workbook
Set A = Workbooks("a.xlsx")
Set B = Workbooks("b.xlsx")
A.Worksheets("¤u§@ªí1").Range("a1:c3") = B.Worksheets("¤u§@ªí1").Range("a1:c3").Value
End Sub |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|