读取文件名填充到另一个工作簿的工作表的指定位置

张劲松2024

检校证书查询系统.rar (1.4 MB, 下载次数: 4)

2024-7-25 15:02 上传

点击文件名下载附件

          1.读取检校证书扫描件中的文件名
          2.填充到检校整数查询（模板）工作表“检校证书”B列，并自动填充序号
          3.在检校整数查询（模板）工作表“检校证书”的E列建立超链接
          4.在“模糊查询”工作表内，点击“打开PDF文件”，能自动打开对应PDF文件

张劲松2024

急用，请各位大佬们帮帮忙！！！！！！

ykcbf1100

张劲松2024 发表于 2024-7-25 15:10
急用，请各位大佬们帮帮忙！！！！！！

你是要读取PDF文件中的内容？

张劲松2024

不是，能打开对应的PDF文件就行！

ykcbf1100

张劲松2024 发表于 2024-7-25 15:33
不是，能打开对应的PDF文件就行！

由于 VBA 本身没有内置的功能来直接打开 PDF 文件，你需要依赖外部程序，如 Adobe Acrobat Reader 或其他支持 COM 接口的 PDF 阅读器。所以，打开pdf文件应该是不能直接使用的。
我先把文件提取出来吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.25
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Set ws = ThisWorkbook
   
5.     p = ThisWorkbook.Path & "\检校证书扫描件"
   
6.     ReDim brr(1 To 1000, 1 To 5)
   
7.     For Each f In fso.GetFolder(p).Files
   
8.         If LCase$(f.Name) Like "*.pdf" Then
   
9.             fn = fso.GetBaseName(f)
   
10.             m = m + 1
    
11.             brr(m, 1) = m
    
12.             brr(m, 2) = fn
    
13.             brr(m, 5) = f
    
14.         End If
    
15.     Next f
    
16.     With ws
    
17.         With .Sheets("检校证书")
    
18.             .[a4:e1000] = ""
    
19.             .[a4].Resize(m, 5) = brr
    
20.         End With
    
21. '        With .Sheets("模糊查询")
    
22. '            .[a3:e1000] = ""
    
23. '            .[a3].Resize(m, 5) = brr
    
24. '        End With
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "OK！"
    
28. End Sub

复制代码

张劲松2024

好的，谢谢了！