复制代码
　　代码如下:
　　Sub Macro1()
　　'
　　' Macro1 Macro
　　'
　　Dim myFiles
　　Dim i As Long
　　myFiles = Dir(＂D:\1\*.xlsx＂)
　　On Error Resume Next
　　Application.ScreenUpdating = True
　　Application.DisplayAlerts = False
　　Do While myFiles <> ＂＂
　　Workbooks.Open Filename:=＂D:\1\＂ & myFiles
　　ActiveWorkbook.SaveAs Filename:= _
　　＂D:\1\＂ & Left(myFiles， Len(myFiles) - 1)， FileFormat:=xlExcel8， _
　　Password:=＂＂， WriteResPassword:=＂＂， ReadOnlyRecommended:=False， _
　　CreateBackup:=False
　　ActiveWindow.Close
　　myFiles = Dir
　　i = i + 1
　　DoEvents
　　Loop
　　MsgBox ＂全部转换完毕，共转换文件 ＂ & i & ＂个＂
　　End Sub
　　xlsx文件转换为xls，前提是要在装Excel2007的机器上运行才行。

新风系统究竟什么品牌好松下新风系统优势介绍详解想要拥有清新舒爽的好空气，许多人在家中都安装了新风系统，在家中也能随时享有大自然般的好空气。那么新风系统究竟什么品牌好？接下来IT百科就为您推荐一款家用新风系统mdash松下新风系新风系统怎么安装新风系统安装步骤及注意事项详解在雾霾横行的今天，我们出门不单只要看一下天气预报，还要看一下雾霾指数，它决定着我们今天出门是否能够有清新的空气，也决定着我们是不是只用带上一个丑陋的口罩出门，就算躲在家里也一样有可别墅地下新风系统怎么安装别墅地下新风系统安装方法别墅地下新风系统如何安装大家知道吗，其实别墅地下新风系统是很不错的，由于家里甲醛苯超标导致小孩子的白血病的悲惨事件。人们意识到了安装新风系统的重要型，可是很多人都不会安装。今天，我新风系统c300t如何设计安装新风系统c300t安装要点介绍详解现如今，生活环境中空气质量问题已经令人们寝食难安，想要改变环境空气的问题，需要大家安装合适的新风系统。新风系统c300t是一款常见的新风型号，那么，新风系统c300t该怎么设计安装南北西岸新风系统安装有什么好处新风系统安装好处介绍人们都知道植物的生长会需要阳光空气和水，其实植物的生长与人是有着许多的相同之处。但是随着环境的污染，空气变差。这时候便出现了新风系统。新风系统存在的地区以及品牌有许多。大家想知道安创意香薰机哪个品牌好创意香薰机品牌推荐详解在今天压力如此巨大的生活工作中，越来越多的朋友感觉到疲惫，其中很多人选择在家中放置一台创意香薰机来舒缓生活压力。创意香薰机确实一种不错的舒缓压力的家用电器，但是如此之多的创意香薰机海尔智净净水机怎样海尔智净净水机优势介绍详解现在市面上有很多的净水器品牌，海尔电器设计生产的净水器是非常好的选择，拥有多种不同种类的净水器产品，给我们大家也带来了很好地帮助。所以现在很多的消费者在购买净水设备的时候，海尔智净海尔净水器怎么样海尔净水器多少钱详解在我们的生活中经常能看到净水器的身影，可要问起什么品牌的净水器好的话，相信很多人都会说海尔吧？因为海尔这个品牌生产的很多产品都得到了消费者的认可。可能你家中的净水器就是海尔的，也有海尔净水器滤芯怎么更换海尔净水器滤芯更换方法介绍详解现在购买净水器的时候，市面上有很多的品牌，大家都会根据自己的需要来选择合适的产品使用。海尔净水器是一款口碑非常好的净水器品牌了，产品也有着非常好的净水效果，得到了不少消费者的喜爱。海尔净水器怎么样海尔净水器优势特点分析净水器的发展越来越迅速，给人们带去了健康的水质，可以说净水器在日常生活中的作用是非常重要的。现在我们来了解下净水器的其中一个品牌海尔净水器，现在我们来了解下海尔净水器的优势，来看看海尔净水器五级净水器好吗海尔净水器五级净水器优点介绍详解海尔这个品牌想必是家喻户晓的，在我们的生活中可以说是随处可见。也许我们家里的电冰箱，洗衣机，热水器就是海尔的，可以看出海尔还是挺受欢迎的。海尔净水器也是，因为这个品牌我们还是放心的