- ©«¤l
- 65
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 120
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-15
- ³Ì«áµn¿ý
- 2010-7-16
|
¡iÓ¤H¸gÅç¡j¦]¦³¥i¯à9:00¨Æ¥óIJµo®É¡A¦P®É¶}¤F¦hÓExcel files & Activeworkbook¨Ã¤£¬O¦¹±ý°õ¦æªºÀɮצӾÉP°õ¦æ¿ù»~°ÝÃD¡A¦]¦¹¦bPrivate Sub MyWork()
¶}©l³B¥[¤@§PÂ_¦¡¨Ã«ü©wActiveworkbook´N¥iÁ×§K°õ¦æ¿ù»~°ÝÃD¤F¡C
For Each wb In Workbooks
If InStr(wb.Name, "*****") > 0 Then '*****->ExcelÀɦW
wb.Activate
.
.
.
End If
Next |
|