< návrat zpět
MS Excel
Téma: rozdělení textu do sloupců 
Zaslal/a Johny85 12.2.2013 8:34
Dobrý den,
používám takovéto makro pro export určité čísti listu v excelu do TXT, ale nevím, jak (jakým znaménkem či příkazem) rozdělit jednotlivé buňky do následujících sloupců....
Když používám takovýto způsob:
s = s & Cells(i, 18) & Cells(i, 19)....tak to pochopitelně vše vyexportuje do sloupce A a já bych potřeboval, aby Cells(i, 18) bylo ve sloupci A, Cells(i, 19)ve sloupci B a tak...můžete mi prosím poradit, omlouvám se, že otravuji asi s takovou prkotinou...
Díky moc
Sub export()
Dim fs As Object, a As Object, i As Integer, s As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("\\moje složka\".txt", True)
i = 41
While Not IsEmpty(Cells(i, 1))
s = s & Cells(i, 18) & Cells(i, 19) & Cells(i, 20) & " " & Cells(i, 21) & " " & Cells(i, 22) & " " & Cells(i, 23) & " " & Cells(i, 24) & " " & vbNewLine
i = i + 1
Wend
a.WriteLine s
a.Close
End Sub
Uzamčeno - nelze přidávat nové příspěvky.
Pavlus(12.2.2013 9:51)#011612 
Píšeš, že to exportuješ do txt a tam přece žádné "sloupce" A, B atd. nemáš, ne?
Pokud chceš jenom oddělit dané sloupce mezerou nebo nějakým znakem, pak to lze takto (ale i toto tam v části máš využito). Případně to zkus popsat jinak a lépe .-)...
P.
Př.:
s = Cells(i, 18) & " " & Cells(i, 19)citovatJohny85(12.2.2013 10:23)#011613 Potřeboval bych, aby znovu když TXT soubor otevřu v excelu, byly data v jednotlivých buňkách, ne všechny data v prvním sloupci
citovatOpičák(12.2.2013 10:23)#011614 
nemáš na mysli odrážku Tab ?
s = s & Cells(i, 18) & Chr(9) & Cells(i, 19) .......
to tak funguje
citovatJohny85(12.2.2013 10:29)#011615 Ano, děkuji, to je přesně ono!
citovat
RSS nejnovější články