文件夹中有多个本地htm的网页,想要:
目前写了一半代码,出现要么粘贴了原网页的所有格式和内容,要么无法粘贴,要么粘贴时涉及长数字的自动变为了科学计数。恳请大家指教!
Public Sub vba网页复制粘贴()
fn = Dir(ThisWorkbook.Path & "\*htm")
On Error Resume Next
Set xmlhttp = Nothing
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
LI = ThisWorkbook.Path & "\" & fn
With xmlhttp
.Open "get", LI, False
.Send
tem = .responsetext
End With
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tem
.PutInClipboard
End With
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fn & ".xlsx"
Cells.Select
Selection.NumberFormatLocal = "@"
Range("A1").Select
ActiveSheet.PasteSpecial.PasteSpecial (xlPasteValues) '运行后仍未粘贴到excel中,如直接使用activesheet.paste则粘贴了网页的所有格式。
End Sub
相似问题