VBA粘贴格式控制.doc

《VBA粘贴格式控制.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ExcelVBA教程：PasteSpecial方法应用于Range对象的PasteSpecial方法。将剪贴板中的Range对象粘贴到指定区域中。expression.PasteSpecial(Paste,Operation,SkipBlanks,Transpose)expression必需。该表达式返回一个Range对象。PasteXlPasteType类型，可选。指定要粘贴的区域部分。XlPasteType可为以下XlPasteType常量之一。xlPasteAll默认值xlPasteAllExcept

2、BordersxlPasteColumnWidthsxlPasteCommentsxlPasteFormatsxlPasteFormulasxlPasteFormulasAndNumberFormatsxlPasteValidationxlPasteValuesxlPasteValuesAndNumberFormatsOperationXlPasteSpecialOperation类型，可选。指定粘贴操作。XlPasteSpecialOperation可为以下XlPasteSpecialOperation常

3、量之一。xlPasteSpecialOperationAddxlPasteSpecialOperationDividexlPasteSpecialOperationMultiplyxlPasteSpecialOperationNone默认值xlPasteSpecialOperationSubtractSkipBlanksVariant类型，可选。若为True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为False。TransposeVariant类型，可选。若为True，则粘贴区域时转置行和列

4、。默认值为False。应用于Worksheet对象的PasteSpecial方法。以指定格式将剪贴板中的内容粘贴到工作表上。可用本方法从其他应用程序中粘贴数据，或以特定格式粘贴数据。expression.PasteSpecial(Format,Link,DisplayAsIcon,IconFileName,IconIndex,IconLabel,NoHTMLFormatting)expression必需。该表达式返回一个Worksheet对象。FormatVariant类型，可选。指定数据的剪贴板格式的字符

5、串。LinkVariant类型，可选。若为True，则建立与被粘贴数据的源之间的链接。如果源数据不适于链接，或源应用程序不支持链接，将忽略本参数。默认值为False。DisplayAsIconVariant类型，可选。若为True，则将粘贴内容显示为图标。默认值为False。IconFileNameVariant类型，可选。如果DisplayAsIcon为True，则指定包含所用图标的文件名。IconIndexVariant类型，可选。图标文件内的图标索引号。IconLabelVariant类型，可选。图标

6、的文本标签。NoHTMLFormattingVariant类型，可选。若为True，则从HTML中删除所有的格式设置、超链接和图像。若为False，则完整粘贴HTML。默认值为False。说明注意当Format=“HTML”时，NoHTMLFormatting才起作用。在所有其他情况下，NoHTMLFormatting将被忽略。必须在使用本方法之前选定目标区域。本方法可能会更改工作表的选定区域，这取决于剪贴板中的内容。ExcelVBA教程：PasteSpecial方法·示例应用于Range对象。本示例用Sh

7、eet1上单元格区域C1:C5和单元格区域D1:D5原有内容的和来取代单元格区域D1:D5中的数据。WithWorksheets("Sheet1").Range("C1:C5").Copy.Range("D1:D5").PasteSpecial_Operation:=xlPasteSpecialOperationAddEndWith应用于Worksheet对象。本示例将剪贴板中的MicrosoftWord文档对象粘贴到Sheet1上的单元格D1中。Worksheets("Sheet1").Range("D1

8、").SelectActiveSheet.PasteSpecialformat:=_"MicrosoftWord8.0DocumentObject"本示例粘贴相同的MicrosoftWord文档对象，并将其显示为图标。Worksheets("Sheet1").Range("F5").SelectActiveSheet.PasteSpecial_Format:="MicrosoftWord8.0DocumentOb