Ayuda de VBA, conversión por lotes de archivos html a xls
Sub Macro1()
dim fpath,fname,newname
fpath="D:\work\test\20150724_mode\z1\"
fname=dir( fpath & "*.SaveAsFilename:= _
nuevo nombre,FileFormat:=xlOpenXMLWorkbook _
, CreateBackup:=False
fname=dir()
wend
Fin Sub