Salvare date in format text

[Constantin]

Buna ziu
In celulele unei coloane am inregistrate date tip text.
Vreau sa salvex fisierul Excel in fisier Text dar la datele din Excel sunt adaugate Ghilimele la inceput si sfarsit.
Pot sa rezolv cumva asta?
Am atasat fisierul sursa. Fisierul Text nu poate fi incarcat.
Multumesc!

[Tibi_Tiby]

Salut,

Salveaza-l ca fisier .csv

[Constantin]

Multumesc!
Aplicatia care trebuie sa importe fisierul(WinMentor) nu recunoaste *csv.

[Indigo-ONE]

Salut,

Foloseste urmatorul cod:

Cod: Selectaţi tot

Sub CopyToTXT()
    Sheets("WinTest").Cells(1).CurrentRegion.Copy
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        CreateObject("scripting.filesystemobject").createtextfile(ThisWorkbook.Path & "\NumeFisier.txt").write .GetText
    End With
End Sub

Salveaza fisierul WinTest cu extensia .xlsm , daca vrei sa folosești in viitor fisierul.

[Constantin]

Multumesc.
Functioneaza, doar ca nu creaza si fisierul text. Salveaza in clipboard dupa care cu "PASTE" pot sa-l salvez in Notepad.Puteti sa ma ajutati si cu crearea fisierului ".text"?
Multumesc din nou.

[Indigo-ONE]

Daca ai sa cauti fisierul .txt, in aceeasi locatie in care e fisierul WinTest, il vei gasi.
Deoarece nu ai spus unde vrei sa apara fisierul text (va tot repet - explicatii cat mai amanuntite , nu e normal sa tot fii intrebat....) eu am presupus ca il vrei in aceeasi locatie cu fisierul.

[Constantin]

Aveti dreptate.
Imi cer scuze.
Multumesc.

[Constantin]

As vrea sa salvez fisierul text intr-un Folder "ARHIVA" din aceiasi locatie. Am incercat sa modific eu codul dar nu am reusit cu cunostintele mele.
Multumesc si scuze!

[Constantin]

Si as vrea sa-l denumesc in functie de continutul din celula "D1"

[Indigo-ONE]

Cafea nu vrei?

Iti era greu sa spui de la început? Dupa asta o sa vrei sa faca si un grafic si...si....

PS De aceea nu ai primit raspuns la una din postari - prea putine explicatii. Era usor dar sigur veneai dar as vrea si....si..si...