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

• #32164 Fferi50 Topikgazda Pikkolo^^ #32160

  Új Válasz 2016-07-23 21:53:53 #32164

  Ú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

  

  Fferi50

  Topikgazda

  válasz Pikkolo^^ #32160 üzenetére

  Szia!

  Igen, meg kell nyitnod hozzá a Word alkalmazást az Excel makróban, abba kreálni egy új dokumentumot és az Excel tartalmat belemásolod.

  Sub wordos()
Dim wrd As Object, wd As Document
Set wrd = CreateObject("word.application") 'Word nyit
wrd.Visible = True
Set wd = wrd.documents.Add 'új dokumentumot nyit
ActiveSheet.UsedRange.Copy 'kijelölöd a másolandó területet (pl. Range("A1:F25")
wrd.Selection.Paste 'ha képként szeretnéd beilleszteni, akkor PasteSpecial, paraméterekkel HELP segít
wrd.Activate
wd.Save 'itt meg kell adnod, hogy milyen néven mented
wrd.Quit ' Word bezár
End Sub

  Figyelem! A makró futtatása előtt a VBA ablak Tools Menüjében a References menüpontban be kell jelölnöd a megfelelő Microsoft Word könyvtárat!!! (pl. 2016-os nál Microsoft Word 16.0 Object Library).

  Üdv.

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