Excel sayfasını word ve pdf olarak kaydetme

[serkans]

Merhaba

Ekteki dosyada BS GÖNDER de 1 den 5 e kadar olan satırları BS FORMU' nda K4 te düşey ara ile formüllenmiş şekliyle bilgileri alıp, her rakam için BS FORMU excel sayfasını WORD e resim olarak yapıştırıp AAAAAAAA, BBBBBBBBBB, CCCCCCCCCC diye Sayın altındaki ilgili kişiler adına word sayfasını bir klasöre kopyalayacak makro yapabilir miyiz?

 

[serkans]

yardımcı olabilir misiniz?

 

[leumruk]

Merhaba,
Eklediğim sıkıştırılmış klasörü bilgisayarınıza çıkarın. Ardından excel dosyasını açın ve makrolar seçeneğinden makroyu bulup çalıştırın. Word dosyaları "dosyalar" klasörünün içine kaydedilecektir. Çakışma olmaması için word adının sonuna tarih ve saat ekledim.

Sub worde_aktar()
Set s1 = Sheets("BS GÖNDER")
Set s2 = Sheets("BS FORMU")
yol = ThisWorkbook.Path & "\dosyalar\"
Application.ScreenUpdating = False
Set wd = CreateObject("Word.Application")
Set wddoc = wd.Documents.Add(DocumentType:=0)
wd.Visible = False
For x = 1 To s1.Cells(Rows.Count, 1).End(3).Row
If s1.Cells(x, 1) <> "" Then
s2.[k4] = s1.Cells(x, 1)
s2.Range("b7:j34").CopyPicture
wd.ActiveDocument.Bookmarks("\page").Range.Delete
wd.Selection.Paste
wddoc.SaveAs yol & s2.[b11].Text & "-" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".doc"
End If
Next
wd.Visible = True
wddoc.Application.Quit
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı.", vbInformation, "l e u m r u k"
End Sub

 

[serkans]

teşekkür ederim leumruk, yalnız dosyayı açmak istediğimde "mswrd632 dönüştürücüsünü başlatamıyor" uyarısı geliyor. dosyayı müşterilerime gönderdiğimde onlar da aynı sorunu yaşarlarsa sıkıntı olabilir...

 

[leumruk]

teşekkür ederim leumruk, yalnız dosyayı açmak istediğimde "mswrd632 dönüştürücüsünü başlatamıyor" uyarısı geliyor. dosyayı müşterilerime gönderdiğimde onlar da aynı sorunu yaşarlarsa sıkıntı olabilir...

Linki inceleyiniz.

http://support.microsoft.com/kb/973904/tr

 

[serkans]

ilginiz için çok teşekkür ederim, ben düzelttim ancak firmalardan açamadıklarına dair mailler dönüyor, makroda word yerine pdf oluşturabilir miyiz?

 

[serkans]

yardım lütfen

 

[leumruk]

ilginiz için çok teşekkür ederim, ben düzelttim ancak firmalardan açamadıklarına dair mailler dönüyor, makroda word yerine pdf oluşturabilir miyiz?

Firmadakilere word dosyalarını mı gönderiyorsunuz, yoksa excelde oluşturduğumuz makroyu onlar da mı kullanıyor? Bir de bilgisayarınızda kullandığınız office programının versiyonu nedir?

 

[Seyit Tiken]

Excel'den kopyalayıp Word'e Bağ Yapıştır'ı deneyiniz.

 

[serkans]

evet makrodan sonra dosyaya kaydedilen word sayfalarını gönderiyordum. ancak word yerine pdf olarak kaydedebilir miyiz excelden alınan sayfayı?

 

[serkans]

orjinal çalışmada 300 - 400 satır var tek tek kopyalamak, yapıştırmak, çevirmek zor, makroyla yapmam lazım.

 

[leumruk]

Merhaba,
2. sorumun cevabı önemli. Office programınız hangi versiyon. 2003 mü, 2007 ya da 2010 mu? 2007 ya da 2010 ise fazla uğraşmadan çözüm bulabiliriz. 2003 ise bilgisayarınızda ek bir programın bulunması gerekli.

 

[serkans]

office 2007 kullanıyoruz...

 

[leumruk]

Merhaba,
Daha önceki cevabımda eklediğim excel dosyasına aşağıdaki makroyu kopyalayın ve çalıştırın. Makronun çalışabilmesi için "SaveAsPDF.exe" eklentisini daha önceden yüklemiş olmanız gerekli. Eğer yüklü değilse. Aşağıdaki linkten eklentiyi indirip kurun.

http://www.microsoft.com/downloads/tr-tr/details.aspx?familyid=f1fc413c-6d89-4f15-991b-63b07ba5f2e5&displaylang=tr

Sub pdf_aktar()
Set s1 = Sheets("BS GÖNDER")
Set s2 = Sheets("BS FORMU")
yol = ThisWorkbook.Path & "\dosyalar\"
Application.ScreenUpdating = False
For x = 1 To s1.Cells(Rows.Count, 1).End(3).Row
If s1.Cells(x, 1) <> "" Then
s2.[k4] = s1.Cells(x, 1)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & s2.[b11].Text & "-" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı.", vbInformation, "l e u m r u k"
End Sub

 

[serkans]

Çok teşekkür ederim, süper oldu...

 

[serkans]

sayın leumruk, yaptığınız makro çok yardımcı oldu bana, teşekkür ederim.

ekteki dosyada pdf ye giden resimleri resimleri kaydettikten sonra sayfa 1 deki ilgili kişilerin mail adreslerine otomatik gönderecek bir makro da yapabilir miyiz?

 

[leumruk]

Merhaba,
Serkan Bey,
Bu konu için "mail gönderme" yazarak sitede arama yaptırın ya da ayrı bir başlık açın. Ben bir kaç kod denedim bendeki outlook hata veriyor, bu nedenle deneme yapamıyorum.

 

[serkans]

Tamam, çok teşekkür ederim.

 

[assenucler]

Bilgi rica ve teşekkür

Sayın Mustafa Altun;


Üstadım, gününüz aydınlık, neşeniz ve sağlığınız yerinde ve kazancınız bol olsun.

Yukarıdaki konu ilgimi çekti. Office 2010 TR kullanıyorum.

"PDF" uzantılı kayıt için kodlarda nasıl bir değişiklik yapılması gerekiyor?

İlgi ve yanıtınız için önceden teşekkürler.


Sevgi ve saygılar.

 

[leumruk]

Sayın Mustafa Altun;


Üstadım, gününüz aydınlık, neşeniz ve sağlığınız yerinde ve kazancınız bol olsun.

Yukarıdaki konu ilgimi çekti. Office 2010 TR kullanıyorum.

"PDF" uzantılı kayıt için kodlarda nasıl bir değişiklik yapılması gerekiyor?

İlgi ve yanıtınız için önceden teşekkürler.


Sevgi ve saygılar.

Merhaba,
2010 hiç kullanmadım. 2007'ye bile şimdilerde geçtim diyebilirim. 2010'da da bu kodun çalışması gerekirdi diye düşünmeme rağmen, çalışmamış olacak ki bu soruyu sordunuz. Bu durumda şöyle bir yöntem uygulayabiliriz. "Makro Kaydet"i çalıştırın. Excel dosyanız üzerinden pdf olarak kaydetmek istediğiniz sayfayı seçin, Farklı Kaydet seçeneklerinden "PDF"yi seçerek kayıt işlemini gerçekleştirin. Makro Kaydet'i durdurun. Elde ettiğiniz kodu buraya ekleyin. Ben de bu kodu, kodların ilgili yerine yerleştireyim.