当vba添加的数据包含超链接时，Excel表不会自动展开

Question

我有几个excel工作簿，我想使用GetValue = ExecuteExcel4Macro（arg）方法在一个excel表中合并。

当宏将数据添加到表格底部时，表格应自动展开并传输公式和格式。

这非常有效，直到我想要添加超链接：

ActiveSheet.Hyperlinks.Add anchor:=ActiveWorkbook.Worksheets("Series").Cells(Irow, 3), _
                            Address:=fullpath, TextToDisplay:=GetValue(pfad, datei, blatt, "F3")

包含此行时，正确输入了超链接，但表格不会展开。如果没有超链接，表格会按原样扩展。

有人可以支持吗？谢谢！

Answer 1

在您的代码之前使用此代码一行：

ActiveWorkbook.Worksheets("Series").Cells(Irow - 1, 3).ListObject.ListRows.Add AlwaysInsert:=True