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

½Ð±ÐWith Application.FileSearchµLªk¨Ï¥Î

½Ð±ÐWith Application.FileSearchµLªk¨Ï¥Î

Dear ¤j¤j,
    ¤§«e¥Îoffice 97®É§Ú³£¨Ï¥ÎWith Application.FileSearch§äÀÉ®×
    ¤µ¤Ñ¤½¥q¥Î¤£¦Pªºofficeª©¥»¤~µo²{With Application.FileSearch¤v¸g¤£¯à¦A¥Î¤F,
     ½Ð°Ý¦U¦ì«e¤j¤j,¥H¤Uµ{¦¡½XÀ³¸Ó«ç»ò­×§ï¤~¦n?

Sub save()

Application.DisplayAlerts = False

With Application.FileSearch

D = ThisWorkbook.Sheets("Yield-ByDate").Range("D1").Value

      
MyData1 = "http://rptap/report/Daily/DailyWaferYield/DailyWaferYield-" & Format(D - 1, "yyyy-mm-dd") & ".xls"
        Set f1 = Workbooks.Open(MyData1, UpdateLinks:=0)

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD