vba打开本地htm并全选复制后粘贴文本至新建excel，如何完善代码？
文件夹中有多个本地htm的网页，想要：
- 逐个打开htm；
- 全选htm内容；
- 新建工作簿，命名与htm名字一样；
- 将htm全选内容粘贴至工作簿，但仅粘贴为“匹配目标格式”；
- 要求：不需要原网页的诸如背景、颜色等格式，但涉及比较长的数字，能粘贴为文本格式，而不是粘贴后显示科学计数且自动将后几位变为0。
目前写了一半代码，出现要么粘贴了原网页的所有格式和内容，要么无法粘贴，要么粘贴时涉及长数字的自动变为了科学计数。恳请大家指教！
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
回答
和开发者交流更多问题细节吧，去 写回答
相关文章
相似问题
相关问答用户
请输入您想邀请的人