½Ð°Ý¶}±ÒÂÂÀɦp¦ó·f°t°j°é¨Ï¥Î
- ©«¤l
- 87
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 122
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-7-9
- ³Ì«áµn¿ý
- 2018-1-16
|
¥»©«³Ì«á¥Ñ play9091 ©ó 2011-7-21 19:17 ½s¿è
¤U±¦³¤@¶K°ÝÃD¬O®t¤£¦hªº¡A¥i¥H¸Õ¸Õ¬Ý¡K¡K©Î³\¬O§Aªº»Ý¨D¡C
½Ð°Ý¶}±ÒÂÂÀɦp¦ó·f°t°j°é¨Ï¥Î
¦Ó§ÚÓ¤H³o´X¤Ñ¼g¤F¤@Ó¶W¯Å¥¨¤jªºVBA¡AI7+SSD¶]¤]n¤@¤À¥b¤~¶]§¹¡C¸Ì±¤]n¼g¨ì¥Î°j°é¶}±ÒÂÂÀɳoÓ³¡¤À§âÀÉ®×¥á¤W¨Ó¤j®a°Ñ¦Ò¤@¤U¡K¡K
§Úªº¤èªk¤ñ¸û²Â¡I§Ú¥ý§â¸ôÍߦb¤u§@ªí¸Ì±¿é¤J¦n¡A¥Î°j°é¥h¨ú¥X¸ôÍß¡A¦A¶}±ÒÀɮסK¡K²³æ½d¨Ò¦p¤U¡K- Sub name_test()
- For I = 4 To 10
- '¥s¥XKPI³ø§i
- KPI = Workbooks("¸ôÍߪ©").Sheets("¤u§@ªí3").Range("D" & I).Value
- Workbooks.Open (KPI)
- Set KPI = Nothing
- KPI = ActiveWorkbook.name
- Workbooks(KPI).Close SaveChanges:=True
- Set KPI = Nothing
½Æ»s¥N½X P.S.§ÚÓ¤H¤ñ¸û·Qª¾¹Dªº¬O¦p¦ó¥ÎVBA¨ú¥XÀɮ׸ôÍß(¤£¶}±ÒÀɮתº±¡ªp¤U¡K¡K)¡A¦h°Ýªº¡K¡K
Åå¬ðµMµo²{°Ýªº¤H¬O¦P¤@Ó¡I¡I¡I |
-
-
¸ôÍߪ©.rar
(18.48 KB)
|
ªì¾ÇVBA¥E¨ìtwbts
|
|
|
|
|