MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente

    avatar
    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 10/06/2012

    [Resolvido]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente Empty [Resolvido]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente

    Mensagem  mcsanches em 22/3/2020, 15:53

    bom dia caros amigos, espero que todos estejam bem com essa pandemia

    peço sua ajuda

    utilizo o método DoCmd.TransferSpreadsheet para importar planilhas do excel .xls que recebo diariamente, porem ao abrir as planilhas manualmente necessito marcar a caixa de dialogo que informa:

    o arquivo que você esta tentando abrir esta em um formato diferente do especificado na extensão do arquivo....

    deseja abrir o arquivo agora?

    dando a opção de marcar "sim"

    fazendo com que para que eu utilize o método, tenha que abrir antes todos os arquivos e salvar como xlsx.

    gostaria de saber se tenho como marcar a caixa atraves do vba.

    desde já agradeço a todos

    cuidem-se
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    [Resolvido]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente Empty Re: [Resolvido]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente

    Mensagem  DamascenoJr. em 22/3/2020, 20:24

    O problema está no programa gerador das planilhas que está gerando o arquivo com características de .xlsx, mas nomeando-o com a extensão .xls.

    Tente então renomear o arquivo refazendo a extensão do arquivo na marra para .xlsx.

    Código:
    Name CAMINHO_COMPLETO_SEU_ARQUIVO.xls As CAMINHO_COMPLETO_SEU_ARQUIVO.xlsx


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 10/06/2012

    [Resolvido]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente Empty Re: [Resolvido]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente

    Mensagem  mcsanches em 23/3/2020, 13:03

    Bom dia Damasceno, obrigado pela atenção acabei conseguindo da seguinte maneira:




    Dim RstFrm As DAO.Recordset, RstSubFrm As DAO.Recordset, l As Integer
    Dim MeuExcel As Object
    Set MeuExcel = CreateObject("Excel.Application")
    Dim caminho As String
    Dim formato As Long
    caminho = "C:\suapasta/arquivo.xlsx"
    formato = 51
    MeuExcel.Visible = True
    MeuExcel.Workbooks.Open filename:="C:\oi.xls"

    ActiveWorkbook.SaveAs caminho, formato

    Assim posso manipular o arquivo xlsx sem que abra nenhum aviso

    Mais uma vez agradeço
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    [Resolvido]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente Empty Re: [Resolvido]Importação com DoCmd.TransferSpreadsheet - marcar caixa de dialogo do excel automaticamente

    Mensagem  DamascenoJr. em 23/3/2020, 18:43

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 5/8/2020, 19:39