Excel 2000: Open alle gekoppelde werk mappen Macro

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 213647 - Bekijk de producten waarop dit artikel van toepassing is.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

In Microsoft Excel schrijft u een Microsoft Visual Basic for Applications (macroSubprocedure) om alle werk mappen die zijn gekoppeld aan een geopende werkmap te openen. Dit artikel bevat een voorbeeld macro om dit te bereiken.

Meer informatie

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.

Voorbeeld Visual Basic-Procedure

   Sub OpenLinkedWorkbooks()
      Dim Links As Variant
      ' Obtain an array for the links to Excel workbooks
      ' in the active workbook.
      Links = ActiveWorkbook.LinkSources(xlExcelLinks)
      ' If the Links array is not empty then open each
      ' linked workbook. If the array is empty, then
      ' display an error message.
      If Not IsEmpty(Links) Then
         For i = 1 To UBound(Links)
            Workbooks.Open Links(i)
         Next i
      Else
         MsgBox "This workbook does not contain any links " & _
            "to other workbooks"
      End If

   End Sub
				

Eigenschappen

Artikel ID: 213647 - Laatste beoordeling: maandag 28 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Excel 2000 Standard Edition
Trefwoorden: 
kbdtacode kbhowto kbprogramming kbmt KB213647 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:213647

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com