- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2010-7-27 21:03 ½s¿è
¦^´_ 9# jackdream
èè´ú¸Õµo²{¯uªº¤£¯à¥Î,
¦]¬°·|¥X²{ "°}¦C¯Á¤Þ¶W¥X½d³ò" ªº¿ù»~°T®§.
With Workbooks(1)
MyName = .Sheets(1).Name
End With
¤W±³o¼Ë¥i¥H.
With Workbooks("spss.xls")
MyName = .Sheets(1).Name
End With
¤W±³o¼Ë´N¤£±µ¨ü
¥i¯à»Ýn¥Î¨ä¥L¤è¦¡¨Ó¤Þ¥Î,
³o¤]¬O§Úı±o Excel VBA ³Ì¤£¤H©Êªº¦a¤è,
«Ü¦h¦a¤è©ú©úª½Ä±ªºÀ³¸Ó³o¼Ë´N¹ï°¾°¾´N¬O¤£¯à¥Î. > <
==========================================================================================================
¦^´_ 6# basarasy
¦^´_ kimbal
¦]¬°§Ú·Qn sheet1.name ¥Î³oÓsheet§ï¦W¤F³£¥i¥Hrun¨ì
eg. sheet1(sheet1)>sheet1(¤H¦W ...
basarasy µoªí©ó 2010-7-27 19:53 
¦^´_ 10# basarasy
¦^´_ 9# jackdream
Workbooks("book2.xls").Activate
MyName = Sheets(1).Name ³o¥y¬O¥ªÃä¨ì¥k²Ä1Ósheet
¦pªG¶Ã¤F sheet3 sheet2 sheet1 ´N¤£¯à«ü©wsheet1¤F.
§A¤W±³o¨âÓ±Ôz¦ü¥G¦³ÅÞ¿è¤WªººÃ¸q,
¤@¤è±§A§Æ±æ Sheet §ï¦W¤FVBAµ{¦¡¤´µM¥i¥H°Ñ¦Ò¨ìì¨Ó¨ºÓSheet(§Ç¦C¦ì¸m¤£ÅÜ)
¥t¤@¤è±§A¤S§Æ±æSheet §ï¦W¤FVBA¤W³QÂù¤Þ¸¹¬A©·ªº¦WºÙ¤å¦r¯à¸òµÛ§ï¦n°Ñ¦Ò¨ì¬Û¦P¦WºÙªºSheet.(§Ç¦C¦ì¸m¤£¤@¼Ë¤F)
³o¼Ë¦n¹³¤£¤Ó¥i¯à°µ¨ì. |
|