• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA Excel export do TXT uvozovky

Zaslal/a Petr20 19.9.2020 20:19

Dobrý den,
jsem naprostý začátečník. Potřeboval bych poradit. Potřebuji uložit obsah listu do formátu TXT.
Zatím mám tohle:

Sub UlozitTXT()

Sheets("GPP").Select
CestaAdresare = ThisWorkbook.Path
soubor = CestaAdresare & "\" & "NahradTexty" & ".txt"
ActiveSheet.SaveAs soubor, FileFormat:= _
xlUnicodeText, CreateBackup:=False

Dim MojeCesta As String
Dim MujSoubor As String

MojeCesta = ThisWorkbook.Path
MujSoubor = "Pok1.xlsm"

Workbooks.Open MojeCesta & "\" & MujSoubor
Workbooks("Pok1.xlsm").Activate
Workbooks("NahradTexty.txt").Close SaveChanges:=True

End Sub

Export proběhne, ale mám problém s formátem textu, který obsahuje uvozovky (“). TXT potřebuji načítat do dalšího programu a ten má problém s uvozovkami.
Příklad:
"NAZ,pokus o export1"

Předem děkuji.
Petr.

Zaslat odpověď >

---

Palooo(23.9.2020 8:30)#048106

ulozte to ako CSV .... to je iste ako TXTcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse