Olá, @mestre
Precisava somente exportar sem vínculos.
Como é feita essa exportação?
...não possui formulas.
Então onde estão os links? Em intervalos nomeados? Figuras?
De qualquer forma, se forem links comuns do Excel vc pode usar o código abaixo para quebrá-los:
Sub QuebraLinks()
Dim wb As Workbook, vínculo As Variant
Set wb = Workbooks("Nome do seu Workbook a quebrar links aqui")
If Not IsEmpty(wb.LinkSources(XlLink.xlExcelLinks)) Then
For Each vínculo In wb.LinkSources(xlExcelLinks)
wb.BreakLink Name:=vínculo, Type:=xlLinkTypeExcelLinks
Next vínculo
End If
End Sub
O ideal seria anexar seu modelo para vermos como está sendo feita essa exportação e onde estão os links.
Postado : 14/08/2020 2:05 am