![在 Excel 中嵌入数百甚至数千个 pdf 文件?](https://linux22.com/image/1415565/%E5%9C%A8%20Excel%20%E4%B8%AD%E5%B5%8C%E5%85%A5%E6%95%B0%E7%99%BE%E7%94%9A%E8%87%B3%E6%95%B0%E5%8D%83%E4%B8%AA%20pdf%20%E6%96%87%E4%BB%B6%EF%BC%9F.png)
将大约 1000 个 PDF 文件插入到 Excel 文档中是否可行且高效,或者是否会开始运行得极其缓慢/出现其他问题?
答案1
我想不出 excel 应该更改文件路径的理由。如果您想要一种更快地更新超链接的方法,您可以使用类似这样的方法。
您指定一个文件目录,它假定 A 列中的所有值都是 pdf 名称(末尾没有 .pdf),并且它会添加所有超链接。
Sub add_hypers()
Dim last As Integer
Dim x As Integer
Dim name As String
Dim directory As String
Dim file As String
directory = "C:\"
last = Data.Range("A65536").End(xlUp).Row
For x = last To 2 Step -1
name = Data.Range("A" & x).Value
file = directory & name & ".pdf"
ActiveSheet.Hyperlinks.Add Anchor:=Data.Range("A" & x), Address:=file
Next
End Sub