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

նոր

Excel- ից Word- ի հավասարեցման խնդրի տվյալների փոխանցում

Excel

Շոզիբ

Կիրակի, 03 Հունիս 2018

0 Գրառումներ

3.3K այցելություններ

Քվեարկել

արձակել

Բարեւ բոլորին
Ես փորձում եմ տվյալներ ուղարկել excel թերթից word փաստաթուղթ:
Տվյալները հիանալի են ընթանում, միակ խնդիրն այն է, երբ ես տվյալները ուղարկում եմ word-ին, ալիմենտը word փաստաթուղթը խառնվում է:
Խնդրում եմ օգնեք դասավորության իմ հիմնական խնդրին:

Շնորհակալություն
Շոզիբ

Սա այն կոդը է, որը ես օգտագործում եմ:

Մասնավոր ենթահրամանի կոճակ2_Click()
Dim objWord-ը որպես օբյեկտ
Սահմանել objWord = CreateObject («Word.Application»)

Sheet1.Range("F1:Q72").Պատճենել
ObjWord-ի հետ
.Փաստաթղթեր.Ավելացնել
.Ընտրություն.Կպցնել
.Տեսանելի = Ճշմարիտ
Վերջ

Սահմանել objWord = Ոչինչ

Վերջ Sub

Այս գրառման համար դեռևս պատասխաններ չեն տրվել:

Խնդրում ենք մուտք գործել՝ պատասխան փակցնելու համար

Դուք պետք է մուտք գործեք, որպեսզի կարողանաք պատասխան փակցնել: Մուտք գործեք՝ օգտագործելով աջ կողմում գտնվող ձևը կամ գրանցեք հաշիվ, եթե նոր եք այստեղ: Գրանցվել այստեղ »