ªð¦^¦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 : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD