• Forum Think Finance - Bolsa e Forex »
• Perfil de rs_trader »
• Mostrar Mensagens »
• Mensagens

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

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:

Citar

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.

A aquipa o ano passado na frente não fazia dois passes. Estão lá todos os que jogavam a titular o ano passado. Não há milagres.

Compra de 2 NDX a 11417.7

Sid

Já acabou a demonstração?

Citação de: Elder em 2020-09-15  14:25:41

fundo JPMorgan Funds - Global Socially Responsible Fund, tem como maiores posições:

Apple Inc   TecnologiaTecnologia   4,98
Amazon.com Inc Consumo CíclicoConsumo Cíclico   4,84
Microsoft Corp   TecnologiaTecnologia   4,57
Facebook Inc A   Serviços de ComunicaçãoServiços de Comunicação   4,56
Alphabet Inc Class C   Serviços de ComunicaçãoServiços de Comunicação   4,31

O que é que estas empresas têm a ver com responsabilidade social?!?! Isto não vai contra o regulamento de gestão do fundo?

Obviamente que meteram estas bolhas em tudo o que é fundo passivo o que alavancou ainda mais estas bolhas.

O JPMorgan Funds - Global Socially Responsible Fund não é um fundo passivo.

Os owners iniciais doam milhões para essas causas....:)

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.

Tem de ser..... Até haver uma reação pelo menos.

Vi agora que fui stopado em gas natural.


 

Ou seja, de tudo.... só tenho os puts de tesla, que já estiveram a zeros... e estão a 12 centimos agora. (comprei a .15)

Quem comprou a zeros fez um grande negócio.

A selecção a jogar sem cr7 é outra coisa.

Foram 4-1... mas não seria injusto um 7-1 ou algo assim.

E contra a Croácia!!

Já digo isso há muito tempo. Ronaldo seca tudo a sua volta.

Robinhood traders two days ago vs today