Sziasztok
Megpróbálok adatokat küldeni excel lapból word dokumentumba.
Tökéletesen mennek az adatok, csak az a probléma, hogy Word-be küldöm az aliment-t a Word dokumentumban.
Kérem, segítsen az igazítás fő problémájában.
Kösz
Shozib
Ez az a kód, amit használok.
Privát Sub CommandButton2_Click ()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
Lap1.Tartomány("F1:Q72").Másolás
Az objWord-del
.Dokumentumok.Hozzáadás
.Kiválasztás.Beillesztés
.Visible = True
Vége
Set objWord = Semmi
End Sub
Megpróbálok adatokat küldeni excel lapból word dokumentumba.
Tökéletesen mennek az adatok, csak az a probléma, hogy Word-be küldöm az aliment-t a Word dokumentumban.
Kérem, segítsen az igazítás fő problémájában.
Kösz
Shozib
Ez az a kód, amit használok.
Privát Sub CommandButton2_Click ()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
Lap1.Tartomány("F1:Q72").Másolás
Az objWord-del
.Dokumentumok.Hozzáadás
.Kiválasztás.Beillesztés
.Visible = True
Vége
Set objWord = Semmi
End Sub