Preskoči na glavno vsebino

Koda VBA za seznam vseh dodanih datotek v Excelu

V Excelu lahko dodate ali vstavite nekaj dodatkov za boljše obravnavanje podatkov. Kot vemo, lahko odpremo okno Možnosti, da si ogledamo vse dodane datoteke, ampak ali obstaja kakršen koli seznam vseh dodanih datotek na listu? Zdaj v tej vadnici ponuja kodo VBA za naštevanje vseh dodanih datotek v Excelu.

1. Pritisnite Alt + F11 tipke za omogočanje okna Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduliin prilepite spodnjo kodo v prazen skript.

VBA: Seznam vseh dodanih datotek

Public Sub AllAddins()
'UpdatebyKutools20191031
Dim xWSh As Worksheet
Dim xWB As Workbook
Dim xAddin As AddIn
Dim xCOMAddin As COMAddIn
Dim xFA, xFCA As Integer
Dim xI As Integer
Dim xStr As String
 
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Addins List"
Set xWB = Application.ActiveWorkbook
Set xWSh = xWB.Worksheets.Item(xStr)
If Not xWSh Is Nothing Then
    xWSh.Delete
End If
Set xWSh = xWB.Worksheets.Add
xWSh.Name = xStr
xWSh.Range("A1").Value = "Name"
xWSh.Range("B1").Value = "FullName"
xWSh.Range("C1").Value = "Installed"
For xFA = 1 To Application.AddIns.Count
    Set xAddin = Application.AddIns(xFA)
    xI = xFA + 1
    Range("A" & xI).Value = xAddin.Name
    Range("B" & xI).Value = xAddin.FullName
    Range("C" & xI).Value = xAddin.Installed
Next xFA
xFA = (xFA + 2)
xWSh.Range("A" & xFA).Value = "Description"
xWSh.Range("B" & xFA).Value = "progID"
xWSh.Range("C" & xFA).Value = "Connect"
For xFCA = 1 To Application.COMAddIns.Count
    xI = xFCA + xFA
    Set xCOMAddin = Application.COMAddIns(xFCA)
    Range("A" & xI).Value = xCOMAddin.Description
    Range("B" & xI).Value = xCOMAddin.progID
    Range("C" & xI).Value = xCOMAddin.Connect
Next xFCA
Application.DisplayAlerts = True
End Sub

seznam dokumentov vse dodaj v 1

3. Pritisnite F5 s ključem za zagon kode je bil z vsemi dodatki ustvarjen list z imenom Addins List.
seznam dokumentov vse dodaj v 2


Druge operacije (članki)

Onemogočite dodatke ob zagonu Excela
Morda ste v svoj Microsoft Excel namestili nekaj dodatkov, zdaj pa morate pri zagonu Excela onemogočiti določen dodatek. Kako rešiti to težavo? Metoda v tem članku vam lahko pomaga.

Izvozite in shranite vsak delovni list kot ločen nov delovni zvezek v Excelu
Recimo, da želite izvoziti in shraniti enega ali več delovnih listov kot nov delovni zvezek, kako se boste z njim spopadli? Običajno lahko kopirate vsak delovni list in prilepite v nov delovni zvezek. Tu pa vam ponujamo nekaj priročnih trikov, s katerimi se lahko spopadete:

Vstavite delovne liste iz drugega delovnega zvezka
Včasih boste morda morali uvoziti delovne liste iz drugih delovnih zvezkov. Če kopirate vsebino delovnih listov in jo prilepite v trenutni delovni zvezek, ta izgubi nekatere sloge oblikovanja, na primer višino vrstic itd. Ta članek opisuje nekaj priročnih načinov za hitro vstavljanje delovnih listov iz drugih delovnih zvezkov z izgubo podatkov in stilov oblikovanja.


  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...
zavihek kte 201905
  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations