Hi everyone I am trying to send data from excel sheet to word document. The data is going perfectly, the only problem is when I send the data to word the aliment in word document gets messed. Please help with my main problem of alignment. Thanks Shozib This is the code which I am using. Private Sub CommandButton2_Click() Dim objWord As Object Set objWord = CreateObject("Word.Application") Sheet1.Range("F1:Q72").Copy With objWord .Documents.Add .Selection.Paste .Visible = True End With Set objWord = Nothing End Sub

Nový

Problém s přenosem dat z Excelu do Wordu

vynikat

Shozib

Neděle, 03 června 2018

0 Odpovědi

3.3 tis. Návštěv

Hlasy

Zrušit

Ahoj všichni
Snažím se odeslat data z excelového listu do wordového dokumentu.
Data jdou perfektně, jediný problém je, když pošlu data do wordu, aliment ve wordu se pokazí.
Prosím o pomoc s mým hlavním problémem se zarovnáním.

Díky
Shozib

Toto je kód, který používám.

Private Sub CommandButton2_Click ()
Ztlumit objWord jako objekt
Set objWord = CreateObject("Word.Application")

List1.Rozsah("F1:Q72").Kopírovat
S objWordem
.Dokumenty.Přidat
.Výběr. Vložit
.Visible = True
Konec s

Nastavit objWord = nic

End Sub

Na tento příspěvek zatím nebyly učiněny žádné odpovědi.

Chcete-li odeslat odpověď, přihlaste se

Abyste mohli psát odpověď, musíte být přihlášeni. Přihlaste se pomocí formuláře napravo nebo zaregistrujte účet, pokud jste zde nový. Registrujte se zde "