Új hozzászólás Aktív témák
-
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 SubAddig 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
- Politika
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Spórolós topik
- BestBuy ruhás topik
- Eredeti játékok OFF topik
- Tippmix
- Samsung Galaxy S21 és S21+ - húszra akartak lapot húzni
- Kormányok / autós szimulátorok topicja
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- További aktív témák...
- ASUS RX 6700 XT 12GB GDDR6 DUAL OC Edition Eladó! 97.000.-
- ASUS ROG STRIX Z790-H GAMING WIFI - Új, Gari 2026.06.09. -ig - Eladó! 105.000.-
- Új Bontatlan iPhone 15 128GB Kék Független/1 Év Apple Gar./p3450/
- XFX Radeon Speedster SWFT 210 RX 6600 XT 8GB GDDR6 128bit (RX-66XT8DFDQ) Új ventillátorokkal
- ÚJ ASUS ROG Ally (AMD Z1 !!Extreme!!) + 3 hó XBOX pass + 19k Ft értékű Dokkoló