Desabilitar aviso

toda vez q quero salvar uma planilha como texto, aparece este aviso, q me força a apertar ok para q continue, tem a possibilidade de desabilitar esse aviso? ou um comando na macro para q aperte ok por mim? pois gravei macro para salvar a planilha, mas ainda assim, aparece esse aviso, e a macro só continua se apertar ok manualmente…

Olá!
Vá no menu em Ferramentas, Opções, Carregar/Salvar e desmarque:
Avisar quando não for salvar em formato ODF ou padrão
Você não deve mais receber uma mensagem de alerta quando salvar um
documento em um formato que não seja OpenDocument.
Você também pode alterar a caixa Salvar sempre como
associando ao Tipo de documento.
Outra possibilidade é estudar o código abaixo que salva o arquivo com o nome descrito na célula F3.
Atente que há diferença nos métodos storeToURL ou storeAsURL.
Boa sorte!

REM  *****  BASIC  *****

Sub SaveAs

   Dim sFileName As String
   Dim sPath As String
   Dim sSaveToURL as string
   
   
   sPath = "D:\"
   sFileName = thisComponent.getSheets.getByName("Planilha1").getCellRangeByName("F3").getString
   sSaveToURL = ConvertToURL(sPath & sFileName)
   thisComponent.storeToUrl(sSaveToURL, Array(MakePropertyValue("FilterName", "Calc8")))
   
End Sub

Function MakePropertyValue(Optional sName As String, Optional sValue) As com.sun.star.beans.PropertyValue
'-------------------------------------------------------------------
' Create and return a new com.sun.star.beans.PropertyValue
'-------------------------------------------------------------------

    Dim oPropertyValue As New com.sun.star.beans.PropertyValue
    
    
    If Not IsMissing(sName) Then
       oPropertyValue.Name = sName
    EndIf
    
    If Not IsMissing(sValue) Then
       oPropertyValue.Value = sValue
    EndIf
    
    MakePropertyValue() = oPropertyValue

End Function

vou tentar aplicar essas dicas! muito obrigado.

@Juan.rba, vamos trazer a discussão para cá. O código apresentado por @sp24horas (que me perdoe deste já a intromissão) parece-me ser a solução ideal para você, com adaptações. Faça um teste, substitua no código a ocorrência de “Calc8” por “Text - txt - csv (StarCalc)” e veja que ele salvará um txt de forma silenciosa em “D:”, com o nome contido na célula “F3”. Atte.

eu efetuei isso @Grafeno, substitui o código Calc8 por esse q me passou, ele salvou um arquivo mas contendo todas as planilhas da pasta, ai se abrir como txt da erro, me obriga a abrir em ODS.

@Juan.rba, este não é um erro dentro do esperado. O filtro chamado “Text - txt - csv (StarCalc)”, por padrão, pelo que sei, salva a planilha ativa como um arquivo de texto. Qual o nome do arquivo que está na célula F3? Tem extensão?

Eu consegui!
só tenho uma duvida, como consigo configurar o txt? para ficar sem tabulação, nao separar celulas por virgula…

minha macro antiga era assim:

args8(1).Value = “Text - txt - csv (StarCalc)”

args8(2).Name = “FilterOptions”

args8(2).Value = "0,0,ANSI,1,0,false,true,true,false"

@Juan.rba.

Para incluir as opções do filtro:

'altere a linha 
thisComponent.storeToUrl(sSaveToURL, Array(MakePropertyValue("FilterName", "Text - txt - csv (StarCalc)")))
'por
thisComponent.storeToUrl(sSaveToURL, Array(MakePropertyValue("FilterName", "Text - txt - csv (StarCalc)"),MakePropertyValue("FilterOptions","0,0,ANSI,1,,0,false,true,true,false")))

Muito Obrigado @Grafeno!

Só uma curiosidade, esse filtro “Text - txt - csv (StarCalc)” esta salvando a planilha ativa, isso me obriga a deixar minha macro navegar até a planilha q quero salvar para acionar esse codigo, tem como colocar junto ao codigo o valor ou nome da planilha q deve ser salva? ai consigo simplificar ainda mais a macro…

@Juan.rba, esta é uma limitação do filtro, será sempre preciso navegar até a planilha e ativá-la antes de salvar.

muito obrigado @Grafeno !