vba 查找vba 打开文件夹夹：桌面和D:\DOCUMENTS\ 包含有"副本"字符的excel格式类型vba 打开文件夹

来源：蜘蛛抓取(WebSpider) 时间：2018-06-15 23:17 标签： vba在桌面建立文件夹
您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
如何一次就能隐藏除指定工作表外的所有工作表？ - Excel VBA程序开发.doc 13页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
你可能关注的文档：
··········
··········
如何一次就能隐藏除指定工作表外的所有工作表？ - Excel VBA程序开发 - Excel Home论坛Excel教程下载和软件下载中心，微软技术社区联盟成员，全球领先的Excel门户，学习Office技术的最佳社区
zc9532 退出
Excel Home论坛 & Excel VBA程序开发 & 如何一次就能隐藏除指定工作表外的所有工作表？
免费下载45集08版新精粹视频教程 国内第一本网友管理评论图书Excel服务器2008发布，学习和下载
EH纪念版T恤正式发售，参赛大奖揭晓
免费下载Excel行业应用视频教程 快报：2008第6期优秀会员名单揭晓！ 新人必读：ExcelHome最佳学习方法
入门必看《循序渐进学Excel》视频
精粹：成为Excel高手的捷径 有奖征集Excel数据透视表行业应用案例 EH技术社区资源在微软中国官网落地
大家来报料：最牛的Excel用法！
‹‹ 上一主题 | 下一主题 ››
收藏 订阅 推荐 打印
[求助] 如何一次就能隐藏除指定工作表外的所有工作表？
hits : 184
取消高亮 gmts
总积分排名
1楼 大 中 小 发表于
只看该作者
★ Excel服务器学习和下载园地 ★
如何一次就能隐藏除指定工作表外的所有工作表？
如何一次就能隐藏除指定工作表外的所有工作表？
如何一次就能隐藏除指定工作表外的所有工作表？.rar (4.68 KB)
23:21, 下载次数: 8
教育工作者
查看详细资料引用 使用道具 报告 回复 TOP
总积分排名
2楼 大 中 小 发表于
只看该作者
★ Excel行业应用系列视频课程精彩放送中 ★
[分享]★链接目录★
http://club.excelhome.net/dispbb ...
replyID=&skin=0★２５９个常用宏★ ★漫画连环画★
查看详细资料引用 使用道具 报告 回复 TOP
正在加载中，请稍后...利用Dir函数遍历某文件夹下的所有文件 | VBA实例教程
我的图书馆
利用Dir函数遍历某文件夹下的所有文件 | VBA实例教程
除非注明，文章均为原创，转载请保留链接: ，VBA交流群。
今天介绍利用Excel VBA的Dir方法来遍历某文件夹下的所有excel文件。还是直接来看例子，假设在D盘有一个叫工作日志的文件夹，里面放着每日的工作记录，都是excel 2007表格，现在由于工作需要要从这里表格中提取数据，那就需要依次对每个Excel表格进行访问。只要知道了工作表的名称，我们就可以用workbook的或者从工作簿中获得数据，而Dir函数正是起到这个作用。Dir函数会按固定的顺序依次访问文件夹下的文件，并返回相应文件的名称，当全部都访问完时就会返回空值，因此返回值是不是空值可以做为判断Dir函数是否遍历完整个文件夹的依据。
看下面的代码
Sub test()Dim myfilemyfile = Dir("D:/工作日志/*.xlsx")&& '返回对应路径下第一个符合*.xlsx的文件名称Do While myfile && ""&&&&&&&&& '当返回的文件名为空时停止循环Debug.Print myfile&&&&&&&&& '将返回的结果显示在立即窗口myfile = Dir&&&&&&&&&&&&&&&& '返回对应路径下一个符合条件的文件名称LoopEnd Sub
在Dir函数的路径当中是可以使用通配符的，在这里*代表任意个字符，那么*.xlsx就代表后缀名为xlsx的Excel 2007文件，对应的你的Excel如果是2003版的，那就应该是*.xls，如果你要遍历的文件中两个版本的都包括，那可以表示为*.xls*。Dir函数一次只能返回一个值 ，所以要遍历所有的文件就要不断的调用Dir函数，但是第二次调用的时候就不必写参数了， myfile = Dir 就会默认的去寻找下一个符合条件的文件。Debug.Print myfile是将变量值显示在立即窗口的意思，这句就可以换成你自己的操作代码，比如在之前讲到的“”就是对工作簿进行了Open操作。
您可能也喜欢：
[转]&[转]&
喜欢该文的人也喜欢当前位置：
&如何在excel中实现：成批量查找字符串中指定位置的字符，并标为红色
如何在excel中实现：成批量查找字符串中指定位置的字符，并标为红色
作者 zhangyj1257
各位大侠，
想请教一下大家，如何在excel中实现：成批量查找字符串中指定位置的字符，并将查找到的字符标为红色。
如图所示：列1中有上万行待查找的字符串，列2中是想要在列1字符串中中查找的位置。想要实现的目的：在列1中查找列2指定位置的字符，并用红色标出（图中所示红色为我自己手动标出的）。
不知道大家有没有什么好的办法，恳请各位大侠帮我出出主意，非常非常非常感谢大家！！！
example.PNG
解压运行NPOI_Test.exe,然后再打开Test.xls看效果
楼上的很好
我录制了个vba ，修改了下，也可以。
你把下面的vba 代码贴进去也可以，你也可以根据情况自己修改。
'===============================
Sub Macro1()
' Macro1 Macro
For i = 1 To Range(&a65536&quot.End(xlUp).Row
'' 字符串放在&&A&&列，开始变红的位置数据 放在 B&&列。
& & Range(&A& & i).Select
& & ActiveCell.FormulaR1C1 = Range(&A& & i).Value
& & With ActiveCell.Characters(Start:=Range(&B& & i).Value, Length:=1).Font
& && &&&.Name = &Arial&
& && &&&.FontStyle = &常规&
& && &&&.Size = 10
& && &&&.Strikethrough = False
& && &&&.Superscript = False
& && &&&.Subscript = False
& && &&&.OutlineFont = False
& && &&&.Shadow = False
& && &&&.Underline = xlUnderlineStyleNone
& && &&&.Color = -
& && &&&.TintAndShade = 0
& && &&&.ThemeFont = xlThemeFontNone
& & End With
'==================，
笑脸处 为 英文的 右括号。
24小时热帖
下载小木虫APP
与700万科研达人随时交流VBA 判断A列是否含有一个特定字符_百度知道
VBA 判断A列是否含有一个特定字符
RT如何判断A列或是range(A3:A202)中是否包含一个特定字符
我有更好的答案
Sub&SSS()&&&&If&Range(&A3:A202&).Find(&RT&)&Is&Nothing&Then&&&&&&&&MsgBox&&不含RT&&&&&Else&&&&&&&&MsgBox&&含RT&&&&&End&IfEnd&Sub
如果把“RT”改为string变量A怎么改
Sub&SSS()RT=变量&&&&If&Range(&A3:A202&).Find(RT)&Is&Nothing&Then&&&&&&&&MsgBox&&不含RT&&&&&Else&&&&&&&&MsgBox&&含RT&&&&&End&IfEnd&Sub
采纳率：57%
来自团队：
Sub&aa()&&&&Dim&i&As&Integer&&&&'判定标志&k，若找到特定字符，k=false，推出循环&&&&Dim&k&As&Boolean&&&&k&=&True&&&&For&i&=&3&To&202&&&&&&&&'如果包含特定字符InStr(Range(&A&&&&i),&&特定字符&)&会大于0&&&&&&&&If&InStr(Range(&A&&&&i),&&特定字符&)&&&0&Then&&&&&&&&&&&&k&=&False&&&&&&&&End&If&&&&&&&&Exit&For&&&&NextEnd&Sub&特定字符你自己该成你的
如果特定字符为一个单元格的内容或是一个自己声明的变量a的值该怎么填
1.单元格的内容，假设为B1，那么，把If&InStr(Range(&A&&&&i),&&特定字符&)&&&0&Then改成If&InStr(Range(&A&&&&i),&Range(&B1&))&&&0&Then2.变量a,那么，把If InStr(Range(&A& & i), &特定字符&) & 0 Then改成If InStr(Range(&A& & i),a) & 0 Then即可
Sub&AAA()&&&&If&Range(&A3:A202&).Find(&特殊字符&,&lookat:=xlPart)&Is&Nothing&Then&&&&&&&&MsgBox&&没有找到该字符&,&vbCritical&+&vbOKOnly,&&错误&&&&&Else&&&&&&&&MsgBox&&在单元格&&&&&_&&&&&&&&Range(&A3:A202&).Find(&特殊字符&,&lookat:=xlWhole).Address(0,&0)&&&_&&&&&&&&&&中找到该字符&,&vbInformation&+&vbOKOnly,&&OK&&&&&End&IfEnd&Sub
用for each来循环，并用like来搜索
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
vba的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 vba在桌面建立文件夹 的文章

 

随机推荐