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

• vilag tag

  #1472

  #1466 martonx

  2011-10-03 11:22:12

  Új Válasz

  Ú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

  

  vilag

  tag

  #1466 martonx

  #1466 martonx

  hopsz a munkalap választásra megvan a válasz, gugli a barátod
  Tedd bele az OpenDataSource-ba, hogy : Connection:="Munka1"
  Ennek analógiájára, lehet lenne valami Headers:=true is vagy ilyesmi. Ez utóbbi csak ötlet volt. Ááá a HDR:=YES; mintha pont ezt jelentené

  .OpenDataSource Name:="C:\Documents\Names.xls", _
  ReadOnly:=True, _
  Connection:="Sales"

  Szóval akkor nem a header-rel lesz bajod, hanem a munkalap kiválasztásával.

  Esetleg még egy próba lehetőség letiltani a felugró ablakokat, ilyenkor hátha csöndben a háttérben megcsinálja? Application.DisplayAlerts = false

  Hali!

  Megoldódott a probléma!

  A kód (ezt kell a kívánt Word doksiba, vagyis a célfájlba írni):

  ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
  ActiveDocument.MailMerge.OpenDataSource _
  Name:="xyz", _ 'forrásfájl helye
  LinkToSource:=True, _
  Format:=wdOpenFormatAuto, _
  Connection:="Munka1$", _
  SQLStatement:="SELECT * FROM `Munka1$`"
  
  With ActiveDocument.MailMerge
  .Destination = wdSendToPrinter
  .SuppressBlankLines = False
  With .DataSource
  .FirstRecord = 14
  .LastRecord = ig2 'saját változó
  End With
  .Execute Pause:=False
  End With

  Neház szülés volt, de meglett!!!

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