Een VBA-code om alle invoegtoepassingen in Excel te lijsten
In Excel kun je mogelijk enkele invoegtoepassingen toevoegen of invoegen om gegevens beter te verwerken. Zoals we weten, kunnen we naar het venster Opties gaan om alle invoegtoepassingen te bekijken, maar is er een manier om alle invoegtoepassingen in een werkblad te lijsten? In deze handleiding wordt een VBA-code aangeboden om alle invoegtoepassingen in Excel te lijsten.
1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de onderstaande code in het lege script.
VBA: Lijst van alle invoegtoepassingen
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
3. Druk op F5 om de code uit te voeren. Er is een werkblad met de naam Addins List gemaakt met alle invoegtoepassingen.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Invoegtoepassingen uitschakelen bij het opstarten van Excel
Mogelijk heb je enkele invoegtoepassingen geïnstalleerd in je Microsoft Excel, maar nu moet je een specifieke invoegtoepassing uitschakelen bij het opstarten van Excel. Hoe los je dit probleem op? De methode in dit artikel kan je helpen.
Exporteer en sla elk werkblad op als een apart nieuw werkboek in Excel
Stel dat je één of meerdere werkbladen wilt exporteren en opslaan als een nieuw werkboek, hoe ga je daarmee om? Normaal gesproken kopieer je elk werkblad en plak je het in een nieuw werkboek. Maar hier bieden we je enkele handige trucs aan om dit te doen:
Voeg werkbladen in vanuit een ander werkboek
Soms moet je mogelijk werkbladen importeren vanuit andere werkboeken. Als je de inhoud van de werkbladen kopieert en plakt in het huidige werkboek, verlies je sommige opmaakstijlen, zoals rijhoogte, enz. Dit artikel beschrijft enkele handige manieren om snel werkbladen vanuit andere werkboeken in te voegen zonder dat gegevens en opmaakstijlen verloren gaan.
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!