Question

vb6中在excel中调用 选择性粘贴的问题

Sub Formulas_to_Value()

Dim XLAPP As Object
Set XLAPP = GetObject(, "Excel.Application")
Set AWB = XLAPP.ActiveWorkbook

XLAPP.Application.CutCopyMode = False
Dim a As Integer
a = AWB.Sheets.Count
For X = 1 To a
Set ASH = XLAPP.Worksheets(X)
ASH.Select

With AWB.ActiveSheet.UsedRange.Copy
AWB.ActiveSheet.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

AWB.ActiveSheet.Range("A1").Select
XLAPP.Application.CutCopyMode = False
End With
Next

End Sub

Answer 1

如果我们需要复制自定义格式所显示的内容，而不是数据本身，可以利用下面三种方法：

1、直接插入到单元格中。首先选择需要复制的数据区域，然后连续按两次Ctrl+C复制并调出剪贴板，然后双击目标单元格或按F2进入单元格编辑状态，再点击剪贴板中需要粘贴的对象，就可以粘贴到单元格中。

此方法的优缺点就是：如果是多行多列的数据，都合并在同一个单元格中。

2、利用记事本。首先复制数据区域的内容，再粘贴到记事本中（文本文件中），然后再复制记事本中刚才粘贴的内容，再粘贴的Excel的目标区域中。需要注意的是，如果显示的值可以自动转化为数据的话，目标区域的单元格格式，需要在粘贴之前设定为文本！

此方法的缺点就是：要借用其它工具软件。

3、选择性粘贴。首先选择需要复制的数据区域，然后连续按两次Ctrl+C复制并调出剪贴板，然后选择目标区域，再点击剪贴板中需要粘贴的对象粘贴（重要），最后再用选择粘贴——文本，就可以把我们需要的数据贴粘到目标区域中。同样，如果显示的值可以自动转化为数据的话，需要在最后一次的选择粘贴之前，将目标区域的单元格格式设定为文本！

下面介绍“利用剪贴板复制自定义格式所显示内容”的方法。

方法1：复制单元格后，选择目标单元格，用鼠标点击编辑栏（或双击目标单元格），然后点击剪贴板中要粘贴的对象。

方法2：复制单元格后，选择目标单元格，点击剪贴板中要粘贴的对象，将复制的对象粘贴到目标单元格后，在目标单元格点鼠标右键“选择性粘贴”，在弹出的“选择性粘贴”对话框中选择粘贴方式“文本”。