MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    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 em 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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    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 em 17/5/2019, 16:30

    Olá, ahteixeira

    MUITO OBRIGADO! funcionou perfeitamente.

    Abraços
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    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 em 17/5/2019, 16:57

    Olá Leandro Baldocchi,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 16:47