当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