如何批量将xls类型文件 转换成xlsm文件 有500个文件要转换
阅读权限20
在线时间 小时
我的原始xls 文件里面还没有代码该如何使用您的代码 谢谢
开发工具 插入模块 然后粘贴代码
阅读权限20
在线时间 小时
本帖最后由 d 于
15:53 编辑
我的原始xls 文件里面还没有代码该如何使用您的代码 谢谢
看看 楼上的代码&&把要转换的文件放入相应的文件夹中
15:53 上传
点击文件名下载附件
38.94 KB, 下载次数: 42
阅读权限20
在线时间 小时
原帖见：http://club.excelhome.net/forum.php?mod=viewthread&tid=1292697&page=1#pid8760021
感谢大师的帮助 我已完成500个文件的转换 代码进行了稍稍的改动 就可以用了！然后关建新生成的文件经试用 解决了我之前碰到的 xlsm 工作簿中的工作表无法复制移动到 xls工作簿中去的问题 因为它们的表格大小不一样系统警告无法复制&&我看了下 行数和列数确实差很多！所以我才想到要到xls文件转成xlsm格式 ！
最后还是要多谢各位的出手相助！！谢谢 谢谢
Sub 批量转换工作簿()
& & '变量声明
& & Dim oPath& && &&&As String& &'原始文件路径
& & Dim oFName& && &As String& &'原始文件名
& & Dim dPath& && &&&As String& &'目标文件路径
& & Dim dFName& && &As String& &'目标文件名
& & '获取路径
& & oPath = ThisWorkbook.Path & &\原工作簿\&
& & dPath = ThisWorkbook.Path & &\转换结果\&
& & '打开工作簿时强制禁止宏
& & Application.AutomationSecurity = msoAutomationSecurityForceDisable
& & '禁用警告
& & Application.DisplayAlerts = False
& & '查找xls文件
& & oFName = Dir(oPath & &*.xls&)
& & '当文件被找到则不断循环
& & Do While oFName && &&
& && &&&'打开工作簿
& && &&&With Workbooks.Open(oPath & oFName)
& && && && &'判断工作簿是否含有VB工程
& && && && &If .HasVBProject Then
& && && && && & '若含有VB工程，则另存为启用宏的工作簿
& && && && && & dFName = oFName & &x&
& && && && && & .SaveAs dPath & dFName, xlOpenXMLWorkbook
& && && && &Else
& && && && && & '若不含有VB工程，则另存为一般工作簿
& && && && && & dFName = oFName & &m&
& && && && && & .SaveAs dPath & dFName, xlOpenXMLWorkbookMacroEnabled
& && && && &End If
& && && && &'关闭工作簿
& && && && &.Close False
& && &&&End With
& && &&&'查找下一个文件
& && &&&oFName = Dir
& & '恢复打开文件的宏安全性设置
& & Application.AutomationSecurity = msoAutomationSecurityByUI
& & '启用警告
& & Application.DisplayAlerts = True
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师武汉再次拍卖公务人员上缴礼品 500组礼品参拍
图为：准备参加竞拍的市民，在工作人员的帮助下仔细观看拍品玉器 本版摄影：楚天都市报记者魏铼
图为：拍品中的年份茅台酒
图为：准备参加竞拍的市民，提前参观劳力士手表等拍品
楚天都市报讯（记者王荣海）一根200克的金条4.76万元起拍，一块标注6万多元的劳力士手表起拍价22750元，2瓶茅台五十年酒13000元起拍。今日上午，武汉将在市民之家举办第三场公务人员上缴物品拍卖会。昨日，楚天都市报记者获悉，与前两场相比，本场集中拍卖的公务人员上缴礼品将达到500组，这也是武汉市自去年拍卖公务人员上缴物品以来规模最大的一次。
昨日，记者在湖北诚信拍卖公司展厅看到，待拍的物品中，包含购物卡，金银珠宝首饰，手表，箱包，电子产品及生活用品、服装、鞋类，纪念币邮票类，书画工艺品类，茶酒类。商场超市购物卡，按照卡面价值8折打包起拍，与前两场相比，此次拍卖的物品中，书画工艺类物品最多，有164件。多数书画作品起拍价为100元。
拍卖公司介绍，此次拍卖均以实物现状为准公开拍卖。拍卖公司提醒，拍卖品来源及范围较为广泛，由于种种原因有些物品无法提供原始购物凭证、标识标牌、外包装、各种售后或保修证明，因此，除了购物卡外，不能百分之百保证物品的真伪、品质、成色、售后等情况，参与拍卖的市民需仔细查验核实。
2015年，武汉市出台党和国家机关工作人员礼品、有价证券和支付凭证登记上缴管理办法（试行），规定全市各级党和国家机关工作人员必须严格遵守中央和省、市有关规定，不得违规收送礼品、有价证券和支付凭证。对未能拒收的礼品、有价证券和支付凭证，自收受之日起，须在一个月内主动上交。
最贵金条4.76万起拍最贵手表2.2万起拍
　　楚天都市报讯 记者王荣海
　　此次拍卖的国家机关工作人员上交物品都有些啥？起拍价多少？昨日，楚天都市报记者提前来到承担本场拍卖的湖北诚信拍卖公司探访。
　　一幅“莫言书法”5000元起拍
　　此次拍卖的物品中，书画工艺类物品最多，有164件。其中书法作品最多，100元起拍。其中一幅名为“莫言书法”的字幅5000元起拍，一幅“高洪波书法”100元起拍。《三国演义》丝绸收藏册200元起拍。
　　此外，有邮册、纪念币、钢笔、茶具、雕像、模型、字画、剪纸、陶瓷、摆件等。一个纯银保健杯，280元起拍。中国第一艘航空母舰模型860元起拍。一件玛瑙挂件1000元起拍。一件唐卡2000元起拍。2盒围棋棋子500元起拍。二月河作品全集标价390元，150元起拍。
　　一根200克的金条起拍价4.76万元
　　此次待拍的金银首饰珠宝类，有项链、手镯、戒指等。记者注意到，不少上缴的金银首饰并没有标签价格。一块重约32克的金至尊黄金手镯起拍价达到7616元。一件带坠约8.8克的黄金项链起拍价为2095元。
　　一件周大福手镯标价12512元，起拍价7500元。这块手镯为白色黄金镶天然钻石手镯。金银首饰类中，最贵的为一根投资金条，起拍价高达4.76万元。礼品清单显示，该金条重200克。另1条重约100克的投资金条起拍价为2.38万元。
　　拍卖公司工作人员介绍，金银首饰珠宝均依照展示现状拍卖。为了核对这件金条的市场价，他们走访了一些大商场和黄金加工回收市场。黄金价格在360元每克，回收价格一般在250元每克。金条起拍价是在黄金回收价格打7折起拍。
　　标价6万多的劳力士手表起拍价22750元
　　此次拍卖的手表有浪琴、卡地亚、欧米茄、劳力士等知名品牌。一块欧米茄手表标价28800元，起拍价8880。一块卡地亚手表9300元起拍。最贵的是一块劳力士手表，标签价格为61640元，起拍价格为22750元。
　　此次拍卖的手机，4部苹果 5手机一共1000元起拍。其中有两部为黑色，2部为白色，手机内存均为16G，一支万宝龙钢笔1500元起拍。
　　此次拍卖的生活用品和服装鞋类，还有围巾、西服、皮服、休闲服、大衣、衬衣、领带、箱包等，起拍价普遍较低。一件雅格狮丹外套，标签价格为7050元，起拍价为700元。一款貂绒女士背心标签价格为4290元，起拍价只有500元。拍卖公司工作人员解释，由于衣服围巾之类的拍品无法确定新旧程度，因此起拍价较低。
　　2瓶茅台五十年酒13000元起拍
　　与前两场相比，本场待拍卖的酒并不多，主要为茅台酒，没有XO等洋酒。一箱茅台十五年酒起拍价为9000元。箱里有6瓶茅台酒和6个杯子。一提3瓶茅台三十年酒也是9000元起拍。最贵的为一提2瓶茅台五十年的酒，13000元起拍。
　　工作人员介绍，按照市场价，50年的茅台酒大约在1.8万元，一瓶15年茅台酒约2000多元。为何起拍价定得这么便宜？拍卖公司工作人员介绍，这些酒均为密封状态，无法百分之百确定真伪，因此起拍价比较低，欢迎品酒专业人士参与竞拍。
　　商超购物卡全部8折起拍
　　此次拍卖的物品，还有中百、武商、沃尔玛、中国移动等商家各类购物卡、充值卡。
　　为了便于拍卖和市民参与竞拍，经有关部门批准，购物卡按照实际有效金额打包拍卖，一套1.1万元的武商量贩购物卡打包，起拍价为8800元；一套1.2万元的武商集团购物卡起拍价为9600元。
　　记者发现，有部分购物卡已过有效期。拍卖公司提醒，若要正常使用需提前激活，或到所属商家办理换卡或延期手续，具体办理流程及收费按照所属商家各自规定执行。
　　此次拍卖的物品中，还有武汉地铁2012年纪念卡、武汉地铁2012年贵宾卡。一共6套面值为1260元，打包拍卖起拍价为900元。据介绍，该卡为一次性卡片无法再充值，目前已过期可办理延期。
（作者：&&编辑：）
更多资讯，欢迎扫描下方二维码关注湖北日报网、最武汉（zuiwuhan01）官方微信。500组彩灯打造奇幻仙境 自贡彩灯闪耀匈牙利
本次彩灯节是匈牙利布达佩斯春季文化节的一部分，将持续至5月22日。这些题材各异、色彩斑斓的彩灯，均为3D立体造型，采用传统工艺裱糊，并结合了现代电光艺术，使立体造型更明显、色彩更鲜艳。
花灯除了中国味满满的熊猫和十二生肖外，还有华丽的孔雀、天鹅、老虎等动物花灯，斑斓多彩的蝴蝶、蜻蜓、小蜗牛等花灯，以及靓丽缤纷的水仙、荷花、郁金香等植物花灯……这些栩栩如生的花灯把入夜的布达佩斯动物园点缀得奇妙无穷，让人恍如走进爱丽丝的奇幻仙境。（记者 周姝）
责任编辑：
声明：本文由入驻搜狐号的作者撰写，除搜狐官方账号外，观点仅代表作者本人，不代表搜狐立场。
聚焦川南，传播川南
打造1+N强大的媒体平台今天给大家分享的是一个一天把qq好友加满的，我用小号操作给大家看，【都是别人主动加的】，利用了腾讯的一个新功能，谁抓住了一个平台的新谁就
赚钱【绝对是微商和网赚朋友的利器】【绝对不用任何软件】【绝对不是好友克隆】【绝对不是下面这个骗流量的:说什么我有个一天加298好友的方法，加我备
注我要方法】，有了这个方法即使你拿去卖或者给别人好友克隆，都是赚钱的好方法
大家有问题，到时候私聊我，我把重要的回答截图下来，给你们一起看，我禁止了全群员说话1就是不希望大家说无聊的话，只为挣钱就行了2人多嘴杂打乱了我的思路3只有我一个人说话，大家看着也清楚。至于我为什么免费，因为我挣到钱了我给自己定的目标已经完成 欢迎加我的（：）
大家有问题，到时候私聊我，我把重要的回答截图下来，给你们一起看，我禁止了全群员说话1就是不希望大家说无聊的话，只为挣钱就行了2人多嘴杂打乱了我的思路3只有我一个人说话，大家看着也清楚。至于我为什么免费，因为我挣到钱了我给自己定的目标已经完成
大家别再私聊我说同样的问题，我现在就再群里说，别打断我的思路
大家有问题，到时候私聊我，我把重要的回答截图下来，给你们一起看，我禁止了全群员说话1就是不希望大家说无聊的话，只为挣钱就行了2人多嘴杂打乱了我的思路3只有我一个人说话，大家看着也清楚。至于我为什么免费，因为我挣到钱了我给自己定的目标已经完成
首先为了操作给大家看，我买了一个9位qq太阳号
大家以后卖号也要买9位太阳号，也不贵，就5元，为什么不用新号做网赚呢？即使你有再大本事，产品超级牛，用个新号也没人敢相信，现在一个人用刚申请的号说自己卖手机只要一元，或者说自己是马云，反正我是不信
我知道有很多人都懂，但是要照顾下其他的新手朋友，说的有点啰嗦，所以大家不要着急，耐心点，我是手动打字，比你们光看肯定累，我更急
好了，我就直接我怎么做的
我用这个9位太阳号，开通了空间，改了头像，上传了照片
这一步很重要我写了说说:旧号被盗，朋友们加我这个新号
这样别人就不会怀疑我是做项目的了，而相信我是真实存在的人了
随后改了，地址，年龄，网名等等
接着我用另外一个手机下载了【最新版本的qq】
点开动态附近
有一个功能叫约会
我编辑好约会资料就发变了
结果有216人点报名，一千多看过
加了400多好友
注意别人主动加我，我同意，这个腾讯是没有限制的，直到加满好友500人，会员7能加到2000
这个图片是我才开通空间后的访问数
那又有人问题了？别人不加怎么办？那就发个信息说加我q聊
平时我们是不能给非好友发送消息的，但是点开附近的人可以发，或者约会的人可以发？腾讯不是限制加好友吗？如果他不主动加你，你就发条信息让他加人，他加你你在同意加了他，这个腾讯是不会限制加好友数的
如果你在繁华的街道或者市区，那么加你的人将会更多
如果用10个小号操作呢，加你的人会有多少？就怕你忙不来
还有没操作过的人，你没有发言权，自己不动手永远挣不到钱，整天想着成功捷径的人，永远不会成功
还有别人不加你，肯定是1你附近的人少2你头像和网名不吸引人3你没设置好，资料没填好
注意看图片画圈里面填写的，细节很重要，你聪明，别人比你更聪明，但是也有比你更傻的，所以资料填好了，傻子还是傻子，但是至少比太傻的要聪明点了
那胆小怕事的人又要问了，我不想让附近的人加我。那也好办，不是要你坐车，跑到千里之外，也不是要千里之外的朋友帮你挂qq。既然我排除了这两个方法，我肯定还有别的方法。
大家有什么进展可以反馈给我
今天很多朋友和我反馈效果还是不错的
少说也有几十人
我再次强调，肯定是你资料不完善
或者你的第一位置附近本来就没有多少人
上次说到：那胆小怕事的人又要问了，我不想让附近的人加我。那也好办，不是要你坐车，跑到千里之外，也不是要千里之外的朋友帮你挂qq。既然我排除了这两个方法，我肯定还有别的方法。
有了人气好友流量，就要学会转化，营销。这个就不要我教了吧，既然大家进群想学加人的方法，大家肯定也就是做网络赚钱的，所以关于转化我就不多说了
还有，你可以用10个小号操作，10天把每个号加满，10个号一起操作，一天每个号加50这个不难吧，最后就是5000好友
5000好友怎么管理，把他们加到微信里面，微信以前是没用好友限制的，现在限制了只能加5000好友了
打开微信，点设置--通用--功能--群发助手
大家注意了这个--群发助手--是一键可以发消息给200个好友的，是不是双手完全解放了？？！！！
还是那句话：谁抓住了一个平台的新技巧谁就赚钱，这样的例子数不胜数，一招吃遍天下的人也非常多
我上面说的，大家一定要认真看，包括图片也要看仔细点，看个10几20遍花不了多长时间
1那胆小怕事的人又要问了，我不想让附近的人加我。那也好办，不是要你坐车，跑到千里之外，也不是要千里之外的朋友帮你挂qq。既然我排除了这两个方法，我肯定还有别的方法。
2有了人气好友流量，就要学会转化，营销。这个就不要我教了吧，既然大家进群想学加人的方法，大家肯定也就是做网络赚钱的，所以关于转化我就不多说了。
1想要加不是附近的人，想要更多的人自动加你2想学习网络赚钱的人，各种软件和教程项目的人。3经常去看看我的说说，相册，还有日志（快速赚钱秘诀：从0到10万，你缺的仅仅是这个！）那篇，一定能找到很好的解决方法。QQ
@你关注的人或派友
亲，先登录哦！
请输入姓名：
请输入对方邮件地址：
您的反馈对我们至关重要！>> 最高指示票：四种一组，共500组
最高指示票：四种一组，共500组
编号：wh150520
品种：饭票/食堂票-饭票/食堂票
属性：其他饭票/食堂票，，文革(67-76)，，安徽，，厚纸，，小全套，，无齿孔，
简介：,四张一组为一件
同一商品，分批批发
商店【安徽票证】“饭票/食堂票”目录下其他批发商品：
滚动鼠标滚轴，图片即可轻松放大、缩小
当前位置： >>
>> 饭票/食堂票 >> 最高指示票：四种一组，共500组
Copyright & 1999-.
All Rights Reserved ；建议分辨率最好为，IE5.0或以上版本浏览器
中国收藏热线版权所有；未经许可，本网图片、文字不得转载、复制、及制作镜像！客服电话：8， (白天接听：9:00-17:00)