Red de conocimiento informático - Problemas con los teléfonos móviles - Ayuda de VBA, conversión por lotes de archivos html a xls

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