当前位置：首页 → 问答吧 → 如何去除文本框，保留文字和内容

如何去除文本框，保留文字和内容

时间：2010-11-15

来源：互联网

请教各位高手，我因工作需要，要将社会保险网站上的人员信息资料复制到excel中，并与自己已有的信息进行核对。但复制到excel中有一个个的文本框，名字，社保号等等，核对不了。想请教如何去除文本框，保留文字，并且形式不变？
现上传附件（注：为减少大小，现只选了三条记录，一共有700余条记录）

附件

附件.rar(50.71 KB)

2010-11-15 16:18, 下载次数: 18

作者: zoulii 发布时间: 2010-11-15

这个估计有难度了，等待高手。

作者: changxuegu 发布时间: 2010-11-15

别复制粘贴,尝试网页是否让导,直接通过EXCEL的导入外部数据

作者: su11wei18 发布时间: 2010-11-15

楼主你好像发错区了，试试这个代码

复制内容到剪贴板

代码:

Sub test()
Dim obj As OLEObject
[b:b].NumberFormatLocal = "@"
For Each obj In Me.OLEObjects
If TypeName(obj.Object) = "HTMLText" Then
      If obj.TopLeftCell.Column > 8 Then
         obj.TopLeftCell = obj.Object.Value
      Else
         obj.TopLeftCell.Offset(0, -1) = obj.Object.Value
      End If
ElseIf TypeName(obj.Object) = "HTMLCheckbox" Then
      If obj.Object.Checked Then
         obj.TopLeftCell.Offset(0, -1) = "是"
      Else
         obj.TopLeftCell.Offset(0, -1) = "否"
      End If
End If
obj.Delete
Next
End Sub

格式比较乱，估计删除后你还要再手工整理整理

[ 本帖最后由 honggexjq 于 2010-11-15 16:45 编辑 ]

作者: honggexjq 发布时间: 2010-11-15

选择性粘贴---数值，就不会有文本框嘛

作者: nmlihan 发布时间: 2010-11-15

能否直接用excel打开这个网站信息资料，或者把信息资料复制为文本文件，再用excel打开文本文件

作者: heike2004 发布时间: 2010-11-15