Export u .txt file

Postovana gospodo,

evo o cemu se radi,

Napravih Macro koji exportuje query u .txt. Radi bez problema, ali taj file je snimljen kao Unicode. Zeleo bih da mi file bude snimljen kao ANSI.

Posle exporta otvaram file u Notepad-u i menjam Encoding sa Unicode u ANSI.

Da li bih mogao da zaobidjem ovaj korak. i kako?

Pozdrav!!!

Predpostavio sam da ce biti malo teze pronaci odgovor. Dosta sam knjiga i foruma prelistao i nista nisam nasao. Cak ni slican problem, bar da me navede na resenje. U svakom slucaju, ako nekome nesto padne na pamet, bio bih vrlo zahvalan.

Veliki pozdrav,

Bojan Vajagic

Pa najednostavnije bi bilo da iz kverija pozivaš
funkciju koja ti pretvara slova u Ansi

u query bi pozivao ovu dolje funkciju i to ti je to , ako je to što trebaš

pozdrav


Public Function kodna387(dovezi As String) As String
Dim staraslova As String

staraslova = dovezi
staraslova = Replace(staraslova, "Š", "[")
staraslova = Replace(staraslova, "š", "{")

staraslova = Replace(staraslova, "Ć", "]")
staraslova = Replace(staraslova, "ć", "}")

staraslova = Replace(staraslova, "Č", "^")
staraslova = Replace(staraslova, "č", "~")

staraslova = Replace(staraslova, "Ž", "@")
staraslova = Replace(staraslova, "ž", "`")

staraslova = Replace(staraslova, "Đ", "\")
staraslova = Replace(staraslova, "đ", "|")
kodna387 = staraslova
End Function

Da ne otvaram novu temu,
Ovako, imam jedan combo na formi i iz njega biram neko ime, e sad mi treba kod za dugme koje bi otvorilo odredjeni report i exportovalo taj report u txt format i da taj txt fajl nazove "odabrano_ime_iz_comba.txt"
i
Drugo dugme koje bi isti taj proces odradilo za svako ime automatski bez odabira iz comba, znaci ponavlja gornji postupak za svako ime te tako kreira toliko txt fajlova koliko ima imena

Hvala unaprijed

@Dario BiH:
Otvori novu temu, da ne mesamo babe i zabe. Originalna tema je o konverziji TXT u ANSI , tvoje pitanje je druge prirode.