標題: 請教With Application.FileSearch無法使用 [打印本頁]

---

作者: 52ee24    時間: 2014-11-26 09:30     標題: 請教With Application.FileSearch無法使用

Dear 大大,
    之前用office 97時我都使用With Application.FileSearch找檔案
    今天公司用不同的office版本才發現With Application.FileSearch己經不能再用了,
     請問各位前大大,以下程式碼應該怎麼修改才好?

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)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)