VB 要粘贴为值和源格式的代码

Question

我正在使用 Blueprism 来自动化一个使用 Excel 的过程。我需要复制某些单元格并粘贴为值和源格式。我正在使用以下代码。在运行工作之后，值仍然是公式而不是值。

Dim wb, excel, range As Object

Try

wb = GetWorkbook(Handle, Workbook)
excel = wb.Application

range = excel.Selection
range.PasteSpecial(Paste:=-4163, SkipBlanks:=False, Transpose:=False)
range.PasteSpecial(Paste:=-4122, SkipBlanks:=False, Transpose:=False)

Success = True

Catch e As Exception
Success = False
Message = e.Message
Finally
wb = Nothing
range = Nothing
End Try

Answer 1

如果你想粘贴值和数字格式，它应该是粘贴:=12。

对于粘贴值，它是粘贴：= -4163。

粘贴:=13 用于 'paste all using source theme'。

要粘贴值和所有格式：

range.PasteSpecial(Paste:=-4163)
range.PasteSpecial(Paste:=-4122)

VB 要粘贴为值和源格式的代码

VB Code to Paste as values and Source Formatting

excel

vba

blueprism