当前文件夹名称为:A,在名称为A的文件夹内查找是否存在文件夹B?如果不存在,则在名称为1的文件夹内创建一个名称为B的文件夹。请使用相对路径,Excel VBA 谢谢。
第1个回答 2013-09-23
if dir(a & "\" & b,vbDirectory)="" then
MkDir a & "\" & b
end if追问
MkDir a & "\" & b
end if追问
使用相对路径,创建不成功。
追答只能是绝对路径,创建时一定是个确定的路径。
上面程序里的路径a可以通过选定来获取
那说明你还是不太熟悉。
追答如果你一定要所谓相对路径的话,可以根据这个excel来定义相对位置
if dir(thisworkbook.path & "\" & b,vbDirectory)="" then
MkDir thisworkbook.path & "\" & b
end if