MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Verificar se existe planilha de um arquivo do Excel

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Verificar se existe planilha de um arquivo do Excel Empty [Resolvido]Verificar se existe planilha de um arquivo do Excel

    Mensagem  baldocchi 16/5/2019, 16:49

    Olá a todos,

    Gostaria de saber se há como descobrir se uma planilha existe dentro de um arquivo do Excel.

    Eu uso o código abaixo para exportar uma tabela temporária para o Excel com o nome "temp", eu gostaria de sobreescrever essa planilha caso ela exista.
    Eu encontrei códigos para verificar se existem arquivos e tabelas, mas para ver se a planilha existe, estou apanhando um pouco.
    Sei que é simples, mas não consigo mesmo.

    Obrigado a todos e espero que este código ajude alguém.

    Abraços

    Código:
    Dim db As DAO.Database
    Dim rs As Recordset
    Set db = CurrentDb

    Dim mySql, FileName As String

    mySql = "SELECT ContDigitalizacao.Nucleo, ContDigitalizacao.PrestAno, ContDigitalizacao.NumControle, ContDigitalizacao.DRE, ContDigitalizacao.ESCOLA, " & _
                 "ContDigitalizacao.PROGRAMA, ContDigitalizacao.cadastrado_em, ContDigitalizacao.Enviado_Em " & _
                 "FROM ContDigitalizacao " & _
                 "WHERE (((ContDigitalizacao.Nucleo)='pdde' Or (ContDigitalizacao.Nucleo)='ptrf'))"

    FileName = "C:\Users\Leandro\Desktop\x\teste.xlsx"

    db.CreateQueryDef "temp", mySql

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "temp", FileName, True

    DoCmd.DeleteObject acQuery, "temp"
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Verificar se existe planilha de um arquivo do Excel Empty Re: [Resolvido]Verificar se existe planilha de um arquivo do Excel

    Mensagem  ahteixeira 17/5/2019, 11:25

    Olá Leandro Baldocchi,

    Pode verificar se existe o ficheiro e caso exista apagar antes da nova exportação.
    O código fica assim:

    Código:
       Dim db As DAO.Database
        Dim rs As Recordset
        Set db = CurrentDb
        
        Dim mySql, FileName As String
        
        mySql = "SELECT ContDigitalizacao.Nucleo, ContDigitalizacao.PrestAno, ContDigitalizacao.NumControle, ContDigitalizacao.DRE, ContDigitalizacao.ESCOLA, " & _
                     "ContDigitalizacao.PROGRAMA, ContDigitalizacao.cadastrado_em, ContDigitalizacao.Enviado_Em " & _
                     "FROM ContDigitalizacao " & _
                     "WHERE (((ContDigitalizacao.Nucleo)='pdde' Or (ContDigitalizacao.Nucleo)='ptrf'))"
        
        FileName = "C:\Users\Leandro\Desktop\x\teste.xlsx"
        
        'verifica se existe e apaga
        If Dir(FileName) & "" <> 0 Then Kill FileName
        
        db.CreateQueryDef "temp", mySql
        
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "temp", FileName, True
        
        DoCmd.DeleteObject acQuery, "temp"

    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Verificar se existe planilha de um arquivo do Excel Empty Re: [Resolvido]Verificar se existe planilha de um arquivo do Excel

    Mensagem  baldocchi 17/5/2019, 16:30

    Olá, ahteixeira

    MUITO OBRIGADO! funcionou perfeitamente.

    Abraços
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Verificar se existe planilha de um arquivo do Excel Empty Re: [Resolvido]Verificar se existe planilha de um arquivo do Excel

    Mensagem  ahteixeira 17/5/2019, 16:57

    Olá Leandro Baldocchi,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 25/7/2021, 03:51