Šiame straipsnyje sukursime makrokomandą, skirtą moduliui importuoti į aktyvią darbaknygę.
Mes naudosime „Filename.bas“ kaip modulį, kurį norime importuoti.
Spustelėkite įterpimo mygtuką, kad importuotumėte modulį iš „Filename.bas“ į aktyvią darbaknygę.
Darbaknygėje yra tik vienas modulis „MainModule“.
Paleidus makrokomandą, naujas modulis bus importuotas iš „Filename.bas“
Loginis paaiškinimas
Šiame straipsnyje mes sukūrėme dvi makrokomandas: „InsertVBComponent“ ir „Calling_Procedure“
„InsertVBComponent“
Jis įveda darbaknygės pavadinimą ir failo pavadinimą ir importuoja modulį į darbaknygę.
Skambinimas_procesas
Jis naudojamas įterpti makrokomandą „InsertVBComponent“ su aktyvia darbaknyge ir „Filename.bas“ kaip įvestis.
Kodo paaiškinimas
Jei Dir (CompFileName) "" Tada
Viršuje esantis kodas naudojamas patikrinti, ar failo pavadinimas yra kataloge.
wb.VBProject.VBComponents.Import CompFileName
Aukščiau pateiktas kodas naudojamas moduliui importuoti į aktyvią darbaknygę.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub InsertVBComponent“ („ByVal wb“ kaip darbaknygė, „ByVal CompFileName“ kaip eilutė) „įterpia„ CompFileName “turinį kaip naują komponentą darbaknygėje“ „CompFileName“ turi būti galiojantis VBA komponentas, tinkamas importuoti (eksportuotas VBA komponentas). Tikrinama, ar „CompFileName“ failas egzistuoja Jei Dir (CompFileName) "" Tada "Ignoruoti klaidas On Error Resume Next" Įterpia komponentą iš failo wb.VBProject.VBComponents.Import CompFileName On Error GoTo 0 End If Set wb = Nothing End Sub Sub Calling_Procedure () 'Calling InsertVBComponent procedure InsertVBComponent ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" pabaiga
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el