Kaip automatizuoti laiškų suliejimą naudojant VBA „Microsoft Excel“

Šiame straipsnyje mes sužinosime, kaip automatizuoti laiškų sujungimą naudojant „Microsoft Excel“ VBA.

Sujungimas laiškais: - tai šaltinis, skirtas sujungti duomenų informaciją į tekstą ir tada atspausdinti dokumentą. Norėdami atlikti tokią operaciją, naudojame „Microsoft Word“.

Supraskime atlikdami paprastą pratimą:-

Ataskaitos lape turime raidžių formatą ir norime pritaikyti laiškų suliejimą per VBA, kuriame taip pat norime pakeisti raidės informaciją.

Turime 2 lapus. 1 lape yra duomenų su išsamia informacija, kam norime duoti laiškus. Pirmųjų duomenų A stulpelyje yra Pavadinimas, B stulpelyje - gatvės adresas, C stulpelyje - miestas, D stulpelio regionas, E stulpelyje ir F stulpelyje yra pašto pašto indeksas. Yra vienas komandų mygtukas, kurį reikia perkelti ataskaitos lape.

2^antra lape yra raidžių formatas su 2 komandų mygtukais; vienas mygtukas, skirtas judėti duomenų lape, o antrasis komandinis mygtukas - dirbti sujungiant laiškus

Pirmiausia parašysime pagrindinių duomenų komandų mygtuko VBA kodą. Turime atlikti toliau nurodytus veiksmus:-

Pirmiausia į darbalapį įterpsime komandos mygtuką.
Eikite į skirtuką „Kūrėjas“ ir įterpkite „Activexcontrol“ mygtuką „Command“.
Pervardykite komandos mygtuką pavadinimu „Letter“ ir dabar priskirkite žemiau nurodytą makrokomandą:-

Privatus antrinis Main_data_Click ()

Darbo lapai („Ataskaita“). Aktyvinti

Diapazonas („A19“). Rodyti

Pabaiga Sub

Dabar į ataskaitos lapą įterpsime antrąjį komandos mygtuką ir priskirsime makrokomandą judėti pirmame lape. Turime atlikti toliau nurodytus veiksmus:-

Pervardykite komandos mygtuką pavadinimu „Duomenys“ ir priskirkite žemiau nurodytą makrokomandą:-

Privati antrinė komandaButton2_Click ()

Darbo lapai („Main_Data“). Aktyvinti

Diapazonas („A1“). Rodyti

Pabaiga Sub

Dabar parašysime pagrindinį pašto suliejimo kodą, atlikdami toliau nurodytus veiksmus:-

Įdėkite komandos mygtuką ir pervardykite jį kaip „Letter Print“, tada priskirkite toliau nurodytą kodą:-

Privati antrinė komandaButton1_Click ()

Dim Startrow Kaip sveikasis skaičius, paskutinis kaip sveikasis skaičius

Dim MsgAs eilutė

„Dim Totalrecords“ kaip eilutė

Prastas pavadinimas kaip eilutė, Street_AddressAs eilutė, miestas kaip eilutė, regionas kaip eilutė, šalis kaip eilutė, paštas kaip eilutė

Totalrecords = "= counta (Main_Data! A: A)"

Diapazonas ("L1") = Iš viso įrašų

Sutemdyti datą kaip datą

Nustatyti WRP = Lakštai („Ataskaita“)

mydate = data
WRP.Range ("A9") = mano data

WRP.Range ("A9"). NumberFormat = "[$ -F800] dddd, mmmm, dd, yyyy"

WRP.Range ("A9"). HorizontalAlignment = xlLeft

Startrow = InputBox („Įveskite pirmąjį spausdinamą įrašą“).

lastrow = InputBox ("Įveskite paskutinį spausdinamą įrašą.")

Jei Startrow> lastrow Tada

Msg = "ERROR" & vbCrLf & "Pradinė eilutė turi būti mažesnė nei paskutinė eilutė"

„Msgbox“ žinutė, „vbCritical“, „ExcelTip“

Pabaiga Jei

Dėl i = Startrow Norėdami perkelti

pavadinimas = Lakštai ("Pagrindiniai_datai"). Ląstelės (i, 1)

Gatvės_adresas = Skaičiuoklės („Pagrindiniai duomenys“). Ląstelės (i, 2)

city = Sheets ("Main_data"). Ląstelės (i, 3)

region = Sheets ("Main_data"). Ląstelės (i, 4)

country = Sheets ("Main_data"). Ląstelės (i, 5)

postal = Sheets ("Main_data"). Ląstelės (i, 6)

Skaičiuoklės („Ataskaita“). Diapazonas („A7“) = pavadinimas & vbCrLf & Street_Address & vbCrLf & miestas & regionas & šalis & vbCrLf ir paštas

Skaičiuoklės ("Ataskaita"). Diapazonas ("A11") = "Mieli" & "" & vardas & ","

CheckBox1 = Tiesa

Jei pažymimas 1 langelis

ActiveSheet.PrintPreview

Kitas

ActiveSheet.PrintOut

Pabaiga Jei

Kitas I.

Pabaiga Sub

Kodo paaiškinimas: - Pirmiausia nustatysime kintamuosius, tada nustatysime datą ir datos formatą, tada - paskutinę eilutę ir pradžios eilutę. Tada mes sukūrėme pranešimų dėžutę pranešimui perduoti. Tada mes nustatysime duomenis ir diapazoną, kurį norime užfiksuoti laišku.

Norėdami paleisti kodą, paspauskite klaviatūros klavišą F5.
Tada turėsite įvesti pirmąjį įrašo tašką. Po to gausite naują pranešimų laukelį, kuriame bus įvestas paskutinis taško įrašas.