Moc nechápu, bylo by lepší dát přílohu. Nicméně tady máte něco pro inspiraci.
Příloha: 
48088_export-to-txt.zip (18kB, staženo 28x)
citovat48088_export-to-txt.zip (18kB, staženo 28x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: VBA Excel export do TXT uvozovky
MS Excel
Téma: VBA Excel export do TXT uvozovky 
Zaslal/a Petr20 21.9.2020 19:29
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.
(22.9.2020 8:26)#048089
Tož a čo tak teda najprv v zdrojovom súbore tie úvodzovky odstrániť?
A to Tvoje načítanie pôvodného a uzatvorenie nového by som riešil inak. Ejhle:
Sub UlozitTXT()
Cells.Replace What:="""", Replacement:=""
Sheets("GPP").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NahradTexty.txt", FileFormat:=xlUnicodeText
ActiveWindow.Close (False)
End Subcitovat
A to Tvoje načítanie pôvodného a uzatvorenie nového by som riešil inak. Ejhle:
Sub UlozitTXT()
Cells.Replace What:="""", Replacement:=""
Sheets("GPP").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NahradTexty.txt", FileFormat:=xlUnicodeText
ActiveWindow.Close (False)
End Subcitovat
(22.9.2020 8:34)#048090
Keby si potreboval zachovať pôvodný excelovský súbor i s úvodzovkami, tak po exporte proste zdroj uzavri bez uloženia.
Ciže ak potrebuješ najprv urobiť v zdroji zmeny, urob ich, ulož nový stav (uloženie je možné zahrnúť na začiatok makra), exportuj(odstráni úvodzovky), uzavri zdroj bez uloženia(zabráni uloženiu zdroja bez úvodzoviek)citovat
Ciže ak potrebuješ najprv urobiť v zdroji zmeny, urob ich, ulož nový stav (uloženie je možné zahrnúť na začiatok makra), exportuj(odstráni úvodzovky), uzavri zdroj bez uloženia(zabráni uloženiu zdroja bez úvodzoviek)citovat
(22.9.2020 8:40)#048091
Takže výsledný kód by vyzeral takto:
Sub UlozitTXT()
ActiveWorkbook.Save
Cells.Replace What:="""", Replacement:=""
Sheets("GPP").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NahradTexty.txt", FileFormat:=xlUnicodeText
ActiveWindow.Close (False)
ActiveWorkbook.Close (False)
End Sub
(vrátane uzavretia zdrojového súboru bez uloženia, t.j. so zachovaním pôvodného obsahu i s úvodzovkami)citovat
Sub UlozitTXT()
ActiveWorkbook.Save
Cells.Replace What:="""", Replacement:=""
Sheets("GPP").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NahradTexty.txt", FileFormat:=xlUnicodeText
ActiveWindow.Close (False)
ActiveWorkbook.Close (False)
End Sub
(vrátane uzavretia zdrojového súboru bez uloženia, t.j. so zachovaním pôvodného obsahu i s úvodzovkami)citovat
Dobrý den,
neuvědomil jsem si nejednoznačnost svého dotazu.
Přikládám Excel.
Ve zdrojových buňkách se žádné uvozovky nevyskytují. Vznikají až při exportu do TXT.
Buňky ve zdrojovém listu (GPP) není prostý text, ale jedná se vzorec odkazující se na jiný list (spojení více buněk).
Popis Excelu:
Export spouštím tlačítkem z „Listu1“
Do pracovní složky, ve které je právě XLSM uložen by se měl vytvořit TXT soubor, který obsahuje data z listu GPP (bez uvozovek) pod názvem „NahradTexty.txt“.
Export do TXT je pouze mezikrok, veškerá další práce probíhá v původním Excelu (pod původním názvem a s původními daty).
Děkuji
Petr
neuvědomil jsem si nejednoznačnost svého dotazu.
Přikládám Excel.
Ve zdrojových buňkách se žádné uvozovky nevyskytují. Vznikají až při exportu do TXT.
Buňky ve zdrojovém listu (GPP) není prostý text, ale jedná se vzorec odkazující se na jiný list (spojení více buněk).
Popis Excelu:
Export spouštím tlačítkem z „Listu1“
Do pracovní složky, ve které je právě XLSM uložen by se měl vytvořit TXT soubor, který obsahuje data z listu GPP (bez uvozovek) pod názvem „NahradTexty.txt“.
Export do TXT je pouze mezikrok, veškerá další práce probíhá v původním Excelu (pod původním názvem a s původními daty).
Děkuji
Petr
Příloha: 48092_nahradtexty.zip (15kB, staženo 25x)
citovat48092_nahradtexty.zip (15kB, staženo 25x)(22.9.2020 10:47)#048093
Nahreď celý Tvoj kód týmto:
Sub UlozitTXT()
Sheets("GPP").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NahradTexty.txt", FileFormat:=xlTextPrinter
ActiveWindow.Close (False)
End Subcitovat
Sub UlozitTXT()
Sheets("GPP").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NahradTexty.txt", FileFormat:=xlTextPrinter
ActiveWindow.Close (False)
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články