Início / coding / Perguntas / 76921039
Accepted
Alireza Daneshmayeh
Asked: 2023-08-17 19:23:37 +0800 CST

Extrair arquivos de um objeto OLE do Access

  • 772

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

1 respostas

  1. Best Answer

    Primeiro, você precisa de duas colunas diferentes para o nome do documento (vamos chamá-lo de Name) e para o objeto OLE ( Package) que armazena o documento.

    Então você pode usar um ADODB.Streampara armazenar o objeto OLE em um arquivo.

    Sub ExportPDFs()
    Dim rs As DAO.Recordset
    Dim folder As String, path As String
    Dim adoStream As Object 'Late bound ADODB.Stream
    
    folder = "C:\Users\AliReza\Desktop\folder\"
    Set rs = CurrentDb.OpenRecordset("SELECT Name, Package FROM documents")
    Do Until rs.EOF
        path = folder & rs!Name & ".pdf"
        
        Set adoStream = CreateObject("ADODB.Stream")
        adoStream.Type = 1 'adTypeBinary
        adoStream.Open
        adoStream.Write rs("Package").Value
        adoStream.SaveToFile path, adSaveCreateOverWrite
        adoStream.Close
        
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
End Sub

    Veja: Abordagem de @ErikA usando ADODB.Stream .

    • 0

relate perguntas