Excelに何百、何千ものpdfファイルを埋め込む？

挿入することは可能で効率的ですか？ - 約1000のPDFファイルをExcel文書にオブジェクト化するか、それとも非常に遅い/他の問題を始めますか？

microsoft-excel microsoft-excel-2010

— Paze
ソース

あなたは正確にどんな問題を解決しようとしていますか？

— Ramhound

私は約1000のPDFをネットワークドライブに提出し、それらを私のExcel文書にリンクしましたが、どういうわけかExcelはパスを変え続けています。見る： superuser.com/questions/783347/… だから私は他の解決策を見つけようとしています。あなたがファイルを開くためにエクセルのリンクをクリックすることができるように、1000のPDFファイルをエクセル文書にリンクするための最良の方法は何でしょうか？

— Paze

私は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

— gtwebb
ソース