ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 191|回复: 11

[求助] 设置打开文件夹没反应

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-5-22 15:22 | 显示全部楼层 |阅读模式
本帖最后由 MaterSeCret 于 2024-5-22 17:37 编辑

各位大神看一下,点击后不会弹出文件夹选择框
我的需求是这样子的,代码应该写好了,但是没反应。。麻烦帮忙看一下
文件夹内每个文件单独作为一组数据第一步:

第一种:文件名第一个"_"前的字符为1的,
把打开的文件内C4-C7的内容复制到thisworkbook的M列到P列的第一行,C8-C11的内容复制到thisworkbook的M列到P列的第二行,
把打开的文件内C13-C16的内容复制到thisworkbook的Q列到T列的第一行,C17-C20的内容复制到thisworkbook的Q列到T列的第二行,
然后把对应的A列第一行和第二行,B列第一行和第二行,C列第一行和第二行,D列第一行和第二行,E列第一行和第二行,F列第一行和第二行,G列第一行和第二行,H列第一行和第二行单独合并


第二种:文件名第一个"_"前的字符为2的,
①如果打开的文件最下一行行数为10的,把打开的文件内C4-C5的内容复制到thisworkbook的E列到F列,把打开的文件内C7-C10的内容复制到thisworkbook的I列到L列
②如果打开的文件最下一行行数为16的,
把打开的文件内C4-C7的内容复制到thisworkbook的E列到H列的第一行,
把打开的文件内C9-C12的内容复制到thisworkbook的I列到L列的第一行,C13-C16的内容复制到thisworkbook的I列到L列的第二行,
然后把对应的A列第一行和第二行,B列第一行和第二行,C列第一行和第二行,D列第一行和第二行,E列第一行和第二行,F列第一行和第二行,G列第一行和第二行,H列第一行和第二行单独合并第二步:1.B列内容:文件名的第二个"_"到第三个"_"之间的内容2.C列内容:文件名的第三个"_"到第四个"_"之间的内容&第一个"_"前的内容,删掉最后一个字符3.D列内容:第四个"_"到第五个"_"之间的内容,如果内容是**首检的统一为首检


spc.rar

44.18 KB, 下载次数: 7

TA的精华主题

TA的得分主题

发表于 2024-5-22 15:33 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
点击后可以弹出文件夹选择框,这一步没问题。

TA的精华主题

TA的得分主题

发表于 2024-5-22 15:34 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
AI写的代码不一定有效,改起来也麻烦。可以考虑新写一个。

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-5-22 15:53 | 显示全部楼层
ykcbf1100 发表于 2024-5-22 15:34
AI写的代码不一定有效,改起来也麻烦。可以考虑新写一个。

这个太复杂了,我这个新手也是不会

TA的精华主题

TA的得分主题

发表于 2024-5-22 16:28 | 显示全部楼层
发帖子,怎么还将文字设置个底色,看着怪不舒服的

TA的精华主题

TA的得分主题

发表于 2024-5-22 17:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2024-5-22 17:07 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
cidanji 发表于 2024-5-22 17:01
锻炼兄弟们眼力

还是别锻炼眼力了,整天坐在办公电脑前,眼镜本来就累

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-5-22 17:36 | 显示全部楼层
LIUZHU 发表于 2024-5-22 17:07
还是别锻炼眼力了,整天坐在办公电脑前,眼镜本来就累

直接复制过来就成了这个颜色了。。。。

TA的精华主题

TA的得分主题

发表于 2024-5-22 17:55 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
MaterSeCret 发表于 2024-5-22 17:36
直接复制过来就成了这个颜色了。。。。

那你要当心点,发帖不规范,可能会被删帖的

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-5-22 18:24 | 显示全部楼层
LIUZHU 发表于 2024-5-22 17:55
那你要当心点,发帖不规范,可能会被删帖的

我改过来了
大佬,麻烦看看代码帮忙一下解决咯
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-18 07:59 , Processed in 0.034919 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表