【烟花原创】VBA零基础之第52篇 工作表对象Worksheet（七）

hwc2ycy

　　Worksheet.Paste 方法

　　将“剪贴板”中的内容粘贴到工作表上。

　　语法：Paste(Destination, Link)

　　Destination 可选 Variant 一个 Range 对象，指定用于粘贴剪贴板中内容的目标区域。
　　如果省略此参数，就使用当前的选定区域。仅当剪贴板中的内容能被粘贴到某区域时，才能指定此参数。
　　如果指定了此参数，则不能使用 Link 参数。

　　Link 可选 Variant 如果为 True，则链接到被粘贴数据的源。
　　如果指定此参数，则不能使用 Destination 参数，默认值是 False。

　　如果不指定 Destination 参数，则在使用该方法之前必须选择目标区域。

　　该方法可能会修改工作表的选定区域，这取决于剪贴板中的内容。

　　示例：

　　　ActiveSheet.UsedRange.Copy

　　　Range("a33").Select

　　　Workbooks(1).Worksheets(1).Paste

　　　'复制活动工作表内使用的单元格区域，粘贴在活动工作表的A33单元格区域

　　　ActiveSheet.UsedRange.Copy

　　　ActiveSheet.PasteWorkbooks(2).Worksheets(1).Range("b30")

　　　'复制活动工作表内使用的单元格区域到剪贴板，粘贴到第2个工作簿中的第一个工作表内的B30

　　　ActiveSheet.UsedRange.Copy

　　　Workbooks(2).Worksheets(2).Paste link:=True

　　　'复制活动工作表内使用的单元格区域，粘贴到第2个工作簿对象中的第2个工作表内（粘贴链接）

　　Worksheet.PasteSpecial 方法

　　以指定格式将剪贴板中的内容粘贴到工作表上。
　　可用本方法从其他应用程序中粘贴数据，或以特定格式粘贴数据。

　　语法：

　　PasteSpecial(Format, Link, DisplayAsIcon,IconFileName, IconIndex, IconLabel, NoHTMLFormatting)

　　Format 可选 Variant 指定数据的剪贴板格式的字符串。

　　Link 可选 Variant 如果为 True，则链接到被粘贴数据的源。
　　如果源数据不适于链接，或源应用程序不支持链接，将忽略此参数。默认值是 False。

　　DisplayAsIcon 可选 Variant 如果为 True，则将粘贴内容显示为图标。默认值是 False。

　　IconFileName 可选 Variant 如果DisplayAsIcon 为 True，则指定包含所用图标的文件名。

　　IconIndex 可选 Variant 图标文件内的图标索引号。

　　IconLabel 可选 Variant 图标的文本标签。

　　NoHTMLFormatting 可选 Variant 如果为 True，则从 HTML 中删除所有的格式设置、超链接和图像。
　　如果为 False，则完整粘贴 HTML。默认值是 False。

　　说明：仅当 Format =“HTML”时，NoHTMLFormatting 才起作用，所有其他情况下将忽略 NoHTMLFormatting。

　　必须在使用本方法之前选定目标区域。

　　该方法可能会修改工作表的选定区域，这取决于剪贴板中的内容。

　　示例：

　　Worksheets("Sheet1").Range("D1").Select

　　ActiveSheet.PasteSpecial format:= _

　　   "Microsoft Word 8.0 Document Object"

　　‘此示例将剪贴板中的 MicrosoftWord 文档对象粘贴到工作表 Sheet1 上的单元格 D1 中。

　　Worksheets("Sheet1").Range("F5").Select

　　ActiveSheet.PasteSpecial _

　　       Format:="Microsoft Word 8.0 Document Object", _

　　       DisplayAsIcon:=True

　　‘此示例粘贴相同的 MicrosoftWord 文档对象，并将其显示为图标。

　　Worksheet.PrintOut 方法

　　打印特定的工作表对象。

　　语法：

　　PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile,Collate, PrToFileName, IgnorePrintAreas)

　　From 可选 Variant 打印的开始页号。如果省略此参数，则从起始位置开始打印。

　　To 可选 Variant 打印的终止页号。如果省略此参数，则打印至最后一页。

　　Copies 可选 Variant 打印份数。如果省略此参数，则只打印一份。

　　Preview 可选 Variant 如果为 True，MicrosoftExcel 将在打印对象之前调用打印预览。
　　如果为 False（或省略该参数），则立即打印对象。

　　ActivePrinter 可选 Variant 设置活动打印机的名称。

　　PrintToFile 可选 Variant 如果为 True，则打印到文件。
　　如果没有指定 PrToFileName，Microsoft Excel 将提示用户输入要使用的输出文件的文件名。

　　Collate 可选 Variant 如果为 True，则逐份打印多个副本。

　　PrToFileName 可选 Variant 如果PrintToFile 设为 True，则该参数指定要打印到的文件名。

　　IgnorePrintAreas 可选 Variant 如果为 True，则忽略打印区域并打印整个对象。

　　示例：

　　　ActiveSheet.PrintOut

　　　打印当前活动工作表。

　　Worksheet.PrintPreview 方法

　　按对象打印后的外观效果显示对象的预览。

　　语法：PrintPreview(EnableChanges)

　　EnableChanges 可选 Variant 传递 Boolean 值，以指定用户是否可更改边距和打印预览中可用的其他页面设置选项。

　　示例：

　　　Worksheets("Sheet1").PrintPreviewfalse
　　打印和打印预览这两个方法可以参考之前有讲过其他对象中的这两个方法，基本无差，只是打印的对象略有不同。

yewei113

学习了，收藏一下

tingfeng461002

含月化烛

{:29:}

ANDY0393

谢谢分享，标记，五十二