求将所有2007格式的EXCEL文件转换为.XLS且增加一个名为“目录”的工作表的宏代码

清风明月12

我用的是EXCEL2007,同事用的都是2003，他们又不跟 潮流，连兼容软件都不肯装，造 成我每次发EXCEL过去都要将它们转为尾缀为“.XLS”的2003格式文件，还要给他们创建一个名为“目录”的工作表。
我想求高手给我写一个宏代码C（在宏薄A中），A所在文件夹为B，宏C能将B文件夹下所有2007格式的EXCEL文件转换为.XLS，且增加一个名为“目录”的工作表。

冠军欧洲2010

1. Sub C()
   
2. Application.DisplayAlerts = False
   
3.     Dim FM As String, PT As String
   
4.     Dim WO As Workbook, SH As Worksheet
   
5.     PT = ThisWorkbook.Path & ""
   
6.     FM = Dir(PT & "*.xlsx")
   
7.     If FM <> ThisWorkbook.Name Then
   
8.     Do While FM <> ""
   
9.         Set WO = Workbooks.Open(PT & FM)
   
10.         Set SH = WO.Sheets.Add(before:=Sheets(1))
    
11.         SH.Name = "目录"
    
12.         WO.SaveAs PT & Left(FM, Len(FM) - 1)
    
13.         WO.Close True
    
14.         Kill PT & FM
    
15.         FM = Dir
    
16.     Loop
    
17.     End If
    
18.    
    
19.     Application.DisplayAlerts = True
    
20. End Sub
    

复制代码

冠军欧洲2010

测试时，请先备份文件。

清风明月12

老师，我想包含“.XLSX”“.XLSM”“.XLSM”“.XLTX”“.XLTM”“.XLSB”,能帮我一下吗？

冠军欧洲2010

可以啊。
FM = Dir(PT & "*.xlsx")
改为FM = Dir(PT & "*.xls*")
解决问题，记得给最佳答案哈。
嘿嘿。

冠军欧洲2010

测试时。
请先备份文件。
要不然，都删了。
呵。