从网页上粘贴内容数据到excel
发布网友
发布时间：2022-05-01 16:09
共5个回答
热心网友
时间：2022-06-19 07:07
1、打开Excel 2010， 切换到【数据】选项卡，在【获取外部数据】组中单击【自网站】按钮。
2、打开【新建Web查询】对话框，将网页（以hao123链接（www.hao123.com）为例）粘贴到地址栏中，单击【转到】按钮。
3、网页打开后，会看到带黄底色的向右箭头，单击可选定整个页面。
4、单击后，绿箭头变成绿勾，这时处于选定了整个页面，框中的数据就可以导到Excel 2010。
5、单击【选项】按钮，打开【Web查询选项】对话框，在这里可以选择导入Excel的格式，【无】指只导入文字，【仅 RTF 格式】指导入格式但不包含链接，【完全 HTML 格式】指导入文字、格式和链接。
6、所需的数据选好后，单击【导入】按钮。
7、然后选择存放数据的单元格，单击【确定】按钮。
8、数据添加到Excel表格后，可以做些美化或添加格式。如果需要更新数据的时候，切换到【数据】选项卡，单击【连接】组的【全部刷新】按钮。
热心网友
时间：2022-06-19 07:08
有两种方法
一是直接在EXCEL中用 获取外部数据 自网站
直接在网站查询数据到表中
另外一种方法是 粘贴
不过粘贴后在分列时，你要选择每一列的数据类型，就不会出现数字用科学计数法的情况了
不会按下图方式联系我
热心网友
时间：2022-06-19 07:08
可以用VBA自动全选复制整理粘贴一气呵成。
Set ie = CreateObject("InternetExplorer.Application") '设置变量With ie '设置块
.Navigate (wz)
.Visible = True
While .readystate <> 4 '延迟等待页面加载完毕
DoEvents
Wend
.Document.body.Focus '定位
.Document.execCommand "SelectAll" '全选
.Document.execCommand "copy" '复制
Application.Wait (Now + TimeValue("0:00:03"))
End With '块结束
Application.SendKeys "^{F4}" '发送按键关闭当前浏览器标签
'剪贴板到变量并整理数据
Dim R As New DataObject, S, t, U, i, j '定义变量
R.GetFromClipboard '获取剪贴板到R
S = R.GetText '将文本传到变量S
然后再对变量进行整理（选择有用的数据到数组）。wz的位置填网址。
你将网址发上来，我帮你做好。
热心网友
时间：2022-06-19 07:09
看样子像身份证。
先提取身份证=LEFT(A1,18)。再分列
或者分列时直接把列数据格式点选为文本
热心网友
时间：2022-06-19 07:10
还有就是，你如果保存了。那你就做无用功了，excel支持15位纯数字，超过15位纯数字的输入后面就会变成0,恢复不了了。如果没保存。
就分列--分隔符号--下一步--下一步（选择文本格式），完成
