作者yimean (温柔杀手)
看板Office
标题[算表] VBA 在特定路径下建立活页簿与命名
时间Thu Nov 8 15:46:22 2018
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1541663185.A.8A9.html
1F：→ soyoso: 2007起已移除，不支援 11/08 16:00
2F：→ soyoso: 可改以dir()，当回传为""空字串时表示没有找到档案 11/08 16:02
3F：→ yimean: 原来如此，感谢大大提点 11/08 16:06