ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] excel®É¶¡Ä²µo¨Æ¥ó

¡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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD