ªð¦^¦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ªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD