计算机代码清单目录,搜索文件夹并生成目录清单
贴上代码
Private Sub CommandButton1_Click()
's=search
On Error Resume Next
nums = 0
hlish = 3
Dim fsname As String
ActiveSheet.Range("E3:I200").Clear
Select Case Range("C4").Value '判断项目值OK====================================================
Case Is = "A"
hs2 = "h" '确定是项目列位置
Case Is = "B"
hs2 = "i"
Case Is = "C"
hs2 = "j"
Case Is = "D"
hs2 = "k"
Case Is = "E"
hs2 = "l"
Case Is = "F"
hs2 = "m"
Case Is = "G"
hs2 = "n"
Case Is = "H"
hs2 = "o"
Case Is = "I"
hs2 = "p"
Case Is = "J"
hs2 = "q"
End Select
Select Case Range("D4").Value '判断属性值OK=====================================================
Case Is = "数量"
hs = 6 '确定是项目数量
Case Is = "完成"
hs = 8 '确定是项目完成
Case Is = ""
MsgBox "请选择搜索内容:[数量]表示总量,[完成]表示已解决量!" '确定是空数据
End Select
'======================以上是本地数据调用项目和属性部分,文件夹判断在下面=====================================================
wbs = Dir(ThisWorkbook.Path & "\" & Range("B4").Value & "\" & "*.xls") '确定搜索分类目录==========================
Do While wbs > " "
If wbs <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & Range("B4").Value & "\" & wbs
With Workbooks(2).Worksheets(1)
'建立目录,模块LIST开始,判断分离统计=====================================================
Select Case hs '判断属性值OK=====================================================
Case Is = 6
If .Range(hs2 & hs) > 0 Or Range(E4) = True Then
fsname = Workbooks(2).Name
End If
Case Is = 8
If .Range(hs2 & hs) > 0 Then
fsname = Workbooks(2).Name
End If
End Select
End With
Workbooks(2).Close
End If
wbs = Dir
nums = nums + 1 '对项目LIST编号进行累加1++
'===================================================合并单元格===========
Range("G" & hlish, "H" & hlish).MergeCells = True
'===================================================设置边框==========
Range("F" & hlish, "G" & hlish).Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'============================================设置编号
Range("F" & hlish).Select
Range("F" & hlish).Value = nums
'===================================================生成文件目录?????????
Range("G" & hlish).Select
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _
Address:=ThisWorkbook.Path & "\" & Range("B4").Value & "\" & fsname, ScreenTip:="察看文件", TextToDisplay:=fsname
hlish = hlish + 1
'========================================================
Loop
End Sub
计算机代码清单目录,搜索文件夹并生成目录清单相关推荐
- python显示文件夹图片_python遍列目录搜索文件夹及子文件夹图片文件
自本人从事汽车配件销售工作以为,收集了很多零配件图片,超级多,每次在Window视窗搜索指定名称的图片时很耗时,超级超级的慢,实在受不了了,决定用Sqlite3将所有图片的地址存储,然后用做一个页面来 ...
- python备份目录下文件夹_Python备份目录及目录下的全部内容的实现方法
本来是想写一个东西可以直接调用TortoiseSVN保存当前代码到一个分枝下的. 可惜调用SVN的部分还在研究.就先写了目录拷贝的部分. 如果有喜欢研究Python的童鞋愿意提供想法或者建议的话, 这 ...
- 计算机无法检索文件夹,win7系统不能搜索文件夹怎么回事
今天教程和大家分享 win7纯净版系统 不能搜索文件夹的解决方法,win7系统自带有搜索功能,可以帮助用户快速找到所需的文件,有时候搜索功能也会出现故障问题.比如要查找文件名为.doc这个文件,输入名 ...
- linux查找代码cd文件夹,Linux fing cd 查找文件/文件夹并进入目录命令
查找文件|文件夹并进入目录命令:cd $() [root@localhost /]# cd $(dirname "`find / -name 'ifcfg-ens33'`") // ...
- 基于Visua C++2010 与 Windows 7 SDK开发windows7 Shell应用(1)-搜索文件夹
windows7 shell 就是windows7操作系统的的控制台 对于熟悉了命令行的人而言,用键盘调用程序比鼠标更快更省力 您可以用"Shell:"命令调用一切可以用资源管理器 ...
- TCL练习6:通过递归方法搜索文件夹并返回指定后缀文件(包含子目录)
写这个TCL脚本的主要目的是搜索目标文件夹及其子文件夹下的所有文件,然后记录在指定的文件中.可以指定目标文件夹名称.信息记录位置和文件后缀等3种参数. 该脚本将用于Vivado的non-project ...
- python下载文件到指定文件夹-Python 获取指定文件夹下的目录和文件的实现
经常有需要扫描目录,对文件做批量处理的需求,所以对目录处理这块做了下学习和总结.Python 中扫描目录有两种方法:os.listdir 和 os.walk. 一.os.listdir 方法 os.l ...
- python获取文件夹下文件_Python 获取指定文件夹下的目录和文件的实现
经常有需要扫描目录,对文件做批量处理的需求,所以对目录处理这块做了下学习和总结.Python 中扫描目录有两种方法:os.listdir 和 os.walk. 一.os.listdir 方法 os.l ...
- c语言搜索多层文件夹,c语言 遍历搜索文件夹(获取文件夹中所有内容)
需要用来存储文件各种信息的结构体:struct_finddata_t 及查找函数:_findfirst._findnext和_fineclose. [1] _finddata_t结构体 struct ...
最新文章
- linux文本编辑nano
- 介绍两个Eclipse插件: Implementors Call Hierarchy
- 第十二篇:实用的关联容器
- Python知识点笔记-条件选择、循环和函数
- 前端学习(2588):前端权限的控制思路
- centos 修改root密码_Liunx 下安装数据库以及修改密码
- mysql分组求和_mysql 行转列,对列的分组求和,对行求和
- java创建表情包_表情包生成器
- cnzz.php,CNZZ站长统计代码报错解决方法
- 8.10 网络编程——客户端从服务器中下载文件 TFTP协议
- 零基础元宇宙AR Avatar制作教程
- c语言杖举,形近字组词。直()植()杖()仗()提()题()漫()慢()
- 网课查题微信公众号如何搭建步骤
- CentOS6.6下配置KMS自动激活服务器
- DELL服务器 R740的风扇设置
- POI读取Excel 各种特殊数字和类型的转换
- 网络运维工程师 ,需要掌握知识的总结。
- Linux常见面试题,一网打尽!
- 如何在linux的gcc中添加c语言的外部链接库(“比如说,math.h
- httpd 基本的Module 选项:
热门文章
- 基于SpringBoot的仿饿了吗外卖APP设计与实现
- 在服务器上创建虚拟机
- 同济大学计算机科学研究生几月毕业,同济大学毕业5年月薪最高的十大专业介绍...
- Spring注解大全详情,
- BAOCMS本地O2O生活电商门户系统+微信+同步wap手机版宝cms4.0白金版
- iOS备忘录之XCode插件
- SpringBoot(使用jsp时对idea进行配置)
- pymongo查询列表元素_pymongo的数组操作
- 【Python】Python学习教程与资源链接
- 怎么修复Win11中的AMD驱动程序崩溃?修复win11驱动崩溃方法