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

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

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

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

O fórum agradece o retorno. Sucesso.