- 浏览: 208462 次
- 性别:
- 来自: 北京
文章分类
最新评论
-
strong8808:
activemq5.8.0 客户端,服务端启动序列图 -
xurichusheng:
第一题,如果使用 not exists 的话,可以改成:SEL ...
SQL笔试题 -
dingjun1:
cuisuqiang 写道如何解决呢?我的是对了也照样缓存增加 ...
事务未正确关闭引起的HIBERNATE SESSION不能正确关闭 -
dingjun1:
aijezdm915 写道lz ,我也是在写项目描述是犯愁,能 ...
如果在简历中描述项目 -
aijezdm915:
lz ,我也是在写项目描述是犯愁,能否给个你的简历demo,我 ...
如果在简历中描述项目
转载:http://blog.163.com/weizy@126/blog/static/8450240201051032057311/
执行“工具→宏→录制新宏”命令(如图),按“保存在”右侧的下拉按钮,选中“个人宏工作簿”选项后,“确定”进入“宏”录制状态;不需要进行任何操作,直接单击随后展开的“宏”工具条中的“停止录制”按钮,软件会自动生成一个隐藏的“个人宏工作簿”。以后想在“个人宏工作簿”中编辑宏时,就不需要再进行此步操作了。
执行“工具→宏→VisualBasic编辑器”命令(或直接按“Alt+F11”),进入VBA编辑状态。在左侧“工程资源管理器”中,展开 “VBAProject(PERSONAL.XLSB)”选项(这就是“个人宏工作簿”),双击其中的“模块1”,然后用上述代码替换右侧编辑区中的原有代码.
输入完成后,关闭VBA编辑窗口返回到Excel编辑状态。
把EXCEL放到要生成目录的文件夹下,运行宏就会在EXCEL中生成。
'Special Announcement 'CreateCatalog 'V1.0 'Powered by Kenneth 'This program is free and Open Source 'All copyright reserved. 'Edition update list 'V1.0 All basic functions available, 'creates a number of worksheets according to the first level subfolder names 'creates all files catalog of each first level subfolder worksheet 'create relative hyperlinks between worksheets and to every file. Sub CreateCatalog() '变量声明 'Program explanation 'This is a VBA program which only can be used under Microsoft Excel environment 'The program is used to create a catalog of all subfolders and files in a specified folder (same as this program position) Dim MyPath As String, MyFileName As String '路径名和文件名 Dim TempCounterI As Integer, TempCounterJ As Integer '计数变量 Dim TempStr As String '临时变量用于根据目录表生成不同工作表时中转 Dim TempStr2 As String '临时变量用于生成超链接 Dim ws As Worksheet '临时关闭屏幕更新和显示报警 Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next '设置搜索路径 MyPath = ThisWorkbook.Path TempCounterI = 1 TempCounterJ = 1 '开始搜索路径 MyFileName = Dir(MyPath & "\*.*", 16) '第一次使用Dir函数时必须带路径,之后不带路径,自动返回该目录中下一个文件值。参数16见函数帮助 '清除原有工作簿中内容 For Each Worksheet In ThisWorkbook.Worksheets If Worksheets.Count > 1 Then Worksheets(2).Delete End If Next ThisWorkbook.Worksheets(1).Name = "目录" '更改第一个表名称 '取根目录列表放在第一个表中 Do While MyFileName <> "" '开始循环 If (MyFileName <> ".") And (MyFileName <> "..") And (GetAttr(MyPath & "\" & MyFileName) And vbDirectory) Then '如果为目录则存在B列 Range("B" & TempCounterI) = MyFileName TempCounterI = TempCounterI + 1 End If MyFileName = Dir(, 16) '继续搜索下一个文件 Loop '根据根目录列表生成不同的工作表 TempStr = ThisWorkbook.Worksheets(1).Cells(TempCounterJ, 2) Do While TempStr <> "" For Each ws In ThisWorkbook.Worksheets If LCase(ws.Name) = LCase(TempStr) Then MsgBox ("Error") '如果有重名的表则过程终止 Exit Sub End If Next Set ws = ThisWorkbook.Worksheets.Add(after:=Sheets(Sheets.Count)) '生成新表 ws.Name = ThisWorkbook.Worksheets(1).Cells(TempCounterJ, 2) '新表名称为根目录下第一层子目录的名称。为了避免生成太多表,本程序仅针对第一层子目录生成不同的工作表。 Set ws = Nothing '调用子程序生成每张子表的内容,并生成目录到子表的超链接 Call Sublist(MyPath, TempStr) '子过程内容见下面 Str2 = ThisWorkbook.Sheets(TempCounterJ + 1).Name '生成到每个文件的超链接 ThisWorkbook.Sheets(1).Range("A" & TempCounterJ).hyperlinks.Add Anchor:=ThisWorkbook.Sheets(1).Range("A" & TempCounterJ), Address:="", SubAddress:=Str2 & "!A1", TextToDisplay:="打开" TempCounterJ = TempCounterJ + 1 TempStr = ThisWorkbook.Worksheets(1).Cells(TempCounterJ, 2) Loop '补充内容,将根目录下的文件也列出来 ThisWorkbook.Sheets(1).Cells(TempCounterI, 1).EntireRow.Insert TempCounterI = TempCounterI + 1 ThisWorkbook.Sheets(1).Cells(TempCounterI, 1).EntireRow.Insert ThisWorkbook.Sheets(1).Range("A" & TempCounterI) = "以下为根目录下文件列表" TempCounterI = TempCounterI + 1 MyPath = ThisWorkbook.Path MyFileName = Dir(MyPath & "\*.*") Do While MyFileName <> "" ' And TempCounterI <= 1000 If MyFileName <> "目录整理.xls" Then ThisWorkbook.Sheets(1).Range("B" & TempCounterI) = MyFileName Str2 = ThisWorkbook.Sheets(1).Name ThisWorkbook.Sheets(1).Range("A" & TempCounterI).hyperlinks.Add Anchor:=ThisWorkbook.Sheets(1).Range("A" & TempCounterI), Address:=MyPath & "\" & MyFileName, SubAddress:="", TextToDisplay:="打开" TempCounterI = TempCounterI + 1 End If MyFileName = Dir() Loop '打开屏幕更新和显示报警 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub '子过程,用于生成每个子目录下所有文件及其下所有子目录内文件的清单和超链接 Sub Sublist(MyPath As String, Myname As String) Dim Str1 As String '用于存储目录的临时变量 Dim Str2 As String '用于存储文件名的临时变量 Dim Str3 As String '用于生成超链接的临时变量 Dim i As Integer '计数用临时变量 Dim j As Integer '计数用临时变量 Dim m As Integer '计数用临时变量 ThisWorkbook.Sheets(Myname).Range("C1") = MyPath & "\" & Myname '生成当前文件路径 i = 1 j = 1 m = 0 '开始循环 Do Str1 = ThisWorkbook.Sheets(Myname).Range("C" & i) Str2 = Dir(Str1 & "\*.*", 16) '从当前表C列取临时保存的路径值,在dir函数中,每个路径下只有第一次需要用路径值 Do While Str2 <> "" '循环,依次判断文件类型 If (Str2 <> ".") And (Str2 <> "..") Then If (GetAttr(Str1 & "\" & Str2) And vbDirectory) Then '如果是目录则暂存在C列 j = j + 1 ThisWorkbook.Sheets(Myname).Range("C" & j) = Str1 & "\" & Str2 Else m = m + 1 ThisWorkbook.Sheets(Myname).Range("B" & m) = Str2 '如果不是目录则在B列依次列出 Range("A" & m).hyperlinks.Add Anchor:=Range("A" & m), Address:=Str1 & "\" & Str2, SubAddress:="", TextToDisplay:="打开" '从A列生成到B列文件的超链接 End If End If Str2 = Dir(, 16) '继续搜索下一个文件,直到为空 Loop i = i + 1 'i+1,开始取下一个子目录的路径,直到所有的子目录被遍历 Loop While ThisWorkbook.Sheets(Myname).Range("C" & i).Value <> "" ThisWorkbook.Sheets(Myname).Columns(3).Delete '删除临时保存路径的第C列 ThisWorkbook.Sheets(Myname).Cells(1, 1).EntireRow.Insert '插入一行 Str3 = ThisWorkbook.Worksheets(1).Name '在插入的第一行生成到第一个表的超链接 Range("A1").hyperlinks.Add Anchor:=Range("A1"), Address:="", SubAddress:=Str3 & "!A1", TextToDisplay:="返回" End Sub
执行“工具→宏→录制新宏”命令(如图),按“保存在”右侧的下拉按钮,选中“个人宏工作簿”选项后,“确定”进入“宏”录制状态;不需要进行任何操作,直接单击随后展开的“宏”工具条中的“停止录制”按钮,软件会自动生成一个隐藏的“个人宏工作簿”。以后想在“个人宏工作簿”中编辑宏时,就不需要再进行此步操作了。
执行“工具→宏→VisualBasic编辑器”命令(或直接按“Alt+F11”),进入VBA编辑状态。在左侧“工程资源管理器”中,展开 “VBAProject(PERSONAL.XLSB)”选项(这就是“个人宏工作簿”),双击其中的“模块1”,然后用上述代码替换右侧编辑区中的原有代码.
输入完成后,关闭VBA编辑窗口返回到Excel编辑状态。
把EXCEL放到要生成目录的文件夹下,运行宏就会在EXCEL中生成。
- 生成文件目录.zip (13 KB)
- 下载次数: 4
发表评论
-
java web问题定位
2013-01-25 20:39 868查找问题流程 1、查看当前服务的cpu 、内存、磁盘等使用 ... -
【转】技术文章链接
2012-08-21 10:54 955Spring 3.x企业实用开发实战 http://www.i ... -
性能调优记录
2012-06-13 21:35 828背景: 最近需要开一个10分钟一期的彩种,需要测试下往 ... -
apache2.2.17+tomcat6.0.18+jk1.2.31
2011-03-18 20:06 12871、安装APACHE HTTPD 下载httpd-2.2.17 ... -
如果在简历中描述项目
2010-04-09 11:37 2110转载地址:http://www.xdaiz ... -
面试问题收集中
2010-03-18 15:24 1230转:http://nodonkey.iteye.com ... -
HTML富文本编辑ZZ
2010-02-26 11:41 1186这个原理实在是太简单了!对于支持富文本编辑的浏览器来说,其实就 ... -
取消 Html 原有樣式
2009-11-21 21:36 1132body,div,dl,dt,dd,ul,ol,li,h1 ... -
键盘回车事件导致页面刷新的问题
2009-09-16 16:08 1590转载:http://www.efansonline.cn/ar ... -
互联网网站的反爬虫策略浅析
2009-08-17 09:59 1110转载:http://robbin.iteye.co ... -
彻底删除不用的启动项目
2009-08-16 07:32 1419问题描述:用Msconfig设置启动项是我们经常用到的命令。在 ... -
总结:CSS在IE与Firefox下的兼容性
2009-07-26 21:29 1174转载:http://www.163sd.com/b ... -
WEB应用性能调优记录
2009-07-10 11:38 8002009-7-10日 一个子系统做好后,进行性能测试,由于是在 ... -
获取真实IP地址
2008-09-11 14:45 2119转载:http://blog.sina.com.c ... -
myeclipse连接oracle的时候错误
2008-09-04 19:18 1297我用 myeclipse 连接 oracle的时候 ... -
eclipse.ini说明
2008-09-04 09:33 5780eclipse.ini说明 网上关于eclipse.ini的说 ... -
经理的话
2008-07-30 10:51 7501、舞台上只有小演员,没有小角色 如果连自己都觉得自己做 ... -
Ctrl+Alt+Del热启动告诉我已被管理员停用!怎么开启?
2008-07-25 14:40 974转:http://zhidao.baidu.com/quest ... -
面试可能的问题
2008-07-23 16:14 1447下面的问题,都是从网 ... -
网址收藏
2008-07-10 10:00 8601、杀毒软件升级包等 http://www.fuw ...
相关推荐
可以实现: ...3、可以根据excel文件进行拆分,excel文件中IP地址,支持上述两种方式,Excel中只要包含起始IP列、终止IP列,或者包含IP地址段,就可以自动批量生成单个IP,并且还可以保留原来excel的字段;
当拖延考试准备时,我开始使用自动Excel电子表格进行工作,该电子表格利用宏动态地生成锦标赛括号,用于我和我的朋友们在季节性的Super Smash Brothers锦标赛中聚会时的感受。 运行工作表 运行工作表需要您确保启用...
本书由Mr.Excel等经验丰富的Excel专家执笔,图文并茂,内容详实,并在相关网站上提供了书中示例使用的Excel文件,可供读者练习操作时使用,非常适合中、高级Excel用户,以及公司中需要大量统计报表的工作人员。...
本书由Mr.Excel等经验丰富的Excel专家执笔,图文并茂,内容详实,并在相关网站上提供了书中示例使用的Excel文件,可供读者练习操作时使用,非常适合中、高级Excel用户,以及公司中需要大量统计报表的工作人员。...
本书由Mr.Excel等经验丰富的Excel专家执笔,图文并茂,内容详实,并在相关网站上提供了书中示例使用的Excel文件,可供读者练习操作时使用,非常适合中、高级Excel用户,以及公司中需要大量统计报表的工作人员。...
本书由Mr.Excel等经验丰富的Excel专家执笔,图文并茂,内容详实,并在相关网站上提供了书中示例使用的Excel文件,可供读者练习操作时使用,非常适合中、高级Excel用户,以及公司中需要大量统计报表的工作人员。...
一完美的关于请求的目录不存在而需要url重写的解决方案! 在C#中实现MSN消息框的功能 XmlHttp实现无刷新三联动ListBox 鼠标放在一个连接上,会显示图片(类似tooltip) 使用microsoft.web.ui.webcontrols的TabStrip与...
对于基于文件的数据源,例如shape文件或coverages,既可以使用UPPER函数,也可以使用LOWER函数。 例如下面这个查询将选出那些姓名的最后为Jones或JONES的顾客。 UPPER("LAST_NAME") = 'JONES' 可以用LIKE运算符...
自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As...
A可执行文件 B引导扇区/分区表 CWord/Excel文档 D数据库文件 6.TCP/IP协议规定计算机的端口有个,木马可以打开一个或者几个端口,黑客所使用的 控制器就进入木马打开的端口。 A.32768 B.32787 C.1024 D.65536 ...
演示了OpenG的使用方法,内含几个实例,一个实例就3个文件。 p2p vb实例。 p2p+technology 文档。 P2P视频技术源码(含开发文档) 目前的协议有如下一些特点: 1) 客户向服务器发送请求, 每个请求的长度不定. 请求...
本书最后的部分介绍如何自定义Project以及宏和VBA的相关信息,并通过一些案例来帮助您了解Project的使用情况。 本书内容丰富,融合了作者大量的实践经验,适用于各类项目管理人员使用。 目录 -------------------...
本书最后的部分介绍如何自定义Project以及宏和VBA的相关信息,并通过一些案例来帮助您了解Project的使用情况。 本书内容丰富,融合了作者大量的实践经验,适用于各类项目管理人员使用。 目录 -------------------...
本书最后的部分介绍如何自定义Project以及宏和VBA的相关信息,并通过一些案例来帮助您了解Project的使用情况。 本书内容丰富,融合了作者大量的实践经验,适用于各类项目管理人员使用。 目录 -------------------...
本书最后的部分介绍如何自定义Project以及宏和VBA的相关信息,并通过一些案例来帮助您了解Project的使用情况。 本书内容丰富,融合了作者大量的实践经验,适用于各类项目管理人员使用。 目录 -------------------...
本书最后的部分介绍如何自定义Project以及宏和VBA的相关信息,并通过一些案例来帮助您了解Project的使用情况。 本书内容丰富,融合了作者大量的实践经验,适用于各类项目管理人员使用。 目录 -------------------...
本书最后的部分介绍如何自定义Project以及宏和VBA的相关信息,并通过一些案例来帮助您了解Project的使用情况。 本书内容丰富,融合了作者大量的实践经验,适用于各类项目管理人员使用。 目录 -------------------...
本书最后的部分介绍如何自定义Project以及宏和VBA的相关信息,并通过一些案例来帮助您了解Project的使用情况。 本书内容丰富,融合了作者大量的实践经验,适用于各类项目管理人员使用。 目录 -------------------...
本书最后的部分介绍如何自定义Project以及宏和VBA的相关信息,并通过一些案例来帮助您了解Project的使用情况。 本书内容丰富,融合了作者大量的实践经验,适用于各类项目管理人员使用。 目录 -------------------...