[Excel] Worksheet.PasteSpecial

本文详细介绍了VBA中PasteSpecial方法的用法,包括各参数的意义及如何使用该方法来实现不同格式的数据粘贴。文章还提供了一个具体的示例,展示了如何针对特定范围使用PasteSpecial方法。
PasteSpecial(Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, NoHTMLFormatting)

1. Format

可选。一个字符串,指定数据的剪贴板格式。常见格式字符串包括“HTML”、“位图”、“超链接”、“Unicode 文本”和“文本”。

2. Link

可选。为 true 可建立指向粘贴数据的源的链接。如果源数据不适合链接或源应用程序不支持链接,则忽略此参数。默认值为 false

3. DisplayAsIcon

可选。为 true 可以图标形式显示粘贴的对象。默认值为 false

4. IconFileName

可选。如果 DisplayAsIcon 为 true ,则为包含要使用的图标的文件的名称。

5. IconIndex

可选。图标文件中该图标的索引号。

6. IconLabel

可选。图标的文本标签。

7. NoHTMLFormatting

可选。为 true 可从 HTML 移除所有格式设置、超链接和图像;为 false 可按原样粘贴 HTML。 默认值为 false。(注:只有当 Format="HTML" 时才有效)

 

说明:在使用该方法之前,必须 select 目标 range。

举例:

Worksheets("Sheet1").Range("D1").Select ActiveSheet.PasteSpecial format:= "Microsoft Word 8.0 Document object"

转载于:https://www.cnblogs.com/memento/p/4241500.html

将修改的代码给我完整的写出来,这是原本整体的VAB代码 Private Sub CommandButton1_Click() Dim objIEApp As InternetExplorerMedium Dim objIEDoc As Object Dim objIETable As Object Dim objClip As DataObject Dim objSheet As Worksheet Dim src, ac, name, pas, web, lang src = "Bugzilla" ac = "account" name = "A3" pas = "B3" web = "B1" Set objSheet = Sheets(src) Set objBuglist = Sheets(ac) 'check system language Dim LocaleID As Long '创建IE的实例 'Set objIEApp = New InternetExplorerMedium Set objIEApp = CreateObject("InternetExplorer.Application") '测试时显示IE浏览器,测试完成后,可以注释掉 objIEApp.Visible = True '跳转到登陆界面 objIEApp.navigate "https://logincas.tp-link.com:8443/login?service=http://bugzilla.tp-link.com/" '等待IE浏览器启动成功 Do While objIEApp.Busy: DoEvents: Loop '等待登陆界面完成 Do Until objIEApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop '获取登陆界面 Set objIEDoc = objIEApp.document '填充登陆界面的用户名和密码--可以通过F12查看网页的源代码 'With objIEDoc.forms(0) ' .UserName.Value = objBuglist.Range(name).Value ' .Password.Value = objBuglist.Range(pas).Value ' .loginBtn.Click '.submit 'End With '等待浏览器响应 'Do While objIEApp.Busy: DoEvents: Loop '等待登陆成功 'Do Until objIEApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop '登陆成功,跳转至表格存在的界面 objIEApp.navigate objBuglist.Range(web).Value Do While objIEApp.Busy: DoEvents: Loop Do Until objIEApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop '获取页面中的表格元素mytable是表的Id Set objIEDoc = objIEApp.document Set objIETable = objIEDoc.all.Item("buglist_table") '将表格html从网页复制到excel sheet中 If Not objIETable Is Nothing Then Set objClip = New DataObject objClip.SetText "" & objIETable.outerHTML & "" objClip.PutInClipboard objSheet.Select objSheet.Range("A1").Select 'objSheet.PasteSpecial lang LocaleID = Application.LanguageSettings.LanguageID(msoLanguageIDUI) Select Case LocaleID Case 2052 objSheet.PasteSpecial "Unicode 文本", xlPasteAll Case 1028 objSheet.PasteSpecial "Unicode 文本", xlPasteAll Case 1033 objSheet.PasteSpecial "Unicode Text", xlPasteAll Case Else objSheet.PasteSpecial "Unicode Text", xlPasteAll End Select End If 'close 'er up objIEApp.Quit Set objIEApp = Nothing If Sheets("schedule").Cells(2, 1) = "" Then Sheets("Bugzilla").Range("A2:A" & Sheets("Bugzilla").[B65536].End(xlUp).Row).copy Sheets("schedule").Range("A2") add_http (2) End If Sheets("schedule").Activate End Sub
最新发布
08-12
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值