Új hozzászólás Aktív témák

• #30841 Fferi50 Topikgazda the radish #30821

  Új Válasz 2016-03-03 22:14:39 #30841

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz the radish #30821 üzenetére

  Szia!

  Az alábbi makrót idomítsd a saját fájljaidhoz. A makró maga egy excel fájlban van.
  Sub wordkorlevel()
  Dim wd As Object
  Dim wddoc As Object
  Set wd = CreateObject("Word.Application") ' megnyitja a word alkalmazást
  wd.Visible = True 'láthatóvá teszi
  Set wddoc = wd.documents.Open("C:\Users\fferi\Documents\Körlevél.docx") 'megnyitja a körlevelet
  wddoc.mailmerge.opendatasource Name:="C:\Users\fferi\Documents\Korleveles1.xlsx", linktosource:=True, sqlstatement:="SELECT * FROM `Munka1$`" ' összekapcsolja a forrással
  wddoc.Activate ' csak azért, hogy lásd
  wddoc.mailmerge.ViewMailMergeFieldCodes = False ' az adatokat mutatja és nem a kódokat
  Stop
  wddoc.Close False 'mentés nélkül bezárja
  wd.Quit ' kilép a word alkalmazásból
  End Sub

  A kód egy excel munkafüzet normál moduljában van (de lehet a körlevél forrás excel fájljában is, csak akkor menteni xlsm formában kell!!
  Ezen kívül a VBA Tools References menüjében be kell pipálni a megfelelő Word verzió könyvtárát!

  Üdv.

Új hozzászólás Aktív témák