Question

我需要在当前的工作簿中添加指向其他Excel文件的链接。这是我的VBA代码的一部分：


v_fileNameToImport = ThisWorkbook.Path & "\" & v_techs(i) & "\" & v_regions(j) & "\Results\" & v_files(k)
v_sheetName = "RESUMO " & v_regions(j)

'Check if there is already a tab for this region
If (SheetExists(v_sheetName)) Then
   Worksheets(v_sheetName).OLEObjects.Add Filename:=v_fileNameToImport, Link:=True, DisplayAsIcon:=True, Top:=40, Left:=160, Width:=100, Height:=100
Else
   Set v_sheet = ThisWorkbook.Sheets.Add
   v_sheet.Name = v_sheetName
   v_sheet.OLEObjects.Add Filename:=v_fileNameToImport, Link:=True, DisplayAsIcon:=True, Top:=40, Left:=40, Width:=100, Height:=100
End If

运行宏后，每个文件链接显示为空白矩形而不是Excel图标。当我点击它时，它开始打开另一个文件，但立即崩溃。

编辑：当我第二次运行宏时，即在已经导入文件之后，它会崩溃，并且在宏启动时会删除所有选项卡。也许对文件的引用仍然是因为它的选项卡被删除，导致与同一文件的新引用冲突的原因。从新文件运行时，不会发生此问题。

嵌入式Excel文件崩溃

0 个答案: