VB 复制 Excel 迷你图

Question

我正在使用 Blueprism Process 运行 VB 脚本。它复制一系列 excel 值并粘贴为源格式。当它运行s 时，它没有正确粘贴迷你图。

代码：

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

不确定为什么要将 2 paste 设为特殊。但首先你只粘贴值，后来只粘贴格式：

xlPasteValues -4163 粘贴值。 xlPasteFormats -4122 粘贴复制的源格式。

你可以在一行中完成：

xlPasteValuesAndNumberFormats 12 粘贴值和数字格式。

但是如果你想粘贴为源使用这个：

xlPasteAllUsingSourceTheme 13 一切都将使用源主题粘贴。

来源：https://docs.microsoft.com/en-us/office/vba/api/excel.xlpastetype

VB 复制 Excel 迷你图

VB To Copy Excel Sparklines

excel

vba

blueprism