makro ile excelden word ve txt dosya yapma

[Jezus]

Selamlar

Inanin cok aradim fakat bir cok dosya ya acilmiyor yada arsivden silinmis, yapmak istedigim excelden veriyi word, txt, ve htm dosyasi yapmak bununda sebebi outlook icin isim unvan adres telefon email fax kisacasi outlook icin imza dosyasi sirket baska adrese tasiniyor ve tam 1150 kisinin verilerini elle yazmak gerekiyor yani izdirap bunun en kisa yolu makro diye dusundum yardimci olursaniz cok makbule gecer.

simdiden tesekkurler

 

[Levent Menteşoğlu]

Aşağıdaki linkleri inceleyin.

Excel'den txt ye çevirme

exceldeki verilerin makro ile word 'e aktarımı

 

[Jezus]

Tesekkur ederim Levent hoca,
Bu kod icerisinde virguller ve texte ait olmiyan karaekterler var nasil yok ederim birde son bisey htm dosyasi yaptiginda iki duz satir yapiyor orjinal hali gidiyor bunu nasil onlerim

 

[Jezus]

Tesekkur ederim Levent hoca

Bu kodun icinde texte ait olmiyan virguller ve karakterler var onlardan nasil kurtulurum,
Levent hocam, son bisey daha htm dosyasi yaptiginda text orjinal hali gidiyor 2 duz satir ve tabii karakterler geliyor bu ikisinden kurtulursam super olacak

 

[Levent Menteşoğlu]

Bir örnek dosya üzerinde sorunuzu anlatırmısınız.

 

[Jezus]

Levent hocam dosya ekte birde hedef adresin resmi var

 

[Jezus]

daha anlasilir olmasi icin resim

Levent hocam daha anlasilir olmasi icin kucuk resim dosyalari ekliyorum

 

[Jezus]

Levent hocam karmasik anlattiysam ozur dilerim istersen sadece kodu yazayim buraya..?

 

[Jezus]

Levent hocam SIK bogaz ediyorum farkindayim fakat bitirmem gerekiyor,
degerli zamanindan biraz bana ayirip bakabilirsen sevinirim

 

[Levent Menteşoğlu]

Text dosyası olarak kaydederken neden aşağıdaki basit kodları kullanmıyorsunuz.

Sheets("extern").Copy
ActiveWorkbook.SaveAs "C:\Documents and Settings\Admin\Application Data\Microsoft\Handtekeningen\extern.txt", FileFormat:=xlTextPrinter
Activeworkbook.Close true

 

[Levent Menteşoğlu]

Html olarak kaydederkende aşağıdaki kodu kullanabilirsiniz.

Sheets("extern").Copy
ActiveWorkbook.SaveAs FileName:="C:\Documents and Settings\Admin\Application Data\Microsoft\Handtekeningen\extern.html", FileFormat:=xlHtml
ActiveWorkbook.Close True

 

[Jezus]

Levent hocam cok tesekkur ederim,

Bana zaman ayirdigiz icin cok tesekkur ederim, Veridiginiz kodlar txt ve rtf formatlar icin super oldu, fakat htm yapinca duz iki sira text yapiyor, alt alt,a vermiyor yazilari.. onu nasil duzeltirim..?

 

[Jezus]

Bana zaman ayirdigiz icin cok tesekkur ederim, Veridiginiz kodlar txt ve rtf formatlar icin super oldu, fakat htm yapinca duz iki sira text yapiyor, alt alt,a vermiyor yazilari.. onu nasil duzeltirim..?

Levet hocam htm problemi icin bir cozum varmi duz iki siradan baska yapmiyor

 

[Levent Menteşoğlu]

11 nolu mesajımda html içinde bir kod vermiştim. Ben denedim bir sorun göremedim.

 

[Jezus]

11 nolu mesajımda html içinde bir kod vermiştim. Ben denedim bir sorun göremedim.

Levent hocam, ornek resimlere bakarsaniz ne demek istedigimi anlarsiniz htm yapiyor fakat 20 sira yerine butun veriyi 2 siraya sigdiriyor, sorun bu.!

 

[Jezus]

htm problemi

Arkadaslar, bu problemi nasil cozeriz, vba htm dosyasi yapiyor fakat 20 sira yerine butun veriyi 2 siraya sigdiriyor

 

[Levent Menteşoğlu]

Benim kaydettiğim dosya aşağıdaki gibidir. Sanıyorum siz firefox kullanıyorsunuz sorun bundan kaynaklanıyor olabilir. Internet explorer ile denermisiniz.

 

[Jezus]

Deniyecem tesekkur ederim

 

[Jezus]

Bende yine olmadi hocam

Merhaba Levent hocam, IE kulladim fakat ne yazikki bende yine ayni oldu 2 sira text, hata bendemi yoksa kullandigim IE versiyonundami..?

 

[Levent Menteşoğlu]

Açıkçası sebebi konusunda bir fikrim yok.