VBA怎么新建文件夹
2个回答
展开全部
代码实现重新构建所有链接,如果要单独刷新某文件夹的文件链接，可仿效代码（可不用单独刷新，如有增删，重新全部构建）。Subtest()Dimfso,fp,ar,ar1,subf,f,n%,m%,i%,j%,cAsRangeSheets("6月").ActivateActiveSheet.UsedRange.Offset(2)=""Setfso=CreateObject("scripting.filesystemobject")Setfp=fso.getfolder(ThisWorkbook.Path).subfoldersReDimar(1Tofp.Count)ForEachsubfInfpn=n+1Ifsubf.Files.Count0ThenReDimar1(1Tosubf.Files.Count)m=0ForEachfInsubf.Filesm=m+1ar1(m)=f&"|"&fso.getbasename(subf)&"|"&fso.getbasename(f)Nextar(n)=ar1EndIfNextFori=1ToUBound(ar)IfIsArray(ar(i))ThenSetc=Rows(1).Find(Split(ar(i)(1),"|")(1))IfNotcIsNothingThenForj=1ToUBound(ar(i))Withc.End(xlDown).Offset(1).Value=Split(ar(i)(j),"|")(2)ActiveSheet.Hyperlinks.AddAnchor:=.Offset(1),Address:=Split(ar(i)(j),"|")(0)EndWithNextEndIfEndIfNextSetfso=NothingEndSub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
给你一个最简单的方法
Sub program
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在!,系统将创建一个名为" & Format(Date, "YYYY-M-D") & "的文件夹"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Sub
日期的格式可以自己该
Sub program
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在!,系统将创建一个名为" & Format(Date, "YYYY-M-D") & "的文件夹"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Sub
日期的格式可以自己该
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
