Het pad voor de werkmap toevoegen aan de voet tekst in Excel 2000

Artikel ID: 213615 - Bekijk de producten waarop dit artikel van toepassing is.
Automatische vertalingLET OP: Dit artikel is automatisch vertaald. Meer informatie treft u aan de onderzijde van dit artikel.
Zie voor een Microsoft Excel 2002-versie van dit artikel:287482
(http://support.microsoft.com/kb/287482/ )
.

Voor Microsoft Excel 98-versie van dit artikel, Zie184507
(http://support.microsoft.com/kb/184507/ )
.

Voor Microsoft Excel 97-versie van dit artikel, Zie142140
(http://support.microsoft.com/kb/142140/ )
.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

Dit artikel bevat een voorbeeld van Microsoft Visual Basic voor Macro (toepassingenSubprocedure) toegevoegd die de werk map pad en de bestands naam aan de voet tekst van een werk blad.
Naar boven | Geef ons feedback

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.
De volgende macro voegt het huidige pad en de bestandsnaam aan de linker voet tekst van het actieve werk blad. De werkmap moet opgeslagen voordat u de padgegevens aan de voet tekst toevoegen kunt.
   Sub UpdateFooter()

      ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

   End Sub

In een werkmap in een Visual Basic-module invoegen Microsoft Excel, drukt u op ALT + F11 om de Visual Basic-Editor start Klik vervolgens opModuleop deInvoegenmenu.

Voordat u de macro uitvoert, schakel over naar de werkmap en het model waarvoor het pad in de voet tekst weer geven. Nadat u de macro uitvoert, moet de voet tekst bevat het volledige pad en de bestands naam van de werkmap.

Alternatieve methode

U kunt ook deBeforePrintwerkmap gebeurtenis eenSubprocedure die het huidige pad en de bestands naam wordt toegevoegd aan de linkerkant voet tekst van het actieve werk blad voordat de werkmap wordt afgedrukt. De werkmap moet worden opgeslagen voordat u de padgegevens aan de voet tekst toevoegen kunt. Maken hetSubprocedure in de actieve werkmap, volg deze stappen:
  1. In het venster Project verkenner van Visual Basic-Editor Dubbel klik opThisWorkbookin het huidige project.

    Hiermee opent u een module voor code dat is gekoppeld aan de werkmap.
  2. Klik in de lijst Object voor deze moduleWerkmap.
  3. Klik in de lijst met procedures voor deze moduleBeforePrint.
  4. Voer de code zodat hetWorkbook_BeforePrintprocedure heeft de volgende strekking:
       Private Sub Workbook_BeforePrint(Cancel As Boolean) 
If ThisWorkbook.Path = "" Then ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.Name 
Else ActiveSheet.PageSetup.LeftFooter = 
ThisWorkbook.Path & _ Application.PathSeparator & ThisWorkbook.Name End If 
End Sub

  5. Klik in het menu bestandSluiten en terugkeren naar Microsoft Excel.
Wanneer u de werkmap afdrukt, wordt de voet tekst automatisch bijgewerkt voordat de werkmap wordt afgedrukt.

Werken met teken (&) in de bestandsnaam

Als de bestandsnaam bevat een ampersand (&), kunnen niet correct weer gegeven. Dit komt omdat Excel wordt het en-teken beschouwd als een speciale teken in de koptekst en voet tekst. Een en-teken weer geven in de kop en voet tekst, herhaalt u het teken & tweemaal (&). U doet dit in de macro, hetVervangenfunctie in Visual Basic for Applications:
Sub UpdateFooter()
    ActiveSheet.PageSetup.LeftFooter = Replace(ActiveWorkbook.FullName, "&", "&&")
End Sub
Naar boven | Geef ons feedback

Referenties

Klik voor meer informatie over de eigenschap LeftFooter, in de Visual Basic EditorMicrosoft Visual Basic Helpop deHelpin het menu typeLeftFooter eigenschapin de Office-assistent of de Antwoordwizard en klikt u vervolgens opZoekenom het onderwerp weer te geven.
Naar boven | Geef ons feedback

Eigenschappen

Artikel ID: 213615 - Laatste beoordeling: dinsdag 20 september 2011 - Wijziging: 3.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Excel 2000 Standard Edition
Trefwoorden: 
kbfooters kbmacro kbformat kbdtacode kbhowto kbprogramming kbmt KB213615 KbMtnl
Automatische vertaling
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:213615
(http://support.microsoft.com/kb/213615/en-us/ )
Naar boven | Geef ons feedback

Geef ons feedback

 
Naar bovenNaar boven