Programación Vba html

dim fpath, fname, newname

fpath = "D:\work\test\20150724_mode\z 1"

fname = dir(fpath amp; "*.mht")

Y fname lt gt""

Libro de ejercicios. abrir nombre de archivo: = fpath & fnname

nuevo nombre = fpath & fname & ".xls "

ActiveWorkbook. Guardar como nombre de archivo: = _

Nuevo nombre, Formato de archivo: =xlOpenXMLWorkbook _

, CreateBackup: =False

fname=dir()

Fila

Conector final