自動ででPDFのリストを作りたいのですが。 友人から教えてもらったものでは出来ませんでした。 改良があれば教えてください Sub PDFリストを作る() Dim fso As Object Dim folder As Object Dim file As Object Dim i As Long Dim targetPath As String Dim ws As Worksheet '★ ここに自分のPDFフォルダの場所を入れてね！ targetPath = "C:\Users\Public\Documents\PDFs" '--- 初期設定 --- Set ws = ThisWorkbook.Sheets(1) ws.Cells.Clear Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(targetPath) i = 2 '--- 見出し（1行目） --- ws.Cells(1, 1).Value = "ファイル名" ws.Cells(1, 2).Value = "更新日" ws.Cells(1, 3).Value = "サイズ(KB)" ws.Cells(1, 4).Value = "開くリンク" '--- PDFを探して一覧にする --- For Each file In folder.Files If LCase(fso.GetExtensionName(file.Name)) = "pdf" Then ws.Cells(i, 1).Value = file.Name ws.Cells(i, 2).Value = file.DateLastModified ws.Cells(i, 3).Value = Round(file.Size / 1024, 1) ws.Hyperlinks.Add Anchor:=ws.Cells(i, 4), _ Address:=file.Path, _ TextToDisplay:="開く" i = i + 1 End If Next file '--- 見た目を整える --- ws.Columns("A:D").AutoFit MsgBox "PDFリストができました！", vbInformation End Sub
