Question

我有一些非常简单的代码但每次修复时都会遇到错误。不确定我是否只是做了一些完全错误的事情。我尝试做的就是将一系列单元格从另一个驱动器上的工作簿复制到ThisWorkbook作为图片。

第一次攻击计划：

Dim BBPic As Workbook
Dim test As Workbook
Set BBPic = Application.Workbooks.Open("\\OtherDrive\Shared\OtherGroup\DailySheet.xlsx")
Set test = ThisWorkbook

BBPic.Sheets("Sheet1").Range("B2:E16").Copy
test.Sheets("Summary").Range("B64").Pictures.Paste

结果出错：Object doesn't support this property or method

上的test.Sheets("Summary").Range("B64").Pictures.Paste

所以我基于this post更多地分解了它，但我并不完全明白他们正在完成什么。

第二次尝试：

Dim BBPic As Workbook
Dim test As Workbook
Set BBPic = Application.Workbooks.Open("\\OtherDrive\Shared\OtherGroup\DailySheet.xlsx")
Set test = ThisWorkbook


BBPic.Sheets("Sheet1").Range("B2:E16").Copy
test.Sheets("Summary").Select
ActiveSheet.Range("B64").Select
ActiveSheet.Pictures.Paste

结果出错：Select Method of Worksheet class failed

上的test.Sheets("Summary").Select

然后我提到this post，但似乎我做的是同样的事情，但只是一种不同的方式。现在我不知道该怎么做。有什么帮助吗？

Answer 1

这将有效：

Dim BBPic As Workbook
Dim test As Workbook
Set BBPic = Application.Workbooks.Open("\\OtherDrive\Shared\OtherGroup\DailySheet.xlsx")
Set test = ThisWorkbook

BBPic.Sheets("Sheet1").Range("B2:E16").CopyPicture
test.Sheets("Summary").Range("B64").PasteSpecial

VBA工作簿间操作 - 每次我修复某些内容时都会出错

1 个答案: