使用下面代码可批量改后缀名
sub 批量()
dim wkb as workbook
lj = "d:"
dirname = dir(lj & "*.cvs")
do while dirname <> ""
set wkb = workbooks.open(lj & "" & dirname)
dirname = left(dirname, len(dirname) - 3) & "xls"
wkb.saveas filename:="d:" & dirname, fileformat:=xlworkbooknormal
wkb.close
set wkb = nothing
dirname = dir
loop
end sub
