Excel (Duvida)

[Automek]

Sobre a conversa do DeMelo e do Robusto sobre os dois monitores, deixo uma dica do Excel que não sei se é conhecida por toda a gente. Pode ser que alguém desconheça e vale a pena.

Há a possibilidade de abrir uma nova janela do mesmo ficheiro de excel (ficando, por exemplo, cada janela em monitores diferentes). Isto pode ser útil para quem precisa de verificar formulas distantes umas das outras ou quer visualizar duas zonas diferentes do mesmo ficheiros. Já existia o Split há muitos anos, o que é bom, mas esta funcionalidade para mim é ainda melhor. Não sei quando surgiu, nem em que versão, mas só há um ano ou coisa assim é que a descobri.
Basta ir a View - New Window
https://www.excelcampus.com/tips/new-window/

Claro que estaremos a trabalhar no mesmo ficheiro, não importa qual a janela que se utilize.

[deMelo]

Ui... maravilha.
Nao conhecia.

(Como disse, sou muito básico no Excel)

[Blaster]

Vou experimentar, obrigado.

[rs_trader]

Sub PRNtoPRN()
    Dim xWs As Worksheet
    Dim xcsvFile As String
    For Each xWs In Application.ActiveWorkbook.Worksheets
        xWs.Copy
        xcsvFile = CurDir & "\" & xWs.Name & ".PRN"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, FileFormat:=xlCSV
        Application.ActiveWorkbook.Saved = True
        Application.ActiveWorkbook.Close
    Next
End Sub

Sabem dizer-me como eu consigo gravar os ficheiros resultantes da macro acima para uma diretoria especifica. Atualmente grava na "Current Dir" que pode ser qualquer uma. eu pretendia numa especifica.

[Robusto]

Consegues. Se for numa pasta predefinida já à partida por ti, podes ir à pasta em questão e copiar/colar o caminho aí. Imagina que queres guardar no desktop seria algo do género

C:\Users\Robusto\Desktop

Assim sendo, na macro o caminho fica:

    For Each xWs In Application.ActiveWorkbook.Worksheets
        xWs.Copy
        xcsvFile = "C:\Users\Robusto\Desktop" & "\" & xWs.Name & ".PRN"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, FileFormat:=xlCSV

Ou se quiseres que o caminho seja dinamico, no inicio da formula podes colocar:

Dim CurDir as String
CurDir = Range("A1").Value

Em que a célula A1 tens a primeira parte do caminho.

[rs_trader]

Consegues. Se for numa pasta predefinida já à partida por ti, podes ir à pasta em questão e copiar/colar o caminho aí. Imagina que queres guardar no desktop seria algo do género

C:\Users\Robusto\Desktop

Assim sendo, na macro o caminho fica:

    For Each xWs In Application.ActiveWorkbook.Worksheets
        xWs.Copy
        xcsvFile = "C:\Users\Robusto\Desktop" & "\" & xWs.Name & ".PRN"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, FileFormat:=xlCSV

Ou se quiseres que o caminho seja dinamico, no inicio da formula podes colocar:

Dim CurDir as String
CurDir = Range("A1").Value

Em que a célula A1 tens a primeira parte do caminho.

Era mesmo essa dica que precisava. Obrigado.

[rs_trader]

Consegues. Se for numa pasta predefinida já à partida por ti, podes ir à pasta em questão e copiar/colar o caminho aí. Imagina que queres guardar no desktop seria algo do género

C:\Users\Robusto\Desktop

Assim sendo, na macro o caminho fica:

    For Each xWs In Application.ActiveWorkbook.Worksheets
        xWs.Copy
        xcsvFile = "C:\Users\Robusto\Desktop" & "\" & xWs.Name & ".PRN"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, FileFormat:=xlCSV

Ou se quiseres que o caminho seja dinamico, no inicio da formula podes colocar:

Dim CurDir as String
CurDir = Range("A1").Value

Em que a célula A1 tens a primeira parte do caminho.

Era mesmo essa dica que precisava. Obrigado.

Já agora, existe alguma forma de adicionar uma linha de código que permita que quando já existe o ficheiro na diretoria ele fazer o overrride?

[Robusto]

Eu podia jurar que ele faria o overwrite automaticamente, contando que o nome do ficheiro seja o mesmo. Qual o comportamento que te está a ser devolvido? (está a duplicar-te o ficheiro, não grava o ficheiro novo, etc?)

[rs_trader]

Pergunta se quero substituir o que lá está.

[Robusto]

ok.

Bem, um workaround seria adicionar uma variável que tenhas a certeza que nunca se repete ao nome do ficheiro. Por exemplo, usando a fórmula NOW() ficas com a data do momento até aos segundos. Impossível de repetir nesse cenário. Tens é que substituir os carateres especiais "/" e ":" (que o windows não aceita como nome de ficheiro) por algo como um simples ponto "." (podias substituir por algo em branco, mas no meu teste nao correu bem). Como eu sou maçarico, estou a fazer um replace dentro de outro replace, porque quero substituir duas condições.

Seria algo assim:

xcsvFile = "C:\Users\Robusto\Desktop" & "\" & xWs.Name & "_" & Replace(Replace(Now, ":", "."), "/", ".")) & ".PRN"

Se repetir ficheiros não for realmente uma alternativa, eu estou a pensar num caminho menos convencional, que é colocares uma linha de código (logo no início da macro) em que vais diretamente à pasta e eliminas o ficheiro que tens lá. Como já sabes todas as condições que constituem o nome, é só repetir o mesmo caminho. Depois a fórmula rodaria normalmente, como o ficheiro anterior já foi eliminado, não repeterias nada. Instruções aqui: https://www.wallstreetmojo.com/vba-delete-file/

[Automek]

experimenta se meter

wbk.Application.DisplayAlerts = False

antes da linha do save resolve a questão

[rs_trader]

ok.

Bem, um workaround seria adicionar uma variável que tenhas a certeza que nunca se repete ao nome do ficheiro. Por exemplo, usando a fórmula NOW() ficas com a data do momento até aos segundos. Impossível de repetir nesse cenário. Tens é que substituir os carateres especiais "/" e ":" (que o windows não aceita como nome de ficheiro) por algo como um simples ponto "." (podias substituir por algo em branco, mas no meu teste nao correu bem). Como eu sou maçarico, estou a fazer um replace dentro de outro replace, porque quero substituir duas condições.

Seria algo assim:

xcsvFile = "C:\Users\Robusto\Desktop" & "\" & xWs.Name & "_" & Replace(Replace(Now, ":", "."), "/", ".")) & ".PRN"

Se repetir ficheiros não for realmente uma alternativa, eu estou a pensar num caminho menos convencional, que é colocares uma linha de código (logo no início da macro) em que vais diretamente à pasta e eliminas o ficheiro que tens lá. Como já sabes todas as condições que constituem o nome, é só repetir o mesmo caminho. Depois a fórmula rodaria normalmente, como o ficheiro anterior já foi eliminado, não repeterias nada. Instruções aqui: https://www.wallstreetmojo.com/vba-delete-file/

Esta solução não daria porque preciso que tenha sempre o mesmo nome.

[rs_trader]

experimenta se meter

wbk.Application.DisplayAlerts = False

antes da linha do save resolve a questão

Vou tentar mais logo!

[rs_trader]

Assim? Dá erro.

Sub PRNtoPRN()
    Dim xWs As Worksheet
    Dim xcsvFile As String
    For Each xWs In Application.ActiveWorkbook.Worksheets
        xWs.Copy
        wbk.Application.DisplayAlerts = False
        xcsvFile = "C:\MetaStock Data" & "\" & xWs.Name & ".PRN"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, FileFormat:=xlCSV
        Application.ActiveWorkbook.Saved = True
        Application.ActiveWorkbook.Close
    Next
End Sub

[Automek]

RS experimenta só

Application.DisplayAlerts = False

se não der desisto.

[Robusto]

A parte do wbk tem que ser adaptada ao ficheiro que estás a trabalhar. Experimenta algumas variantes:

Workbook.Application.DisplayAlerts = False

ou experimenta colocar diretamente:

Application.DisplayAlerts = False

E acho que tens que colocar essa linha de código, logo a seguir a um dos "Dim". Ou seja, fora do loop do "For Each".

Acho também importante colocares uma linha antes da End Sub a deixar novamente o DisplayAlerts como verdadeiro. Basicamente o que esse codigo está a pedir é para passar por cima dos alertas.

[Robusto]

Tirado daqui, acho que é isto que precisas fazer:

https://www.teachexcel.com/excel-tutorial/2015/overwrite-an-existing-file-using-vba-in-excel

Sub Save_File_Overwrite()

' Don't show confirmation window
Application.DisplayAlerts = False

' Save the current workbook as Test.xlsm
' 51 for regular file
' 52 for macro enabled workbook
ThisWorkbook.SaveAs "C:\Directory\Test.xlsm", 52

' Allow confirmation windows to appear as normal
Application.DisplayAlerts = True

End Sub

[rs_trader]

Tirado daqui, acho que é isto que precisas fazer:

https://www.teachexcel.com/excel-tutorial/2015/overwrite-an-existing-file-using-vba-in-excel

Sub Save_File_Overwrite()

' Don't show confirmation window
Application.DisplayAlerts = False

' Save the current workbook as Test.xlsm
' 51 for regular file
' 52 for macro enabled workbook
ThisWorkbook.SaveAs "C:\Directory\Test.xlsm", 52

' Allow confirmation windows to appear as normal
Application.DisplayAlerts = True

End Sub

Sub PRNtoPRN()
    Dim xWs As Worksheet
    Dim xcsvFile As String
    For Each xWs In Application.ActiveWorkbook.Worksheets
        Application.DisplayAlerts = False
        xWs.Copy
        xcsvFile = "C:\MetaStock Data" & "\" & xWs.Name & ".PRN"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, FileFormat:=xlCSV
        Application.ActiveWorkbook.Saved = True
        Application.ActiveWorkbook.Close
        Application.DisplayAlerts = True
    Next
End Sub

Nice. Working. Obrigado a ambos.

[vbm]

Para mim, tem sido um mistério impenetrável de há anos!

Não consigo perceber porquê e como não consigo
«protect a worksheet» e manter «unprotect one cell»
ou algumas áreas de células desbloqueadas, alteráveis!

É algo lógico e fundamental que ignoro e tenho
sido sempre obrigado a deixar tudo desbloqueado.

[D. Antunes]

Talvez usando o Acess. Ficas com uma estrutura em que podes proteger e dados que podes alterar num formulário.