Início / user-14528694

Alireza Daneshmayeh's questions

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

Que tal pegar esses arquivos de pacote em formato PDF da tabela no Access e movê-los para uma pasta

Se puder, extraia o (nome do produto) e o (pdf) também. Isso seria incrível; deixe-me saber se há uma correção; eu seria t.

isso por exemplo

insira a descrição da imagem aqui

Este é o arquivo: aquele que criei como exemplo. Se puder, verifique e me informe o problema com este arquivo. Além disso, oriente-me sobre o comando necessário para extrair os arquivos PDF

Eu usei este código em VBA; Não respondeu ; Se outra maneira diferente da codificação também funcionar; diga obrigado

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