- ©«¤l
- 94
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 145
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2011-9-22
- ³Ì«áµn¿ý
- 2021-10-18
|
¥»©«³Ì«á¥Ñ spermbank ©ó 2011-10-5 14:04 ½s¿è
¦^´_ 9# Hsieh
H¤j§A¦n:
§Ú±Nµ{¦¡½X§ï¦¨
With ThisWorkbook
For Each a In .Sheets(1).[A2:A1341] '¨CÓ¥N¸¹´`Àô
Application.ScreenUpdating = False '°±¤î¿Ã¹õ§ó·s
§ó·s¸ê®Æ a '°õ¦æ12Àɮקó·s
Workbooks("·ÀIµû¦ô.xls").Sheets(Array("IS", "ISQ", "BS", "BSQ", "BASIC", "YrPrice", "FR", "CFS", "ISQT")).Copy '½Æ»s¤u§@ªí
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & CStr(a) & ".xlsx" '¥t¦s·sÀÉ
Workbooks("Àç·~¦¬¤JÅÜ°Ê.xls").Sheets("Revenue").Copy Before:=Workbooks(CStr(a) & ".xlsx").Sheets(1) '½Æ»s¤u§@ªí
ÃöÀÉ
Next
Application.ScreenUpdating = False '°±¤î¿Ã¹õ§ó·s
End With
¤´µM¥X²{¤U¦C¿ù»~
°õ¦æ¶¥¬q¿ù»~ ¡¥1004¡¦ :
Class WorksheetªºCopy¤èªk¥¢±Ñ
¥t¥~:
H¤j»¡:ì§@ªÌ¥H«ö¶sÅX°Ê¼Ò²Õ¤ºµ{§Ç¡A¥i§Q¥Î½Æ»s¤u§@ªí¡A´N¯à¬Ý¨ì¤u§@ªí¼Ò²Õ¤ºµ{¦¡½X¡A§Ú¤£ª¾¹D¦p¦ó¬Ý¨ì¡A¤£¤F¸Ñ¤j¤j·N«ä¡C
·Q½Ð±Ð¤j¤j¬O¤£¬O¥i¥H¬Ý¨ì³¡¤Àªºµ{¦¡½X¤¤¬Ý¨ì¤U¸ü§ó·sªººô§}¤Î¬ÛÃöµ{¦¡½X¡B¥i¥H¶Kµ¹§Ú¡A©Î³\§Ú¥i¥H¥ÎG¤j±Ð§Úªº¤U¸ü¡B³t«×°ÝÃD¬ÛÃöµ{¦¡¡A¦pªk¬¶»sªº¼g¼g¬Ý¡C
Y¤£¦æ¦A½Ð¤j¤j¨ó§U¡C |
|