主页 / user-14528694

Alireza Daneshmayeh's questions

Martin Hope
Alireza Daneshmayeh
Asked: 2023-08-17 19:23:37 +0800 CST
  • 4

如何从 Access 中的表中取出这些 pdf 格式的包文件并将其移动到文件夹中

如果可以的话，也提取（产品名称）和（pdf），那就太棒了；让我知道是否有解决办法；我会的。

例如这个

在此输入图像描述

这是文件：我作为示例创建的文件。如果可以的话，请检查并让我知道该文件的问题。另外，请指导我提取 PDF 文件所需的命令

我在VBA中使用了这段代码；没回答 ; 如果编码以外的其他方式也有效；说谢谢

Sub ExportPDFs()
    Dim rs As DAO.Recordset
    Dim filePath As String
    Dim fileNum As Integer
    
    
    
    Set rs = CurrentDb.OpenRecordset("SELECT pakage FROM Table1 ")
    
    If rs.RecordCount > 0 Then
        filePath = "C:\Users\AliReza\Desktop\folder\"
        
        rs.MoveFirst
        Do Until rs.EOF
            fileNum = FreeFile
            Open filePath & rs.Fields("pakage") & ".pdf" For Output As #fileNum
            Put #fileNum, , rs.Fields("Package").Value
            Close #fileNum
            
            rs.MoveNext
        Loop
    End If
    
    rs.Close
    Set rs = Nothing
End Sub
vba