这个函数就是files函数，不过她是个宏表函数，需要在公式-定义的名称里去定义。建立这个宏表函数的步骤是：公式选项卡，定义的名称组，名称管理器里的新建按钮，或者定义名称命令FILES宏表函数的语法说明：FILES函数语法：FILES(directory_text)directory_text：指定从哪一个目录中返回文件名。directory_text接受通配符通配符、问号 (?) 和星号 (*)。问号匹配任意单个字符；星号匹配任意字符序列。如果要匹配问号或星号，请在该字符前键入波形符 (~)。如果directory_text没有指定，FILES函数返回活动工作簿所在目录下的所有文件名。下面是几种FILES宏表函数的具体定义方法：第一种，files函数不需要参数，也就是不需要指定具体路径和文件类别定义好的名称“文件名”能够取得当前工作簿所在路径下的所有文件名第二种，带通配符的字符串作为directory_text，这种写法的效果等同第一种第三种，限定具体盘符和文件的扩展名第四种，可以在单元格里提供具体的路径，然后在定义名称时引用这个单元格地址，这样会更灵活当然，还可以在FILES宏表函数的定义名称后加上T(NOW())，使得这个定义的名称能够动态的刷新。接下来最后，就可以在单元格里用函数公式把某文件夹里的文件名提取到单元格里了。=IFERROR(INDEX(文件名,ROW(A1)),&&)回复关键字，看精选最近几篇微信文章，想看的话，回复如下关键字词：【也欢迎随时留言与我交流！】想看“有效性的bug如何禁止”，请回复：有效性想看“几个工作簿数据并到一起”，请回复：合并想看“公式运算结果出现了错误该怎么办”，请回复：错误想看“VLOOKUP函数的情感故事，情诗写给谁”，请回复：找到你想看“IF函数内心的秘密私语”，请回复：如果爱想看“随机函数是个啥杂用呢”，请回复：随机想看“忘记了excel保护密码怎么破”，请回复：破想看“30岁的梦想，只是年薪10万，你实现了吗”，请回复：梦想想看“各种基础excel技巧几个100例”，请回复：技巧想看“根据姓名查找出女生的照片”，请回复：照片想看“个人所得税里的速算扣除数的秘密！”，请回复：个税想看“如何用PPT制作抽奖的大转盘”，请回复：转盘想看“用PPT进行图文排版或一对多VLOOKUP查询”，请回复：图文想看“几十个好用的函数公式是什么”，请回复：好函数想看“vlookup非首列的查询怎么办”，请回复：非首列想看“indirect函数怎么用”，请回复：indirect想看“隔行插入怎么做”，请回复：隔行想看“sumproduct函数有哪些用法”，请回复：sumproduct想看“财务上的万元单位怎么显示”，请回复：万元想看“珍藏10年的excel技法，高人看懂”，请回复：十年想看“智能动态过滤有效性是啥来头，噱头”，请回复：过滤想看“了解一些ppt资源和ppt制作技巧”，请回复：PPT资源或PPT想看“工资条的制作方法”，请回复：工资条想看“50个吊炸天的excel技巧”，请回复：基础想看“个人所得税的算法”，请回复：个税想看“财务数字的分栏如何一个函数公式搞定”，请回复：分栏想看“index函数和match函数的用法”，请回复：index点击“阅读原文”，获取《魔法一样的Excel》在线课程链接！ExcelPPT 是个撒面向职场办公人的职场效率提升的学习自媒体专注提供接地气、有价值的学习资讯与交流活动ExcelPPT学院官方QQ群已开通群号： 等你来哦ExcelPPT(excelpptpx)　
　文章为作者独立观点，不代表微头条立场
的最新文章
一列内容转换成等距（转换后的每列数据20行）的多列indirect方法：=INDIRECT("a"&(COL在这个世界上总有一帮神一样的人物存在。就像读到的那句话：“人类就像是一条历史长河中的鱼，只有某几条鱼跳出河面一般说来，通过有效性制作序列，数据来源都是固定去框选一个单元格区域的。比如，下面这个案例。A列目前有几个城市无摘要Excel 不用 VBA，你使用过哪些绝妙的公式？曾一度以为Excel写一个类同筛选的功能只能用VBA实现。[1] WIN+R或者点击“开始”－“运行”[2] 将下面的命令输入“运行”对话框（可以直接复制粘贴到对话框说到Excel经常有人嗤之以鼻：不就是个电子表格吗？有什么了不起的。说这些话的人，肯定都没领会到其精髓——有这两天因为要做一个表格，有大量的超链接要提取出来，一个一个来做实在是太费时费力了，想着是不是有什么办法可以批有个微信朋友问，两个日期之间的休息天数如何求？这是人力资源薪酬计算时常见问题，想必她是一个HR吧。我告诉她可一般说来，通过有效性制作序列，数据来源都是固定去框选一个单元格区域的。比如，下面这个案例。A列目前有几个城市一次投入365元！视频课程收入囊中！所有附件资料都提供下载（视频源文件除外）！只需要关注学习这套视频（永久收从一堆名单里随机提取几十个人出来，咋么搞？
1，选做一列随机数=RAND() 2，然后对随机数，用r有一列日期，如何快速确定这个日期是属于上旬、中旬还是下旬呢？一般来说，很多人喜欢用if函数来判断。比如：=I问题23：有一列内容，希望把它变成3列呈现，用函数如何办到？
腾讯加速!摘要累。一个题目，不难，粉丝们测下只要参与答题的朋友，就有机会进入红包闲聊群！当然要加我咯。不会的，就转发给好友们参百度李则见，李则见亲自整理各种精彩案例发送到群里，带你学上365天！！！用365天带你成长用百位高手达人助你条件格式是一个好功能，单元格格式是静态格式，条件格式是动态格式。2007版本及以后各个版本都增加了不少简单又推出Excel收费微信群《2016年跟阿见老师一起玩转Excel》，每个工作日学2个干货技巧，只图文详解，不函数里面有一个超链接的函数，叫HYPERLINK，用处有时候可大呢微软帮助上关于这个函数的解释也不少，大家可有一种图叫迷你图，在Excel 2010才会有。不过我这里的截图是2013版的现在我们制作一个看看吧觉得好，在这平安夜里，祝福大家圣诞快乐！无论雨打风吹去，只祝愿你2016平安快乐，幸福、积极、努力、安康、随和、美丽往事随风很多工作表要改名字，手动一个个改呢，麻烦点写段VBA代码吧，其实这代码百度可搜到但是你知道粘贴在哪里很久以前有一首歌，曾经那么流行。有些人爱到忘了形结果落的一败涂地有些人永远在憧憬却只差一步距离问世间什么最美要求你根据A列的字符串，用函数公式把它变成B列的样子。分析发现，其实就是根据A列里“-”后的数字长度，把“-ROW函数，在函数世界里不那么起眼，但却往往是那灵动的一抹色彩在函数里，有个叫ROW的姑娘，你一定要好好爱她推出Excel收费微信群《2016年跟阿见老师一起玩转Excel》，每个工作日学2个技巧，只图文详解，不语音SUMPRODUCT函数，是个很特别的函数，本意就是求成绩之和的意思。但是很多高手已经把她演化成多条件求和或看下文=DATEDIF(TEXT(B2,"0-00-00"),TODAY(),"y")或者=INT(YEAR数据有效性，是基础功能，每个做表格的人都应该会！不会的，就是超级菜鸟！面向职场办公人的职场效率提升的学习自媒以下福利包截图，不同于本微信公共号前几天发的素材模板包！！！1- 关注本微信公共号后，转发本文到朋友圈，微信百度即可下载这是百度百科的解释：这是各种版本的下载地址：这是我搜我电脑上资料的结果，瞬间一秒都没有全部出来你合并单元格的存在，对于数据源表格是一场灾难，排序、分类汇总、透视等等都不可以。。。可是下面这个表格也有合并单李则见独家原创整理的120个想成为函数高手必须学习的函数！！！请立即复制粘贴保存下来，否则该微信文章随时不见了！3500人已入群免费学习魔法Excel基础技能，免费学习！当然是真的！更多职场Excel小技能，尽在免费学习微信群（数个群联播，万人规模计划开启）。加群主微信号ExcelPPTpeixun也许有可能获取进群机会哦。3000人已入群免费学习魔法Excel基础技能，免费学习！当然是真的！更多职场Excel小技能，尽在免费学习微信群（数个群联播，万人规模计划开启）。加群主微信号ExcelPPTpeixun也许有可能获取进群机会哦。李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标赞一下！李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标赞一下！添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【本文最底部，动手点“拇指”的图标赞赞，点击“写评论”可发表您的观点交流哦~】李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标赞一下！点击底部“阅读原文”
下载！！！Excel经典案例1天搞定财务数据管理（精华实操版）资深实战型Excel培训讲师Office业务应用解决方案李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标赞一下！李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标赞一下！李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标赞一下！李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标赞一下！李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标李则见原创，添加朋友里搜索excelpptpx后关注ExcelPPT微信号，获取更多职场新能量，提升您的职场高效能！【请在本文章最底部，点击“写评论”，发表您的观点来探讨交流~~~】觉得好，文章底部动手点那个“手指”的图标制作PPT，第一个重要的页面就是封面了，但很多人的封面制作出来的效果都非常low，那有没有不用思考直接套用的excelpptpx以Excel、PPT、Word、思维导图等Office办公软件学习、研究、交流为发轫，开启您职场高效能之旅，提升您的结构思考力，让职场生活更加高效开心畅通！【Office办公软件职业讲师李则见创立维护，投稿有稿酬，订阅改变你！】热门文章最新文章excelpptpx以Excel、PPT、Word、思维导图等Office办公软件学习、研究、交流为发轫，开启您职场高效能之旅，提升您的结构思考力，让职场生活更加高效开心畅通！【Office办公软件职业讲师李则见创立维护，投稿有稿酬，订阅改变你！】vba获取当前目录所有工作薄名称 Excel教程
作者：Excel教程
浏览：2162次
　　在Excel中使用VBA，难免会遇到查找当前工作薄的当前文件夹下，有多少个EXCEL文件，即有多少个工作薄，以便通过循环，对每个工作薄进行批量操作。　　通过VBA获取当前文件夹下的所有工作薄名称，可以通过如下两种代码。　　一、获取当前目录所有工作薄名称　　注意，此代码包含子级目录的搜索。代码如下：　　With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = ThisWorkbook.Path
.SearchSubFolders = True
If .Execute()
m = .FoundFiles.Count '当前目录及子目录所有工作薄总数
For Each f In .FoundFiles '在所有的工作薄里做一个循环
MsgBox Dir(f) '列出每个工作薄的名称，只显示名称，如 dzwebs.xls ，无路径
End If　　End With　　二、获取当前目录下不包含子目录的所有工作薄名称　　注意，此代码不包含任何一个子级目录的搜索，仅搜索当前目录存在的所有工作薄名称。代码如下：　　With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = ThisWorkbook.Path
.SearchSubFolders = false
If .Execute()
m = .FoundFiles.Count '当前目录所有工作薄总数
For Each f In .FoundFiles '在所有的工作薄里做一个循环
MsgBox Dir(f) '列出每个工作薄的名称，只显示名称,如 dzwebs.xls ，无路径
End If　　End With　　只要我们获取了所有工作薄的名称，加上ThisWorkbook.Path语句获取其路径，我们就可以得出Excel文件的完整路径，可在此基础之上，针对问题的需求，通过循环语句或配合其它语句，我们就可以实现批量的操作。相关的技术文章，请大家参阅本站的文章。
vba获取当前目录所有工作薄名称 Excel教程的发表时间是： 10:14:23&来源：
爱盲网提供盲人无障碍浏览《vba获取当前目录所有工作薄名称 Excel教程》，感谢作者：Excel教程撰稿！
<div class="number" id="DiggNum_如何使用excel提取文件夹中的所有文件名称_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
如何使用excel提取文件夹中的所有文件名称
上传于||暂无简介
大小：2.47KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢提取某文件夹下多个TXT文件里面的一些内容，然后统一整理写到EXCEL表格内。 - 开源中国社区
当前访客身份：游客 [
当前位置：
工程设计软件PKPM输出计算结果是txt文件，每层的内力结果为一个文件，其中包括柱、梁、墙的结果。我想把其中柱的计算内力结果提取出来，整理写入EXCEL文件，以便后续计算。想用python来实现，请高手指点一下。
单个txt文件内容如：
& ----------------------------------------------------------
& & & & & &| & & & & & & & & & 第 &1 层配筋、验算 & & & & & & & & & |
& & & & & &----------------------------------------------------------
&==============================================================================
&| & & & & & & & & & & & & & & &柱配筋和验算输出 & & & & & & & & & & & & & & &|
&==============================================================================
&N-C= & 1 ( 14)B*H*U*T*D*F(mm)= &271* &700* &271* &700* & &8* & &8
&Cx= 1.78 Cy= 1.23 Lc= &4.200(m) Nfc= 1 Rcc= 50.0 Rsc= &345 Fy= &360. Fyv= &360.
&RLIVEC= &0.60 &方钢管混凝土柱
&柱顶弯矩调整系数： 1.00 & 柱底弯矩调整系数： 1.00 & & 柱剪力调整系数： 1.50
& & &矩形钢管混凝土柱,按规程CECS 159:2004、JGJ 3-2010
&( 31)Nu= & -3155. Uc= &0.360
&( 31)Mx= &-787. My= & -17. N= & -3155. R_F1= & 0.57
&( 29)Mx= &-162. My= & 306. N= & -2848. R_F2= & 0.64
&( 31)Mx= &-787. My= & -17. N= & -3155. R_F3= & 0.72
&( 28)Sx= &-178. R_F4= & 0.19
&( 31)Sy= & 195. R_F5= & 0.08
&长细比: Rmdx= & 27.51 &Rmdy= & 45.00
&宽厚比, b/tf= & 31.88 &b/tf_max= & 61.00
&高厚比, h/tw= & 85.50 &h/tw_max= & 61.00
&抗剪承载力: CB_XF= & 305.1 &CB_YF= & 770.3
& ** 方钢管管壁板件边长与其厚度比值超限
& & &D/t= & 87.50& & 49.52
& ** 混凝土承担系数超限
& & &ARFc= & &0.46 & ARFcmax= & &0.40
& ** 高厚比超限
& & &h/tw= & 85.50 & h/tw_max= & 61.00
&----------------------------------------------------------------------------
&N-C= & 2 ( 14)B*H*U*T*D*F(mm)= &271* &700* &271* &700* & &8* & &8
&Cx= 1.78 Cy= 1.23 Lc= &4.200(m) Nfc= 1 Rcc= 50.0 Rsc= &345 Fy= &360. Fyv= &360.
&RLIVEC= &0.60 &方钢管混凝土柱
&柱顶弯矩调整系数： 1.00 & 柱底弯矩调整系数： 1.00 & & 柱剪力调整系数： 1.50
& & &矩形钢管混凝土柱,按规程CECS 159:2004、JGJ 3-2010
&( 31)Nu= & -2954. Uc= &0.337
&( 31)Mx= &-725. My= & -16. N= & -2954. R_F1= & 0.53
&( 29)Mx= & -65. My= & 306. N= & -2763. R_F2= & 0.59
&( 31)Mx= &-725. My= & -16. N= & -2954. R_F3= & 0.66
&( 28)Sx= &-178. R_F4= & 0.19
&( 31)Sy= & 176. R_F5= & 0.07
&长细比: Rmdx= & 27.51 &Rmdy= & 45.00
&宽厚比, b/tf= & 31.88 &b/tf_max= & 61.00
&高厚比, h/tw= & 85.50 &h/tw_max= & 61.00
&抗剪承载力: CB_XF= & 306.4 &CB_YF= & 773.9
& ** 方钢管管壁板件边长与其厚度比值超限
& & &D/t= & 87.50& & 49.52
& ** 混凝土承担系数超限
& & &ARFc= & &0.46 & ARFcmax= & &0.40
& ** 高厚比超限
& & &h/tw= & 85.50 & h/tw_max= & 61.00
&----------------------------------------------------------------------------
&N-C= & 3 ( 14)B*H*U*T*D*F(mm)= &271* &700* &271* &700* & &8* & &8
&Cx= 1.78 Cy= 1.23 Lc= &4.200(m) Nfc= 1 Rcc= 50.0 Rsc= &345 Fy= &360. Fyv= &360.
&RLIVEC= &0.60 &方钢管混凝土柱
&柱顶弯矩调整系数： 1.00 & 柱底弯矩调整系数： 1.00 & & 柱剪力调整系数： 1.50
& & &矩形钢管混凝土柱,按规程CECS 159:2004、JGJ 3-2010
&( 31)Nu= & -3035. Uc= &0.346
&( 31)Mx= &-773. My= & &14. N= & -3035. R_F1= & 0.55
&( 29)Mx= &-105. My= & 305. N= & -2771. R_F2= & 0.61
&( 31)Mx= &-773. My= & &14. N= & -3035. R_F3= & 0.69
&( 28)Sx= &-178. R_F4= & 0.19
&( 31)Sy= & 188. R_F5= & 0.08
&长细比: Rmdx= & 27.51 &Rmdy= & 45.00
&宽厚比, b/tf= & 31.88 &b/tf_max= & 61.00
&高厚比, h/tw= & 85.50 &h/tw_max= & 61.00
&抗剪承载力: CB_XF= & 306.3 &CB_YF= & 773.4
& ** 方钢管管壁板件边长与其厚度比值超限
& & &D/t= & 87.50& & 49.52
& ** 混凝土承担系数超限
& & &ARFc= & &0.46 & ARFcmax= & &0.40
& ** 高厚比超限
& & &h/tw= & 85.50 & h/tw_max= & 61.00
&----------------------------------------------------------------------------
&N-C= & 4 ( 14)B*H*U*T*D*F(mm)= &271* &700* &271* &700* & &8* & &8
&Cx= 1.40 Cy= 1.24 Lc= &4.200(m) Nfc= 1 Rcc= 50.0 Rsc= &345 Fy= &360. Fyv= &360.
&RLIVEC= &0.60 &方钢管混凝土柱
&柱顶弯矩调整系数： 1.70 & 柱底弯矩调整系数： 1.70 & & 柱剪力调整系数： 2.55
& & &矩形钢管混凝土柱,按规程CECS 159:2004、JGJ 3-2010
&( 31)Nu= & -4976. Uc= &0.568
&( 38)Mx= & 886. My= & -16. N= & &2350. R_F1= & 0.98
&( 31)Mx= &-884. My= & &17. N= & -4976. R_F2= & 0.81
&( 31)Mx= &-884. My= & &17. N= & -4976. R_F3= & 0.96
&( 29)Sx= & 174. R_F4= & 0.19
&( 30)Sy= &-244. R_F5= & 0.10
&长细比: Rmdx= & 21.67 &Rmdy= & 45.37
&宽厚比, b/tf= & 31.88 &b/tf_max= & 61.00
&高厚比, h/tw= & 85.50 &h/tw_max= & 61.00
&抗剪承载力: CB_XF= & 292.1 &CB_YF= & 736.3
& ** 方钢管管壁板件边长与其厚度比值超限
& & &D/t= & 87.50& & 49.52
& ** 混凝土承担系数超限
& & &ARFc= & &0.46 & ARFcmax= & &0.40
& ** 高厚比超限
& & &h/tw= & 85.50 & h/tw_max= & 61.00
===================================================================
&| & & & & & & & & & & & & & & &墙配筋和验算输出 & & & & & & & & & & & & & & &|
&==================================================================
&N-WC= & 1 (I= & 985 J= & 986) B*H*Lwc(m)= 0.27* &0.80* &4.20
&aa= &40(mm) Nfw= 1 Rcw= 50.0 Fy= &360. Fyv= &210. Fyw= &300. Rwv= 0.15
&双侧:Bsp= & &8.0(mm) fsp= &310.
&该墙柱在地震组合下有受拉的情况，若该墙柱是双肢墙的其中一肢，请在前处理定义双肢墙，以让程序做相应的内力调整。
&RLIVE= &0.60 &钢板混凝土墙 短肢墙 地下室外墙 加强区
& & & Nu= & &-981. Uc= &0.109
&( 29)M= & &270. &V= & &142. &Rmdw= & 2.506
&( &1)M= & & -13. N= & -1121. &As= & & 0.
&( &1)V= & & & 1. N= & -1121. Ash= &101.2 Rsh= &0.25
& Asv 为在侧向 水土 压力下, 外墙每延米双侧竖向分布筋面积(可配成双排)
& 竖向力PN= & -1286. 面外水平压力PL= & & &21. 最大弯矩Mv= & & &38. Asv= & 1620.0(mm2/M)
&抗剪承载力: WS_XF = & & 0.0 WS_YF = &1138.6
& 剪压比（组合号）：JYB( 29)=0.048
&----------------------------------------------------------------------------
&N-WC= & 2 (I= & 986 J= & 989) B*H*Lwc(m)= 0.27* &0.80* &4.20
&aa= &40(mm) Nfw= 1 Rcw= 50.0 Fy= &360. Fyv= &210. Fyw= &300. Rwv= 0.15
&双侧:Bsp= & &8.0(mm) fsp= &310.
&该墙柱在地震组合下有受拉的情况，若该墙柱是双肢墙的其中一肢，请在前处理定义双肢墙，以让程序做相应的内力调整。
&RLIVE= &0.60 &钢板混凝土墙 短肢墙 地下室外墙 加强区
& & & Nu= & &-969. Uc= &0.108
&( 28)M= & &521. &V= & &220. &Rmdw= & 3.113
&( &1)M= & & &12. N= & -1108. &As= & & 0.
&( &1)V= & & & 0. N= & -1108. Ash= &101.2 Rsh= &0.25
& Asv 为在侧向 水土 压力下, 外墙每延米双侧竖向分布筋面积(可配成双排)
& 竖向力PN= & -1270. 面外水平压力PL= & & &21. 最大弯矩Mv= & & &38. Asv= & 1620.0(mm2/M)
&抗剪承载力: WS_XF = &1138.2 WS_YF = & & 0.0
& 剪压比（组合号）：JYB( 28)=0.074
&----------------------------------------------------------------------------
&N-WC= & 3 (I= & 998 J= &1004) B*H*Lwc(m)= 0.27* &0.80* &4.20
&aa= &40(mm) Nfw= 1 Rcw= 50.0 Fy= &360. Fyv= &210. Fyw= &300. Rwv= 0.15
&双侧:Bsp= & &8.0(mm) fsp= &310.
&该墙柱在地震组合下有受拉的情况，若该墙柱是双肢墙的其中一肢，请在前处理定义双肢墙，以让程序做相应的内力调整。
&RLIVE= &0.60 &钢板混凝土墙 短肢墙 地下室外墙 加强区
& & & Nu= & -1486. Uc= &0.166
&( 29)M= & &544. &V= & &223. &Rmdw= & 3.211
&( &1)M= & & &-4. N= & -1704. &As= & & 0.
&( &1)V= & & & 8. N= & -1704. Ash= &101.2 Rsh= &0.25
& Asv 为在侧向 水土 压力下, 外墙每延米双侧竖向分布筋面积(可配成双排)
& 竖向力PN= & -1964. 面外水平压力PL= & & &21. 最大弯矩Mv= & & &38. Asv= & 1620.0(mm2/M)
&抗剪承载力: WS_XF = &1155.9 WS_YF = & & 0.0
& 剪压比（组合号）：JYB( 29)=0.075
&----------------------------------------------------------------------------
上面颜色标识的数据就是我想提取的内容，导入excel后如：
共有6个答案
<span class="a_vote_num" id="a_vote_num_
正则提取，openpyxl写入
<span class="a_vote_num" id="a_vote_num_
我用c#读写excel有NPOI开源的库，你python读写excel肯定有更多资源，好好找找
<span class="a_vote_num" id="a_vote_num_
你学正则表达式。用正则处理逻辑会简单很多。开启re.DOTALL参数，让 . 可以匹配换行。
建议结果输出为CSV文件。基本上不需要额外学习。
python第三方模块很多，有学习门槛。
<span class="a_vote_num" id="a_vote_num_
https://openpyxl.readthedocs.org/en/2.3.3/
谢谢楼上。openpyxl挺简单的，没有门槛。
from openpyxl import Workbook
wb = Workbook()
# grab the active worksheet
ws = wb.active
# Data can be assigned directly to cells
ws['A1'] = 42
# Rows can also be appended
ws.append([1, 2, 3])
# Python types will automatically be converted
import datetime
ws['A2'] = datetime.datetime.now()
# Save the file
wb.save("sample.xlsx")
<span class="a_vote_num" id="a_vote_num_
python提取PKPM软件数据写入到EXCEL文件.py
http://www.oschina.net/question/4877
日 00:34:38 codegay
原文数据很多没说清楚，省点精力就写个大概。
import openpyxl
with open("a.txt",encoding="utf-8") as f:
txt=f.read()
head=["标准层","N-C","工况","Nu","Uc","N-C","MX","MY","N"]
wb=openpyxl.Workbook()
ws=wb.active
ws.append(head)
rec=re.findall("""N-C=.*?(\d+) .*?Nu=\s*([-+]?\d+)\. Uc=
([-+]?\d+[\.\d]*).*?抗剪承载力""",txt,re.DOTALL)
print(rec)
for r in range(0,3):
ws['B'+str(2+r)]=rec[r][0]#N-C
ws['D'+str(2+r)]=rec[r][1]#Nu
ws['E'+str(2+r)]=rec[r][2]#Uc
wb.save("test.xlsx")
<span class="a_vote_num" id="a_vote_num_
引用来自“幻视Vision”的评论
你学正则表达式。用正则处理逻辑会简单很多。开启re.DOTALL参数，让 . 可以匹配换行。
建议结果输出为CSV文件。基本上不需要额外学习。
python第三方模块很多，有学习门槛。
谢谢各位热心朋友的指点，有了大概方向了，在朋友们的帮助下，初步有了一个模子，发上来，让各位大神指点指正一下。
#!/usr/bin/env/python3
# _*_ coding: utf-8 _*_
运行环境：
Python 3.4+
需要第三方库 openpyxl
from openpyxl import Workbook
import os, re
def getTxtFiles(path, suffix):
for dirpath, dirname, filenames in os.walk(path):
for filename in filenames:
if filename.lower().endswith("." + suffix.lower()):
rslt.append(os.path.join(dirpath, filename))
return rslt
def fileProc(filename):
row1st_pattern = re.compile(r'第\s+(\d+)\s+层配筋、验算')
valid_row_pattern = re.compile(r'[a-zA-Z]+\=\s+(?:\-)?\d+(?:\.\d+)?')
split_ptr = re.compile(r'\=\s+')
nc_ptr = re.compile(r'[a-zA-Z]+\-[a-zA-Z]+\=\s+\d+')
titles = []
lines = []
with open(filename) as ifs:
line_cont = {}
cont = ifs.read().decode('gb18030').encode('utf-8')
print('正在开始分析下个标准层')
for line in cont.strip().split('\n'):
#修改trim为strip
c0 = row1st_pattern.findall(line)
c1 = nc_ptr.findall(line)
line_cont["标准层"] = c0
titles.append("标准层")
key_vals = split_ptr.split(c1)
line_cont[key_vals] = key_vals
titles.append(key_vals)
if line.startswith('( '):
for ptrs in valid_row_pattern.findall(line):
k_vs = split_ptr.split(split_ptr)
line_cont[k_vs] = k_vs
titles.append(k_vs)
if line.startswith('-'*10):
lines.append(line_cont)
except Exception as e:
print(e, )
return titles, lines
def writeExcel(titles, lines, path):
wb = Workbook()
ws1 = wb.active
ws1.title = "Anything"
ws1.append(titles)
for line in lines:
line_cont = []
for title in titles:
line_cont.append(line.get(title))
ws1.append(line_cont)
wb.save("test.xlsx")
wb.save(filename = path)
print("生成文件：%s\n" % path)
def proc(path, suffix):
for filename in getTxtFiles(path, suffix):
titles, lines = fileProc(filename)
filepath = filename[:filename.rfind('.')]
outfilename = filepath + ".xlsx"
writeExcel(titles, lines, outfilename)
if __name__ == '__main__':
# 输入文件目录的完整路径
# path = '/Users/helio/Downloads'
path = 'e:/text'
# 需要的文件后缀名，不区分大小写
suffix = "OUT"
proc(path, suffix)
更多开发者职位上
有什么技术问题吗？
类似的话题