VBA求助，將html文件批量轉換成xls

dim fpath,fname,newname

fpath="D:\work\test\20150724_mode\z1\"

fname=dir(fpath & "*.mht")

while fname<>""

Workbooks.OpenFilename:=fpath & fname

newname=fpath & fname & ".xls"

ActiveWorkbook.SaveAsFilename:= _

newname,FileFormat:=xlOpenXMLWorkbook _

, CreateBackup:=False

fname=dir()

wend

End Sub