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

• #1464 vilag tag martonx #1463

  Új Válasz 2011-09-30 06:13:32 #1464

  Ú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

  

  vilag

  tag

  válasz martonx #1463 üzenetére

  Ezeken már túl vagyok, de a wordben rögzített makrót nem tudom maradéktalanul átfordítani excelbe, mert nem egészen értem minden részét, de valaki ebben segít akkor lehet, hogy meg is oldódik a probléma. Alább a rögzített makró:

  Sub
  ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
  ActiveDocument.MailMerge.OpenDataSource Name:= _
  "V:\Postakönyv\nyomtatas.xls", ConfirmConversions:=False, ReadOnly:=False _
  , LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
  PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
  "", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
  "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=V:\Postakönyv\nyomtatas.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type" _
  , SQLStatement:="SELECT * FROM `Munka1$`", SQLStatement1:="", SubType:= _
  wdMergeSubTypeAccess
  
  End Sub

  Addig eljutottam, hogy az "SQLStatement" adja meg a munkalapot, de még így is megáll (gondolom azért mert nem tudtam megadni a fejléc van/nincs-re a választ. Szóval az ablak így is feljön, a különbség csupán az, hogy nincs egyetlen egy kiválasztható munkalap sem a listán.

  Sejtem, hogy a Extended Properties=""HDR=YES kell nekem, de nem tudom úgy megírni az excelben, hogy az eljáráshíváskor az is átkerüljön.

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