[算表] VBA 在特定路徑下建立活頁簿與命名

[yimean (溫柔殺手)]

軟體:Excel

版本:2013

各位板上的大大中午好，請問應該如何在特定路徑下建立一個活頁簿並為其命名呢？

我想要達成的目的是，如果這個路徑下沒有這個檔案，那我就新建一個。

Dim fs As FileSearch
Dim NDBW As Object
Set fs = Application.FileSearch
With fs
    .NewSearch
    .LookIn = "DBpath" '要在此路徑搜尋檔案
    .Filename = Filename '檔名特徵
    If .Execute > 0 Then
    Else
    MsgBox "在 " & .LookIn & " 裡找不到 " & .Filename & vbNewLine _
    & "將為您建立"
    End If
End With
Set fs = Nothing
Set NDBW = Workbooks.Add
With NDBW
    .Name = Filename
    .Password = Password_data
    ActiveSheet.Range("A1").Value = 0
End With

但是第一個FileSearch就遇到問題了，說不支援此屬性及方法。
煩請指導，感謝。

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.33.116.8
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1541663185.A.8A9.html
→ soyoso: 2007起已移除，不支援
→ soyoso: 可改以dir()，當回傳為""空字串時表示沒有找到檔案
→ yimean: 原來如此，感謝大大提點