从网页上粘贴内容数据到excel

2024-12-15 10:24:28

推荐回答（5个）

回答1：

　　1、打开Excel 2010，切换到【数据】选项卡，在【获取外部数据】组中单击【自网站】按钮。

　　2、打开【新建Web查询】对话框，将网页（以hao123链接（www.hao123.com）为例）粘贴到地址栏中，单击【转到】按钮。

　　3、网页打开后，会看到带黄底色的向右箭头，单击可选定整个页面。

　　4、单击后，绿箭头变成绿勾，这时处于选定了整个页面，框中的数据就可以导到Excel 2010。

　　5、单击【选项】按钮，打开【Web查询选项】对话框，在这里可以选择导入Excel的格式，【无】指只导入文字，【仅 RTF 格式】指导入格式但不包含链接，【完全 HTML 格式】指导入文字、格式和链接。

　　6、所需的数据选好后，单击【导入】按钮。

　　7、然后选择存放数据的单元格，单击【确定】按钮。

　　8、数据添加到Excel表格后，可以做些美化或添加格式。如果需要更新数据的时候，切换到【数据】选项卡，单击【连接】组的【全部刷新】按钮。

回答2：

有两种方法

一是直接在EXCEL中用获取外部数据自网站

直接在网站查询数据到表中

另外一种方法是粘贴

不过粘贴后在分列时，你要选择每一列的数据类型，就不会出现数字用科学计数法的情况了

不会按下图方式联系我

回答3：

可以用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的位置填网址。

你将网址发上来，我帮你做好。

回答4：

看样子像身份证。

先提取身份证=LEFT(A1,18)。再分列

或者分列时直接把列数据格式点选为文本

回答5：

你分列的时候，到第三步选择文本格式就可以了。
还有就是，你如果保存了。那你就做无用功了，excel支持15位纯数字，超过15位纯数字的输入后面就会变成0,恢复不了了。如果没保存。
就分列--分隔符号--下一步--下一步（选择文本格式），完成