如何在使用vba从一个工作簿复制到另一个工作簿时保持超链接原样

Question

我是VBA新手，我有一个工作簿，其中一个单元格具有带超链接的值，我正试图将该单元格值和超链接一起复制到另一个工作簿中，例如excel的保持源格式功能。

这是代码：

Worksheets("Sheet1").Cells(1, 2) = objWorkbook.Worksheets(1).Cells(1, 2)

这段代码只是移动值，但我需要带超链接的值。

Answer 1

因为您使用的语句只能将值从一个单元格传递到另一个单元格。

实际上，Cells(1, 2)与Cells(1, 2).Value的定义相同，因此您的语句实际上与相同

Worksheets("Sheet1").Cells(1, 2).Value = objWorkbook.Worksheets(1).Cells(1, 2).Value

现在很清楚为什么它只复制值了。

如果要复制整个单元格，则需要使用Range.copy方法。