軟體: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就遇到問題了,說不支援此屬性及方法。
煩請指導,感謝。