Pergunte aqui
1

desabilitar aviso

perguntadas 2016-08-24 02:03:08 +0200

imagem do gravatar de Juan.rba

updated 2016-11-18 17:18:19 +0200

imagem do gravatar de Grafeno

Descrição da imagem

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....

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2016-08-24 23:46:34 +0200

imagem do gravatar de sp24horas

updated 2016-08-25 15:47:59 +0200

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

editar assinalar como ofensivo Excluir Link mais

Comentários

vou tentar aplicar essas dicas! muito obrigado.

imagem do gravatar de Juan.rbaJuan.rba ( 2016-08-25 18:16:58 +0200 )editar
1

@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.

imagem do gravatar de GrafenoGrafeno ( 2016-10-21 16:24:44 +0200 )editar

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.

imagem do gravatar de Juan.rbaJuan.rba ( 2016-10-21 20:05:33 +0200 )editar

@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?

imagem do gravatar de GrafenoGrafeno ( 2016-10-28 21:00:03 +0200 )editar

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"

imagem do gravatar de Juan.rbaJuan.rba ( 2016-10-31 14:43:28 +0200 )editar
1

@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")))
imagem do gravatar de GrafenoGrafeno ( 2016-11-01 21:05:41 +0200 )editar

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...

imagem do gravatar de Juan.rbaJuan.rba ( 2016-11-02 17:25:02 +0200 )editar

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

imagem do gravatar de GrafenoGrafeno ( 2016-11-03 14:33:22 +0200 )editar
1

muito obrigado @Grafeno !

imagem do gravatar de Juan.rbaJuan.rba ( 2016-11-03 17:42:37 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-08-24 02:03:08 +0200

Lidas: 129 vezes

Última atualização: Aug 25 '16