Adres - Mektup BİrleŞtİrme Otomatİk Sql Komutu

[h2001]

Exceldeki verilerimi bu yöntemle word belgesine aktarıyorum. ancak, word belgesi açıldığında sQl komutunu çalıştırmak isteyip istemediğimi soruyor. Sormadan çalıştırsın istiyorum. Bknz. ekli dosya. Syg.

 

[h2001]

yanıtlarsanız sevinirim . Teşekkürler.

 

[alpi]

Daha fazla açıklayıcı olursanız yardımcı olmaya çalışırım.

 

[sbayyigit]

Daha fazla açıklayıcı olursanız yardımcı olmaya çalışırım.

sorunu ben de anlamadım.

 

[h2001]

sn. alpi ve sn. sbayyiğit ilginiz için teşekkür ederim.
Örnek dosyam ekte.Excel dökümanında A, B,C sutunundaki bilgilerimi adres birleştirme yöntemiyle word dökümanına aktaryorum.

Bir buton yardımıyla word dosyamı açmak istediğimde "bu belgenin açılması aşağıdaki SQL komutunu çalştıracak "uyarısıyla onaylamamı istiyor.
Doğrudan SQL komutu çalıştırılarak word belgesi açılsın, UYARI MESAJI GELMESİN istiyorum.
Saygılar.

 

[alpi]

İşin açıkçası kullandığınız yöntemi anlayamadım ama değişik bir çözüm yolu önerebilirim

Aşağıdaki kodu Word dosyanızın ThisDocument kod editörüne yazın dosyayı açtığınızda verileri alacak ve kapattığınızda word dosyanızı temizleyecektir.

Option Explicit
Private Sub Document_Close()
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    ThisDocument.Save
End Sub
Private Sub Document_Open()
    Dim i As Object
    Dim d As Object
    Set i = CreateObject("Excel.Application")
    Set d = i.Workbooks.Open(ThisDocument.Path & "\DENEME.xls")
    With Selection
        .TypeText Text:="Sayın, " & d.Sheets("Sayfa1").[A2]
        .TypeParagraph
        .TypeText Text:="Adres, " & d.Sheets("Sayfa1").[C2]
        .TypeParagraph
        .TypeText Text:="Borcunuz, " & d.Sheets("Sayfa1").[B2] & " YTL dir."
        .TypeParagraph
        .TypeText Text:="Lütfen ödeyiniz."
    End With
    d.Close
    i.Quit
End Sub

 

[h2001]

Değişik aktarma yönteminiz için teşekkürler sn. alpi ,
Ancak, bu benim çalışmama pek uymayacak gibi görünüyor, ya da ben anlamadım.
Ekteki dosyam sadece bir örnek. Böyle bir sayfalar dolusu word dökümanım var ve üzerindeki değerlerden (sözcük/rakamlardan) bazılarını, excel veritabanındaki değerler oluşturuyor. Yani word dökümanında kalıp kısımlar var bunların değişmemesi, yalnızca ilgili sözcük/rakamların güncellenmesi gerekiyor. Sanırım sizin verdiğiniz makro, değerlerin her birinin alt alta farklı satırlara aktarılması esasına dayalı ve bu makro ile düzgün paragraf ve satır oluşturmam zor görünüyor.

K&#305;sacas&#305; benim worde aktar&#305;m ile ilgili bir sorunum yok, bana adres -mektup birle&#351;tirme y&#246;ntemi daha kolay geldi. Sadece <<<SQL uyar&#305; mesaj gelmeden >>> word d&#246;k&#252;man&#305;m excel veri taban&#305;ndan veri als&#305;n istiyorum. Gelen uyar&#305; ile ilgili d&#246;k&#252;man ilk mesaj&#305;ma ekli. Sayg&#305;lar.