xls批量转换为csv文件

有多个xls文件都是如下格式，如何把它们合成一个xls文件呢？

姓名   编号    账号    

张三  234   23232

李四 333   23456

...

 

暂时想到这种方法：

1、用excel20003批量地把某个目录下的xls文件转换为csv文件。

可能禁用了宏，要启用，工具->选项...->安全性->宏安全性...，安全级选中或低

Sub change_xls_to_csv()
    Dim wkb As Workbook
    lj = "D:\"
   
    fn = Dir(lj & "\*.xls") --取得第一个文件名
   
    Do While fn <> ""
        Set wkb = Workbooks.Open(lj & "\" & fn)
        fn = Left(fn, Len(fn) - 3) & "csv"
        wkb.SaveAs Filename:=lj & fn, FileFormat:=xlCSV
        wkb.Close SaveChanges:=True
        Set wkb = Nothing
        fn = Dir --取得下一个xls文件的名字
    Loop

End Sub

2、linux下写一shell脚本，把这些.csv文件合成一个final.csv文件

#!/bin/bash

for file in *.csv
do
sed -e '1,1d' $file >> final.csv
done

3、windows下打开这个final.csv另存为xls文件，在开头插入行头

姓名 编号 账号