- ©«¤l
- 15
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- taipai
- µù¥U®É¶¡
- 2012-4-1
- ³Ì«áµn¿ý
- 2017-4-22
|
Dear ¤j¤j
§Q¥Î¥Ø«eªºEXCELÀÉ®×(¨Ò¦p:¬¡¶Ã¯1)¨Ó¶}°_¥t¤@ÓEXCELÀÉ®×(BB)
Dim A As Workbook, B As Worksheet
Set A = Workbooks.Open(Filename:=ThisWorkbook.Path & "\bb.xlsm")
Set B = A.Sheets("¤u§@ªí1")
Range("A1") = B.Range("A1")
end sub
¦pªG¹J¨ìBBÀɮ׳Q§O¤H¶}±Ò¤¤,´N·|¥X²{°õ¦æ¿ù»~,¦Ó¦Û°Ê¶}±ÒBBÀÉ®×,
µLªk¦AÄ~Äò°õ¦æ¤U±µ{¦¡,
¬O§_¦³¿ìªk¥i¥H¦b¤£ºÞÀɮ׬O§_¦³³Q¶}±Ò¤¤¤´¥i¥HÄ~Äò°õ¦æ¸Óµ{¦¡.
¨ºn¦p¦óקï??
ÁÂÁÂ |
|