V excelu ne. Ve wordu ano a ta určitě se dá propojit na data z excelu...citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Hromadná korespondence?
MS Excel
Téma: Hromadná korespondence? 
Zaslal/a VlastaF 9.9.2015 12:36
Ahoj,
chci se zeptat jestli v Excelu existuje něco jako hromadná korespondence. Na listu1 mám formulář, kde si pomocí rolovacího seznamu najdu žáka a pomocí fce SVYHLEDAT se načtou údaje z listu2. Na začátku školního roku potřebuju pro všechny žáky (cca 150) tento formulář 3x vytisknout. Nechce se mně půl dne sedět a klikat: seznam-tisk-seznam-....
Příloha: 
26771_zaci_form.rar (13kB, staženo 68x)
26771_zaci_form.rar (13kB, staženo 68x)jj, word umí načítat data z excelu, tak jak je definovaná příloha, tak to stačí.. To bude fungovat 
citovat
citovatDíky! Ale s Wordem neumím vůbec. Nemohli byste mi alespoň nastínit postup?citovat
ještě by to mohlo jít možná takto
Sub test()
Dim i, j, k As Long
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("data")
i = 2
k = sht.Range("A1", sht.Range("A1").End(xlDown)).Rows.Count - 1
For j = 1 To k
Range("E13").Value = Sheets("Data").Range("A" & i).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
i = i + 1
Next j
End Sub
citovat
Sub test()
Dim i, j, k As Long
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("data")
i = 2
k = sht.Range("A1", sht.Range("A1").End(xlDown)).Rows.Count - 1
For j = 1 To k
Range("E13").Value = Sheets("Data").Range("A" & i).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
i = i + 1
Next j
End Sub
citovat
Pokud umíš fce svyhledat, tak hromadná korespondence ve wordu bude sranda...
pusť si průvodce hromadnou korespondencí a tam Tě to navede - vytvoříš si šablonu
(Příjmení a Jméno:
Dat. Narození:
Adresa:
PSČ:
Obor:
atd.)
rozložení dle svého uvážení, pak načteš data z excelu z listu data. Pak už jen vytvoříš dopis, tzn proměnné položky dáš na své místo - tzn. Příjmení a Jméno: a za to vložíš slučované pole z excelu
to když uděláš pro všechny položky, tak máš hotovo
na netu určo najdeš spousty návodů jak na tocitovat
pusť si průvodce hromadnou korespondencí a tam Tě to navede - vytvoříš si šablonu
(Příjmení a Jméno:
Dat. Narození:
Adresa:
PSČ:
Obor:
atd.)
rozložení dle svého uvážení, pak načteš data z excelu z listu data. Pak už jen vytvoříš dopis, tzn proměnné položky dáš na své místo - tzn. Příjmení a Jméno: a za to vložíš slučované pole z excelu
to když uděláš pro všechny položky, tak máš hotovo
na netu určo najdeš spousty návodů jak na tocitovat
Devil, díky! Makro funguje! Ale slibuju, že to zkusím i v tom wordu - abych si rozšířil obzory 
citovat
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články