求助： 用macro转换大量xml文件到excel

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有大约１０００个xml 文件， 希望把他们转换成 xls 或者xlsx 文件， 直接代换后缀会出现错误信息， 做了个研究， 曾经有人提供过一段代码， 据提问者说，着段代码可行，但我的问题是我一点excel vba 的经验也没有， 拿着代码不知道怎么用。

我先把代码拷贝到vba里，更改了文件地址，其他的都没有动， 然后让程序运行以后， 没有任何反应。 不知道是不是我的方法不对。

1. Sub ChangeFileType()
   
2. 
   
3.     Dim Filename As String
   
4.     Dim Filepath As String
   
5.     Dim Filespec As String
   
6.     Dim Wkb As Workbook
   
7.    
   
8.         Filepath = "C:\Documents and Settings\My Documents"
   
9.         
   
10.         Filename = Dir(Filepath & "\" & "*.xls*")
    
11.         
    
12.             Do While Filename <> ""
    
13.                Set Wkb = Workbooks.Open(Filename)
    
14.                Wkb.SaveAs Filename:=Filename, FileFormat:=xlExcel8
    
15.                Wkb.Close SaveChanges:=False
    
16.                Filename = Dir()
    
17.             Loop
    
18.       
    
19. End Sub

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL Macro exce xcel Mac excel