查看: 1665|回复: 4
阅读权限3UID461491函数0 关最后登录经验229 点在线时间59 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币204 个积分229精华0帖子日志注册时间
幼儿园大班, 积分 229, 距离下一级还需 71 积分
金币204 个积分229帖子
请教如何读取xls文件名特定的字符段？
问题如下：&&某文件夹有多个xls文件， 名称分别为：“月报-23.xls”、“月报-213.xls”、“月报-1.xls”、“月报-11.xls”&&等等
一个汇总的表格，会打开该文件夹中的每个文件，请问如何读取每个文件名符号- 后的 店号编码，达到下图的效果？ 谢谢各位解答？
22:00 上传
阅读权限255UID276840函数5 关最后登录经验9088 点在线时间687 小时VBA0 关分享记录好友技巧3 关相册主题段位0 段金币1467 个积分9098精华0帖子日志注册时间
Just.叶子'S
金币1467 个积分9098帖子
阅读权限19UID236388函数5 关最后登录经验8154 点在线时间287 小时VBA3 关分享记录好友技巧9 关相册主题段位7 段金币2928 个积分8154精华1帖子日志注册时间
大学4年级, 积分 8154, 距离下一级还需 846 积分
金币2928 个积分8154帖子
以文件名作变量myfilename，如象你所说的&&月报-123.xls&&这样子可用：
=replace(mid(MyFileName,instr(MyFileName,&-&)+1,999),&.xls&,&&)
如果确定前面只是 “月报-”，直接用两个 replace 就可以处理
阅读权限15UID487070函数1 关最后登录经验4561 点在线时间170 小时VBA2 关分享记录好友技巧0 关相册主题段位1 段金币2236 个积分4716精华0帖子日志注册时间
高中3年级, 积分 4716, 距离下一级还需 584 积分
金币2236 个积分4716帖子
本帖最后由 tianti 于
10:12 编辑
Sub 查找文件名()
Dim myPath As String, myFile As String
Dim n As Integer
& &myPath = &D:\编程资料\Excel编程&& && && &'红字部分改为自己的路径
& &n = 1
& &myFile = Dir(myPath & &\*.xls&)
& &Do While myFile && &&
& && &&&myFile = Right(Left(myFile, Len(myFile) - 4), Len(Left(myFile, Len(myFile) - 4)) - 3)
& && &&&
& && &&&Cells(n, 1) = myFile
& && & myFile = Dir '找寻下一个文件
& && & n = n + 1
& & Loop
End Sub复制代码
阅读权限3UID461491函数0 关最后登录经验229 点在线时间59 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币204 个积分229精华0帖子日志注册时间
幼儿园大班, 积分 229, 距离下一级还需 71 积分
金币204 个积分229帖子
谢谢楼上各位解答&&我试下&&非常感谢
最佳答案累计大于100
Powered by请教各位大大，搜了一下论坛的帖子，VBA、正则表达式之类的，好像没找到答案。
特来请教~~
在线时间448 小时经验1156 威望0 性别男最后登录注册时间阅读权限50UID1165455积分1156帖子精华0分享0
EH高级, 积分 1156, 距离下一级还需 844 积分
积分排行919帖子精华0微积分0
在替换选项中选择单元格匹配试一下。
在线时间2806 小时经验3827 威望0 最后登录注册时间阅读权限90UID68099积分3977帖子精华1分享0
EH能手, 积分 3977, 距离下一级还需 723 积分
积分排行237帖子精华1微积分0
楼主的问题太笼统，听不太明白，可能会错楼主的意思
试一下下面的方法：
勾选“使用通配符”
查找内容：
A([B-Z]{1,})
[ 本帖最后由 tangqingfu 于
22:18 编辑 ]
在线时间891 小时经验3690 威望1 性别男最后登录注册时间阅读权限90UID600550积分3690帖子精华0分享0
EH能手, 积分 3690, 距离下一级还需 1010 积分
积分排行257帖子精华0微积分0
楼上讲的第一次见,有点不明::L
在线时间3 小时经验7 威望0 性别男最后登录注册时间阅读权限20UID485335积分59帖子精华0分享0
EH初级, 积分 59, 距离下一级还需 291 积分
积分排行3000+帖子精华0微积分0
回复 3楼 tangqingfu 的帖子
谢谢你的回复，不过好像试了一下不太对~~
具体来说，就是我想把一篇台湾文章里的“之”替换为“的”，但是“之间”、“之前”、“之后”等词中的“之”又不要替换
在线时间2806 小时经验3827 威望0 最后登录注册时间阅读权限90UID68099积分3977帖子精华1分享0
EH能手, 积分 3977, 距离下一级还需 723 积分
积分排行237帖子精华1微积分0
最好能把问题说得清楚点，不要老是让人猜，会打击大家的积极性！
你在5楼中的问题与1楼的问题好像不太一样！
5楼的问题可以这样解决：
勾选“使用通配符”
查找内容：
之([!间前后])
在线时间891 小时经验3690 威望1 性别男最后登录注册时间阅读权限90UID600550积分3690帖子精华0分享0
EH能手, 积分 3690, 距离下一级还需 1010 积分
积分排行257帖子精华0微积分0
回复 6楼 tangqingfu 的帖子
之([!间前后])
能分别解释一下上面这两个吗? !和\1的作用是什么
在线时间2806 小时经验3827 威望0 最后登录注册时间阅读权限90UID68099积分3977帖子精华1分享0
EH能手, 积分 3977, 距离下一级还需 723 积分
积分排行237帖子精华1微积分0
查找所有“之”后非“间”、“前”、“后”的内容，找到后将“之”替换为“的”
即楼主所说的“之间”、“之前”、“之后”等词中的“之”不要替换
如果想学习一下查找与替换的方法，楼上的可以参考此帖：
常见查找与替换实例及方法(09年8月22日更新到64例)
在线时间3 小时经验7 威望0 性别男最后登录注册时间阅读权限20UID485335积分59帖子精华0分享0
EH初级, 积分 59, 距离下一级还需 291 积分
积分排行3000+帖子精华0微积分0
!表示非的意思吧
\1不太明白，是表示后面还要有字符么
在线时间3 小时经验7 威望0 性别男最后登录注册时间阅读权限20UID485335积分59帖子精华0分享0
EH初级, 积分 59, 距离下一级还需 291 积分
积分排行3000+帖子精华0微积分0
回复 8楼 tangqingfu 的帖子
谢谢了[em01]
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&等　级：贵宾
威　望：42
帖　子：4881
专家分：671
你没事干看VBP干啥……第一个花括号和花括号里的东西可能是Class类型串，一种GUID吧请你连着花括号一起找
这是不可拆分的东西#和;估计就是分隔符
等　级：新手上路
帖　子：427
vbp文件,不会看是不行的.我发现从一台机器上将项目文件夹整个拷到另一台机器上,打开项目后,vbp 文件会自动发生改变.这时就会出现问题.会看vbp文件,就会发现问题所在.因为vb的ide环境会自动修改vbp,可是有可能改错了.
等　级：贵宾
威　望：42
帖　子：4881
专家分：671
以下是引用ggyy66在 20:14:31的发言：vbp文件,不会看是不行的.我发现从一台机器上将项目文件夹整个拷到另一台机器上,打开项目后,vbp 文件会自动发生改变.这时就会出现问题.会看vbp文件,就会发现问题所在.因为vb的ide环境会自动修改vbp,可是有可能改错了.
我也看过。哎 说到这个还挺辛酸的。去年在学校机房开发软件，经常保存的过程中死机，frm文件没写全啊……害得我仔细分析frm文件格式最后把我的窗体恢复了出来注：“写”指文件没有向磁盘上写入完成，并非我没有写完代码。
等　级：新手上路
帖　子：427
我也看过。哎 说到这个还挺辛酸的。去年在学校机房开发软件，经常保存的过程中死机，frm文件没写全啊……害得我仔细分析frm文件格式最后把我的窗体恢复了出来能仔细说说吗?我想取点经验.有几次,我为了省事,通过修改frm文件的方式复制窗体,窗体是复制成功了,可是一启动VB后,鼠标指针变成十字形，点任何一个地方都发送错误报告，然后异常退出VB,因为对文件格式没有研究，所以一直没找到原因．这也是我为什么想了解文件格式的原因．望您在百忙之中回复一下，谢谢．
版权所有，并保留所有权利。
Powered by , Processed in 0.037058 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved新手园地& & & 硬件问题Linux系统管理Linux网络问题Linux环境编程Linux桌面系统国产LinuxBSD& & & BSD文档中心AIX& & & 新手入门& & & AIX文档中心& & & 资源下载& & & Power高级应用& & & IBM存储AS400Solaris& & & Solaris文档中心HP-UX& & & HP文档中心SCO UNIX& & & SCO文档中心互操作专区IRIXTru64 UNIXMac OS X门户网站运维集群和高可用服务器应用监控和防护虚拟化技术架构设计行业应用和管理服务器及硬件技术& & & 服务器资源下载云计算& & & 云计算文档中心& & & 云计算业界& & & 云计算资源下载存储备份& & & 存储文档中心& & & 存储业界& & & 存储资源下载& & & Symantec技术交流区安全技术网络技术& & & 网络技术文档中心C/C++& & & GUI编程& & & Functional编程内核源码& & & 内核问题移动开发& & & 移动开发技术资料ShellPerlJava& & & Java文档中心PHP& & & php文档中心Python& & & Python文档中心RubyCPU与编译器嵌入式开发驱动开发Web开发VoIP开发技术MySQL& & & MySQL文档中心SybaseOraclePostgreSQLDB2Informix数据仓库与数据挖掘NoSQL技术IT业界新闻与评论IT职业生涯& & & 猎头招聘IT图书与评论& & & CU技术图书大系& & & Linux书友会二手交易下载共享Linux文档专区IT培训与认证& & & 培训交流& & & 认证培训清茶斋投资理财运动地带快乐数码摄影& & & 摄影器材& & & 摄影比赛专区IT爱车族旅游天下站务交流版主会议室博客SNS站务交流区CU活动专区& & & Power活动专区& & & 拍卖交流区频道交流区
空间积分0 信誉积分100 UID阅读权限10积分18帖子精华可用积分18 专家积分0 在线时间1 小时注册时间最后登录
白手起家, 积分 18, 距离下一级还需 182 积分
帖子主题精华可用积分18 专家积分0 在线时间1 小时注册时间最后登录
论坛徽章:0
我在一个目录下有一批文件，大多数文件名都包含“123”，比如“xx123x.txt”，“x123xx.txt”。
现在我想把所有文件名中的123都换成456，不知道该如何做？请指教！！
&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp&&nbsp|&&nbsp
空间积分1513 信誉积分117 UID阅读权限30积分1114帖子精华可用积分1114 专家积分143 在线时间1586 小时注册时间最后登录
家境小康, 积分 1114, 距离下一级还需 886 积分
帖子主题精华可用积分1114 专家积分143 在线时间1586 小时注册时间最后登录
论坛徽章:1
请教如何替换文件名中的字符串
改名的实例很多,望搜索一下论坛吧!
空间积分0 信誉积分100 UID阅读权限20积分779帖子精华可用积分779 专家积分0 在线时间0 小时注册时间最后登录
丰衣足食, 积分 779, 距离下一级还需 221 积分
帖子主题精华可用积分779 专家积分0 在线时间0 小时注册时间最后登录
论坛徽章:0
请教如何替换文件名中的字符串
供你一试
#!/bin/csh -f
foreach file ( *123* )
& & mv $file ${file:s/123/456}
end复制代码
空间积分1513 信誉积分117 UID阅读权限30积分1114帖子精华可用积分1114 专家积分143 在线时间1586 小时注册时间最后登录
家境小康, 积分 1114, 距离下一级还需 886 积分
帖子主题精华可用积分1114 专家积分143 在线时间1586 小时注册时间最后登录
论坛徽章:1
请教如何替换文件名中的字符串
如果楼主的系统有rename,则太简单
rename 123 456 *复制代码
空间积分0 信誉积分168 UID771746阅读权限30积分1077帖子精华可用积分1077 专家积分0 在线时间84 小时注册时间最后登录
家境小康, 积分 1077, 距离下一级还需 923 积分
帖子主题精华可用积分1077 专家积分0 在线时间84 小时注册时间最后登录
论坛徽章:0
请教如何替换文件名中的字符串
for i in `echo *123*.txt`
mv $i `echo $i| sed 's/123/456/g'`
空间积分0 信誉积分100 UID阅读权限10积分18帖子精华可用积分18 专家积分0 在线时间1 小时注册时间最后登录
白手起家, 积分 18, 距离下一级还需 182 积分
帖子主题精华可用积分18 专家积分0 在线时间1 小时注册时间最后登录
论坛徽章:0
请教如何替换文件名中的字符串
谢谢各位，已经搞定了。我自己写了段python的代码，解决了我的问题。
rename我只知道windows下有一个，但他只能使用相同长度的字符串来替换。你说的那个不知在哪里可以找到？c语言编程题请教：输入一行字符，如何统计其中有多少个不重复的单词，其中单词之间用空格分开。_百度知道
c语言编程题请教：输入一行字符，如何统计其中有多少个不重复的单词，其中单词之间用空格分开。
提问者采纳
以前写过#include&stdio.h& #include&string.h& int main() {
char **words = new char*[1000]; for(n = 0; n & 1000; n++) words[n] = new char[30]; int num = 0; char temp[1000]; char s[1000]; gets(s); char *p = int j = 0,m = 0; while(s[0] != '#') { while(1) { for(int i = 0;*p != ' ' && *p != '\0';i++,p++) { temp[i] = *p; } temp[i] = '\0'; for(m = 0; m & m++) { if(!strcmp(words[m],temp)) {
} } if(m == j) { strcpy(words[j],temp); num++; j++; } for(int k = 0; k & 1000; k++) temp[k] = '\0'; if(*p == '\0')
p++; } printf(&%d\n&, num); for(n = 0; n & 1000; n++) { s[n] = '\0'; temp[n] = '\0'; } gets(s); p = j = 0,m = 0; num = 0; } return 0; }
提问者评价
其他类似问题
c语言编程的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁