Kā automatizēt pasta sapludināšanu, izmantojot VBA programmā Microsoft Excel

Šajā rakstā mēs uzzināsim, kā automatizēt pasta sapludināšanu, izmantojot Microsoft Excel VBA.

Pasta sapludināšana: - tas ir avots, lai apvienotu datu informāciju tekstā un pēc tam izdrukātu dokumentu. Lai veiktu šādu darbību, mēs izmantojam Microsoft Word.

Sapratīsim ar vienkāršu vingrinājumu:-

Pārskata lapā mums ir vēstules formāts, un mēs vēlamies izmantot pasta sapludināšanu, izmantojot VBA, kurā vēlamies mainīt arī vēstules informāciju.

Mums ir 2 loksnes. 1 lapa satur datus ar informāciju, kam vēlamies dot vēstules. Pirmajos datos A slejā ir nosaukums, B slejā ir adrese, C slejā ir pilsēta, D kolonnas apgabals, bet E slejā un F slejā ir pasta pasta indekss. Pārskata lapā ir jāpārvieto viena komandu poga.

2^nd lapai ir burtu formāts ar 2 komandu pogām; viena poga, lai pārvietotos pa datu lapu, un otra komandu poga ir darbs pasta sapludināšanai

Pirmkārt, mēs uzrakstīsim galveno datu komandu pogas VBA kodu. Mums ir jāievēro tālāk norādītās darbības:-

Vispirms mēs darblapā ievietojam komandu pogu.
Dodieties uz cilni Izstrādātājs un pēc tam ievietojiet komandu pogu no Activexcontrol.
Pārdēvējiet komandu pogu ar nosaukumu “Burts” un tagad piešķiriet zemāk minēto makro:-

Privāta apakšnodaļa Main_data_Click ()

Darblapas ("Ziņojums"). Aktivizēt

Diapazons ("A19"). Parādīt

Beigt apakš

Tagad mēs atskaites lapā ievietojam otro komandu pogu un piešķiram makro, lai pārvietotos pirmajā lapā. Mums ir jāievēro tālāk norādītās darbības:-

Pārdēvējiet komandu pogu ar nosaukumu “Dati” un piešķiriet tālāk minēto makro:-

Privāta apakškomandaButton2_Click ()

Darblapas ("Main_Data"). Aktivizēt

Diapazons ("A1"). Parādīt

Beigt apakš

Tagad mēs uzrakstīsim pasta sapludināšanas galveno kodu, veicot tālāk norādītās darbības:-

Ievietojiet komandas pogu un pārdēvējiet to par “Letter Print” un pēc tam piešķiriet tālāk minēto kodu:-

Privāta apakškomandaButton1_Click ()

Dim StartrowKā vesels skaitlis, aizvelciet kā vesels skaitlis

Dim MsgAs virkne

Dim TotalrecordsAs String

Dim nosaukums As String, Street_AddressAs String, pilsēta Kā String, reģions Kā String, valsts Kā String, pasta kā String

Totalrecords = "= skaitīšana (Main_Data! A: A)"

Diapazons ("L1") = Totalrecords

Dim datumu kā datumu

Iestatīt WRP = Sheets ("Ziņojums")

mydate = datums
WRP.Range ("A9") = mydate

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

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

Startrow = InputBox ("Ievadiet pirmo drukājamo ierakstu.")

lastrow = InputBox ("Ievadiet pēdējo drukājamo ierakstu.")

Ja Startrow> lastrow Then

Msg = "KĻŪDA" & vbCrLf & "Sākuma rindai jābūt mazākai par pēdējo rindu"

Msgbox Msg, vbCritical, "ExcelTip"

Beigas Ja

Attiecībā uz i = Startrow Lai aizvilktu

name = Sheets ("Main_data"). Šūnas (i, 1)

Street_Address = Sheets ("Main_data"). Šūnas (i, 2)

city = Sheets ("Main_data"). Šūnas (i, 3)

region = Sheets ("Main_data"). Šūnas (i, 4)

valsts = Izklājlapas ("Main_data"). Šūnas (i, 5)

postal = Sheets ("Main_data"). Šūnas (i, 6)

Izklājlapas ("Ziņojums"). Diapazons ("A7") = nosaukums un vbCrLf & Street_Address & vbCrLf & pilsēta un reģions & valsts & vbCrLf & pasts

Izklājlapas ("Ziņojums"). Diapazons ("A11") = "Cien." & "" & Vārds & ","

CheckBox1 = True

Ja izvēles rūtiņa1 Tad

ActiveSheet.PrintPreview

Citādi

ActiveSheet.PrintOut

Beigas Ja

Tālāk i

Beigt apakš

Koda skaidrojums: - Pirmkārt, mēs definēsim mainīgos, pēc tam noteiksim datumu un datuma formātu, pēc tam definēsim pēdējo rindu un sākuma rindu. Tad mēs esam izveidojuši ziņojumu lodziņu ziņojuma pārsūtīšanai. Tad mēs definēsim datus un diapazonu, ko vēlamies uzņemt ar vēstuli.

Lai palaistu kodu, nospiediet tastatūras taustiņu F5.
Tad jums jāievada pirmais ieraksta punkts. Pēc tam jūs saņemsit jaunu ziņojumu lodziņu, lai ievadītu pēdējā punkta ierakstu.