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

• #1487 #90999040 törölt tag Cpt. Flint #1486

  Új Válasz 2011-10-11 17:23:17 #1487

  Ú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

  

  #90999040

  törölt tag

  válasz Cpt. Flint #1486 üzenetére

  És a másik alkalmazás VBA utasításkészletét is? Tehát levezényelhetném az excelből (DDEExecute nélkül) a körlevélkészítést a MailMerge-vel valami módon?

  Természetesen. A legegyszerűbb, ha az excel vba referenciáihoz hozzáadod a "Microsoft Word x.y Object Library"-t. Ez után már használhatod pl. így(vilag #1472-es hozzászólása alapján):

  Dim wrdApp As Word.Application
  Dim wrdDoc As Word.Document
  Set wrdApp = CreateObject("Word.Application")
  With wrdApp
  .Visible = True 'látszik a word alkalmazás
  Set wrdDoc = .Documents.Open(".doc fájl neve") 'megnyitja a word documentumot
  .ActiveDocument.MailMerge.MainDocumentType = Word.wdFormLetters
  .ActiveDocument.MailMerge.OpenDataSource Name:=".xls fájl neve", _
  LinkToSource:=True, _
  Format:=Word.WdOpenFormat.wdOpenFormatAuto, _
  Connection:="Munka1$", _
  SQLStatement:="SELECT * FROM `Munka1$`"
  With .ActiveDocument.MailMerge
  .Destination = Word.wdSendToPrinter
  .SuppressBlankLines = False
  With .DataSource
  .FirstRecord = 14
  .LastRecord = ig2 'saját változó
  End With
  .Execute Pause:=False 'Mailmerge futtatása
  End With
  End With
  'wrdDoc.Close 'documentum bezárása
  'wrdApp.Quit 'word bezárása
  'takarítás
  'Set wrdApp = Nothing
  'Set wrdDoc = Nothing

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