vba - 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")

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

有人可以在这里支持吗？谢谢！

标签： vbaexcel

Answer 1

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

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