Excel VBA复制和粘贴超链接

Question

我无法使用VB将超链接从一张纸复制并粘贴到另一张纸上。

我正在使用数据库连接将超链接拉到Sheet1，然后使用宏将数据库数据复制并粘贴到另一个工作表中，但是复制和粘贴不会粘贴＆＃34; Clickable＆＃34;链接，只有纯文本。

如何使用VB复制超链接，这是否可能？

Sheets("Sheet1").Select
Range("J19:K100").Select
Application.CutCopyMode = False
**Selection.SpecialCells(xlCellTypeVisible).Copy**
Sheets("Sheet2").Select
Range("C5:D100").Select
ActiveSheet.Paste **Link:=True**

非常感谢任何帮助！ 谢谢！

更新

我正在使用数据库连接，该连接包含URL /超链接。我已经尝试过过滤表的代码，但这仅在链接直接输入到单元格中时才有效。即通过右击单元格输入＆gt;超链接。

有没有人在excel之前从数据库连接中复制过URL？

感谢。

Answer 1

您可以使用以下粘贴特殊选项来粘贴链接。

ActiveSheet.PasteSpecial xlPasteAll