VBA，搜索某指定路径下更改我的文档路径。如果路径不存在，则如何创建对应的路径文件夹？

来源：蜘蛛抓取(WebSpider) 时间：2017-10-31 06:04 标签： win7修改我的文档路径
查看: 665|回复: 4
同一文件夹下判断不打开的指定文件是否存在
阅读权限50
在线时间 小时
如何在同一文件夹下判断不打开的AAA文件是否存在,AAA文件名是活动单元格的&A1&的变量
问题是下面代码中的变量错误,请老师指教,谢谢
(18.98 KB, 下载次数: 6)
11:21 上传
点击文件名下载附件
Sub 判断AAA文件是否存在()
aa = Sheet1(Range('a1&))
Set FS = Application.FileSearch&&'设FS为文件名称
& &With FS
& && & .LookIn = ThisWorkbook.Path '确定路径
& && & .Filename = aa & &.XLS&& &'查找的文件名
& && & If .Execute() & 0 Then& &'判断查找的结果
& && && &&&MsgBox aa & &文件存在&
& && & Else
& && && &&&MsgBox aa & &文件不存在&
& && & End If
& &End With
阅读权限200
在线时间 小时
Sub 判断AAA文件是否存在()
& & Dim aa$, bb$
& & aa = Sheet1.Range(&a1&).Value
& & bb = IIf(Dir(ThisWorkbook.Path & &\& & aa & &.xls*&) && &&, &文件存在&, &文件不存在&)
& & MsgBox aa & bb
阅读权限50
在线时间 小时
山菊花 发表于
Sub 判断AAA文件是否存在()
& & Dim aa$, bb$
& & aa = Sheet1.Range(&a1&).Value
谢谢总版主,代码简洁易懂,但还有一点不懂,就是&.xls*&为什么要加上一个*号,请版主指教,谢谢!
阅读权限200
在线时间 小时
& & & & & & & &
2007以上版本的Excel文件，扩展名多了一个字符：xlsx、xlsm等。后面添加一个*号是这了查找高版本的Excel文件，如果不需要，可以删去。
阅读权限50
在线时间 小时
山菊花 发表于
2007以上版本的Excel文件，扩展名多了一个字符：xlsx、xlsm等。后面添加一个*号是这了查找高版本的Excel文件 ...
谢谢大师,明白了,我用的是2003因此不懂,再次谢谢您,问题圆满解决.
我替换了消息框,如果名称不一致直接可以在消息框内修改
(23.24 KB, 下载次数: 18)
14:40 上传
点击文件名下载附件
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师VBA 在图片文件夹中，查找文件名包含A列文本的图片，并复制到指定文件夹_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
VBA 在图片文件夹中，查找文件名包含A列文本的图片，并复制到指定文件夹
先交待背景
1. &图片文件夹&（源文件夹）是： D:\Dropbox\产品\jpg\，里面有很多子文件夹，分别是不同大类的产品的照片
2. &目标文件夹&是： C:\Users\Administrator\Desktop\导出的
3. &excel文件&，shee1中，A列是产品型号（比如A001），现在根据A列型号，从...
代码贴上来就没有行了，听说得上传才行，我LV5了没有权限吗？只好截图了
我有更好的答案
&&&&&&&&&&*.jpg&&&As&这个是图片所在的父文件夹&&quot.ScreenUpdating&&&Next&&&&&&&&&nbsp.Text&&&&/s/y&'FilePath中使用了通配符，假如&产品是：A001;&&&quot，同时也会在目标文件夹中建立相同的子文件夹&&&&FilPath&As&String&'&&&&&=&&&&D:\Dropbox\产品\jpg\&&&&To&&nbsp:\Users\Administrator\Desktop\导出的\*.jpg&.Cells(1,&1);&String&&&nbsp.Select&cmd&/c&&&xcopy&nbsp，则可以复制&A001&红色&12cm”,&A001&红色&15cm”,&A001&黑色&12cm”,&A001&白色&15cm”,&&&&&&&&&&&&Shell&A&&For&y&&With&&Dim&s&&&先清空目标文件夹&&&&=&False&&&As&String&&&Dim&newfilepath&&&&Integer&'&&FilPath&&&&&&&=&2&&&&cmd&/c&&&del&y是行&&&&Dim&nbsp，复制满足条件的文件包含子文件夹;'用XCOPY命令;&.Cells(y,&1);&Dim&Filename&As&String&&&&Shell&&&&FalseEnd&C;10&&&&&'选择目标sheet&As&nbspSub&导出图片()&&&&'&'图片要复制到这里&&&&Dim&&&&&&&&C:\Users\Administrator\Desktop\导出的\&&&'从第2行到10行&&&&&&&&&&&&FilPath&&&&Sheet1&'用DOS命令删除输出文件夹下（包含子文件夹，但不删除子文件夹）的所有jpg文件&&&&&Dim&y&&&End&With&&&&Application.ScreenUpdating&=&&rng&As&Range&&&/s/q&nbsp
　　非常感谢你，不过现在把所有的图片都导出来了，　　我研究了一下，是因为把“空”也作为对象了，　　所以在14行上面加上判断
If Cells(y, 1) && && Then 即可 （END if就不赘述了） 　　
采纳率：60%
为您推荐：
其他类似问题
vba的相关知识
等待您来回答我想根据单元格内的数值关联的数值创建文件夹，并把指定文件夹中以该数值开头的文件都复制进来，应该怎样做？
例：A2格的数据是 ,B2格是张三，那么就在指定位置（如F:\数据）下创建张三这个文件夹，再把D:\照片下所有以 开头的照片都复制到张三这个文件夹中。A3是 ,B3是李
我想根据单元格内的数值关联的数值创建文件夹，并把指定文件夹中以该数值开头的文件都复制进来，应该怎样做？
例：A2格的数据是 ,B2格是张三，那么就在指定位置（如F:\数据）下创建张三这个文件夹，再把D:\照片下所有以 开头的照片都复制到张三这个文件夹中。A3是 ,B3是李四，那么就建立李四这个文件夹，把 开头的文件都弄到李四这个文件夹中。
我想研究一下VBA，所以有问题时先想到用VBA解决，给各位添麻烦了，最好在代码中做下注释，以便学习，谢谢！
Set myfso = CreateObject("Scripting.FileSystemObject")
'建立这个文件处理对象
去网上找找这个文件处理对象的用法,就什么都能用了.
我的附件只是一段代码,
文件夹路径,你自己修改.
有关FileSearch对象更多的信息,请参考VBA自身的帮助,很详细的.
以下代码供参考.
Sub aRef()
Dim i As Long
Dim fs A...
Sub 按钮1_单击()
MsgBox Sheet1.UsedRange.Cells(Sheet1.UsedRange.Count).Address
VBA（Visual Basic for Applications，Visual Basic应用程序设计语言）是Visual Basic和许多可编程软件应用程序...
1.打开文件夹，在图标处于排序状态下时，点击顶部的“文件夹名称”。
2.这时名称处变成了输入框，输入你要起的名字。
代码在附件中，考虑到用循环比较的方法当数据很多时效率比较低，故使用了字典，字典采用的是前期绑定法，所以在引用里要把Mcrosoft Scripting Runt...
答: 溪谷软件的H5游戏打包工具有什么特点，优势
答: 好在有许多成熟的安全和网络技术，例如虚拟私有网络（VPN）和防火墙等，能够极大地提高Web服务应用的安全和性能，让开发者拥有选择安全技术的自由，而不是非得使用尚...
答: 某些ADSL调制解调器使用USB接口与电脑相连，需要在电脑上安装指定的软件以添加虚拟网卡来进行通信
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415

我要回帖

更多关于 win7修改我的文档路径 的文章

 

随机推荐