时间戳

首页 > 解决方案 > VB复制Excel迷你图

excel - VB复制Excel迷你图

问题描述

我正在使用 Blueprism 进程来运行 VB 脚本。它复制一系列 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

标签： excelvbablueprism

解决方案

不知道你为什么要特别制作 2 粘贴。但首先你只粘贴值，然后只粘贴格式：

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

你可以在一行中做到这一点：

xlPasteValuesAndNumberFormats 12 粘贴值和数字格式。

但是，如果您想粘贴为源代码，请使用以下代码：

xlPasteAllUsingSourceTheme 13 将使用源主题粘贴所有内容。

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

推荐阅读