Mungkin begini
Sub OpenHTMLToXls()
Dim fName As String, xlsName As String
fName = ThisWorkbook.path & "\D1581155841.htm"
xlsName = Replace(fName, "htm", "xls")
Workbooks.Open Filename:=fName
ActiveWorkbook.SaveAs Filename:=xlsName, _
FileFormat:=xlNormal, Password:=""
En
Saya ada problem tentang merubah format laporan dalam bentuk htm di-ubah
menjadi format excel.
Selama ini saya membuat dengan cara manual dengan cara meng-klik file htm
tersebut kemudian dibuka dengan cara open with microsoft excel. Masalah yang
sering timbul adalah banyak karakter khususnya ang
2 matches
Mail list logo