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.